Hinzufügen von Steuerelementen zu einem Bild in einer Excel-userform mit VBA

Ich brauche, um Etiketten zu erstellen und Schaltflächen dynamisch und fügen Sie dann zu einem Bild in einer userform. Wie mache ich das? Wie es scheint sollte einfacher, als es wirklich ist.

InformationsquelleAutor notnot | 2009-02-19
  1. 18

    Dem folgenden code wird veranschaulicht, wie Sie dynamisch zu füllen, ein Bild in eine userform mit controls...

    In der form, die ich verwendet hatte ich eine frame-Steuerelement mit dem Namen Frame1, so in der UserForm_Initialize rufen Sie Frame1.Controls.Fügen Sie so Betten Sie ein Steuerelement in den Rahmen. Sie können die Steuerung, die bekommt wieder eine WithEvents-Steuerung der Variablen, die Sie definiert haben, in den UserForm-code-Modul, so können Sie auf Ereignisse reagieren zu können, auf was für Steuerelemente, die Sie wollen...

    Also mit dieser Methode, die Sie brauchen, um pre-schreiben keine Ereignis-code für alle Steuerelemente, die Sie erstellen...

    Beachten Sie auch, dass Sie können position und Größe der Steuerelemente, auch wenn das top, left, width und height-Eigenschaften nicht unbedingt in intellisense...

    Private WithEvents Cmd As MSForms.CommandButton
Private WithEvents Lbl As MSForms.Label

Private Sub UserForm_Initialize()
    Set Lbl = Frame1.Controls.Add("Forms.Label.1", "lbl1")
    Lbl.Caption = "Foo"
    Set Cmd = Frame1.Controls.Add("Forms.CommandButton.1", "cmd1")
End Sub

Private Sub Cmd_Click()
    Cmd.Top = Cmd.Top + 5
End Sub

Private Sub Lbl_Click()
    Lbl.Top = Lbl.Top + 5
End Sub
    • Warum die "1" am Ende der name der Klasse in der add Methode?
    • Ich weiß es nicht. Ich weiß, dass es nicht funktioniert ohne.
    • Ich würde wirklich gerne wissen, warum es "Formen.Befehlsschaltfläche.1" zu
    InformationsquelleAutor Jon Fournier
  2. 4

    Meine variation des Themas vor. Dies ist nur für ein 4x4-array von Tasten obwohl. Eine userform erstellen, und fügen Sie diese auf Ihren code. Die gleichen Konzepte können verwendet werden, mit Ihren Beschriftungen (oder siehe Vorherige Antwort):

    Private cmdLots(20) As MSForms.CommandButton

Private Sub UserForm_Initialize()
For i = 1 To 4
For j = 1 To 4
    k = i + (4 * j)
    Set cmdLots(k) = UserForm2.Controls.Add("Forms.CommandButton.1", "cmd1")
    With cmdLots(k)
        .Top = i * 25
        .Left = (j * 80) - 50
        .BackColor = RGB(50 * i, 50 * j, 0)
        .Caption = "i= " & i & "  j= " & j
    End With
Next j
Next i
End Sub
    InformationsquelleAutor tjSTAR
Schreibe einen Kommentar