Toolbar_ButtonClick (Toolbar.Buttons.Item("Testi"))
Jos haluan painaa työkalurivin "Testi" painikkeesta ohjelmallisesti, niin kuinka se ohjelmoidaan?
En tiedä onko tuo minun koodini alkuunkaan oikein, mutta yritin tuollaista :)
Jos haluan painaa työkalurivin "Testi" painikkeesta ohjelmallisesti, niin kuinka se ohjelmoidaan?
En tiedä onko tuo minun koodini alkuunkaan oikein, mutta yritin tuollaista :)
Vastaukset 4
Vanhimmat
Jos kyseessä oli Visual Basic, ja jos ymmärrsin kysymyksesi oikein, niin esim. näin:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'Joko Key jos on käytetty...
Select Case Button.Key
Case "a"
MsgBox "a"
Case "b"
MsgBox "b"
Case "c"
MsgBox "c"
End Select
'... muuten Index
Select Case Button.Index
Case 1
MsgBox "1"
Case 2
MsgBox "2"
Case 3
MsgBox "3"
End Select
End Sub
Käytin Key ja Index arvoja, koska ne ovat uniikkeja, eli toista samaa arvoa ei samassa ToolBarissa voi olla...
Jos haluaisin painaa esimerkiksi normaali painikkeesta ohjelmallisesti, niin senhän saa tällä tavalla "Command1_Click", mutta nyt kysynkin kuinka saa samanlailla painettua työkaluriviltä jostain tietystä napista ohjelmallisesti??
Toivottavasti tajusit nyt? :)
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'ToolBar1 sisältää 3 painiketta
Select Case Button.Index
Case 1
MsgBox "1"
Case 2
MsgBox "2"
Case 3
MsgBox "3"
End Select
End Sub
Private Sub Form_Load()
Dim B As Buttons
Set B = Toolbar1.Buttons
Call Toolbar1_ButtonClick(B.Item(2))
End Sub
Onkos tämä lähempänä haluttua???
Juuri tuota minä tarkoitin.
Kiitoksia!