syntaxe d'un controls.add

Question

j'aimerais avoir la syntaxe complete d'un controls.add merci

Renfield · Answer

Dim WithEvents MyTextBox As VB.TextBox

Private Sub Form_Load()
    Dim Frame1 As VB.Frame
    Set Frame1 = Controls.Add("VB.Frame", "Frame1")
    With Frame1
        .Caption = "Frame1"
        .Visible = True
        .Move 400, 400, 2500, 1000
    End With
    Set MyTextBox = Controls.Add("VB.TextBox", "MyTextBox", Frame1)
    With MyTextBox
        .Visible = True
        .Move 150, 300, 1500, 300
    End With
End Sub

Private Sub MyTextBox_Change()
    MsgBox MyTextBox.Text
End Sub


Voila donc un code pour te montrer la syntaxe.

le premier parametre est une chaine de caractere. Il s'agit de l'ID du controle que tu souhaite créer. Tu peux le retrouver pour un objet donné, en regardant dans l'explorateur d'objets (F2).

le second parametre est le nom du controle.

le troisieme est optionnel, et permet de créer le controle en question dans un ControlContainer (une Frame un picturebox.....)

voila !!

Controls.Add renvoie une reference vers l'objet crée....
celui-ci est d'ailleurs masqué lorsqu'il est créé...

si tu as davantage de questions.

By Renfield

[mailto:thomas_reynald@msn.com thomas_reynald@msn.com]

Aucune touche n'a ete blessee lors de la saisie de ce texte.......... ;)

Syntaxe d'un controls.add

1 réponse

Discussions similaires