Helup (plz)

[XenomX]

Common Controls

Ik heb met Common Controls 5.0 (SP2) zo'n Toolbar ingevoegd met knoppen erop maar hoe kan je die 'binden' ?

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
If Toolbar1.Buttons(Index) = 1 Then
MsgBox "dfdsf"
End If
End Sub

Zoiets had ik al maar zegt steeds Element Not Found !

Bvd, XenomX

 

[rb32]

Toolbar

Hoi,

Je moet er ook voor zorgen dat je een ImageList gebruikt waar je iconen in staan.

Dan kun je je Toolbar (Properties) binden aan die ImageList.
In de ImageList moet je een Key meegeven.
In dit voorbeeld is dat Nieuw en Bewaren

Dan de code:
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)

Select Case Button.Key

Case "Nieuw"
MsgBox "abc"

Case "Bewaren"
MsgBox "def"

End Select

Enz. .....

Heb je hier iets aan ?

Succes,
Richard

 

[XenomX]

perfecto

Ja het werkt. Zat zelf te *****n met (index) enz.

Bedankt !