Collegamento a Toolbar

[Trism@rk]

Salve a tutti, ho questo problema:
devo creare un bottone che da un form mi "cliccki" sopra un determinato bottone di una toolbar presente un un altro form (entrambi i form fanno parte dello stesso progetto).
Come posso fare?

stavo viaggiando su questa rotta:
-----------------

Private Sub MioBottone_Click()

MioForm.Toolbar.Buttons(10).Value = True

-----------------
però questo evento ha come variabile booleana "tbrPressed" e "tbrUnPressed" che non mi sono utili in quanto servono solo per visualizzare il bottone nel suo stato "pigiato" oppure normale.

Da tenere presente anche che il codice della mia Toolbar si presenta così:
----------------------------------
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)

'MsgBox Button.Index

Select Case Button.index
Case "1" ...
Case "2" ...
Case "3" ...
Case "4"
Case "5"
Case "6"
Case "7"
Case "8"
Case "9"
Case "10"

End Select
End Sub
--------------------------------

Sicuramente sarà una scemenza però sono andato in palla e non mi ritrovo più.
Saluti

[RAVALON]

Ciao

devi usare (per seguire il tuo codice) button.key che magari è più esplicativa in quanto gli passi la chiave del bottone e capisci meglio quello che hai scritto

comunque va bene anche il .index

Il fatto è questo....

Io fare in modo che alla pressione di ogni tasto venga richiamata una procedura, insomma una SUB che contiene tutto quello che deve fare il button

fai qualcosa del tipo

Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button) 

select case button.index
case 1
      call BottoneSub
case else
end select

In questo modo se devi richiamare da qualsiasi parte del progetto un pezzo di codice basta che richiami la procedura con un CALL procedura


nell'esempio se da un altro form vuoi richiamare il codice del primo bottone della toolbar basta che fai

[ladyBlu]

siete entrambi pregati di utilizzare il tag CODE per scrivere il codice: [*CODE][*/CODE] senza *
per rendere più leggibile il codice.

[Trism@rk]

Scusa Ravalon...
:tongue: Basta che faccio...?

[RAVALON]

ah si...un errore di copia incolla... :tongue:

niente...cancella mentalmente l'ultima riga...penso che si capisca...o no?

[Trism@rk]

uhmmm a dirti il vero no ... mi sembra più complicato di quello che avevo intenzione di fare!
A questo punto non sò se mi sono spiegato bene, provo a ribadirmi con un esempio:
Facciamo conto che abbia 2 bottoni: uno che mi gestisce una funzione e l'altro che sia una sorta di clone del primo.

Nel primo metto:

Private Sub Command1_Click()
Text1.Text = "ciao"
End Sub

nell'altro invece metto:

Private Sub Command2_Click()
Command1.Value = True
End Sub

In questo modo il secondo bottone mi emula una cliccata sul primo bottone...ed è quello che mi serve di fare con il bottone della toolbar, solo che non ci riesco in quanto serve un procedimento un pò diverso.

cmq sono sicuro che il percorso del bottone che mi serve è questo:

MioForm.Toolbar.Buttons(10)

solo che questo bottone non ha la proprietà "value".

Saluti

[RAVALON]

torno a dirti che è inutile simulare la pressione del bottone se sleghi il codice del bottone nell'evento _CLICK() dal codice di ciò che deve fare...

se nel tuo caso magari il bottone Command1 generasse il seguente evento

Call SvolgiQualcosa

allora per clonare lo stesso comportamento dalla toolbar basta che anche da li richiami la stessa procedura

Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button) 
Select Case button.index
case=10
    call SvolgiQualcosa
end select

capisci che a questo punto è inutile generare il click perchè ciò che effettivamente viene fatto non sta nel codice del click ma viene richiamato su una SUB