Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Richiamare un bottone toolbar da codice

Ciao...
Non riesco a trovare la sintassi giusta o non posso richiamare la stessa SUB
che uso per la ToolBar?
DCunque, il bottone nella toolbar in questione si chiama "SEARCH !" ed il
codice passa normalmente.
La sub ha questo titolo:
---
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
---
Dalla toolbar tutto ok! ma a parte il click ho provato a richiamarla da un
altra sub con un po' di tutto ma canno la sintassi...
Toolbar1_ButtonClick "SEARCH !"
Toolbar1_ButtonClick ("SEARCH !")
Toolbar1_ButtonClick ('SEARCH !')
Toolbar1_ButtonClick (SEARCH !)
Toolbar1_ButtonClick &%ç%ç*/('SEARCH !')(&%(&%(&   :-)))
...ecc...
ed altre oscenità del genere.. ma sempre mi da errore... che non accetta il
comando come tipo non corrispondente.
Beh.. ho risolto "volgarmente" riscrivendo il codice in una sub normale e
richiamandola, ma volendo risparmiare quelle venti linee di codice come si
potrebbe richiamare la stessa routine da un altro tasto come se avessi
premuto sulla Toolbar quello specifico tasto?
Grazie...
Anto.
Grazie...
o
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

"ApipApip" <Chied...@AskMe.com> ha scritto nel messaggio
news:3ce96...@corp.newsgroups.com...

Se la toolbar vuole un Button, prova a passarglielo
Call Toolbar1_ButtonClick(Toolbar1.Buttons(1))
ovviamente al posto di uno...

 stessa SUB che uso per la ToolBar?
La prima che hai detto, anche se...
E' una PESSIMA abitudine quella di invocare le routine di evento come
se fosser normali Sub.
Le routine di evento sono richiamate dal sistema quando si verifica
l'evento, perché usarle in altro modo? Piuttosto trasferisci il codice
in una Sub con un nome appropriato e invocala nell'evento _Click della
toolbar come da qualsiasi altro punto.
Non mi pare poi che "sprechi" 20 linee di codice, ma al massimo tre,
ed i vantaggi in termini di leggibilità e manutenibilità del codice
sono evidenti.
Se proprio non vuoi sprecare neanche queste tre righe, almeno guardati
bene i parametri della chiamata: (ByVal Button As MSComctlLib.Button)
Questo vuol dire che devi passargli un riferimento ad un pulsante
della toolbar, e non la semplice key.
Toolbar1_ButtonClick Toolbar1.Buttons("SEARCH !")
--
Ciao, Silv:o)

 ha scritto

visto che all'inizio facevo lo stesso errore di apipapip e invocavo dalla
toolbar un click sul menu, faccio ammenda e provo a esemplificare le sagge
parole di silv:o)
in un bas
    Public Sub HtmlListaS()
        ...
    End Sub
nel form:
    Private Sub mnuUtilListaS_Click()
        HtmlListaS
    End Sub
    Private Sub TB_ButtonClick(ByVal Button As MSComctlLib.Button)
        Select Case Button.Key
            Case "exit": Unload Me 'come fara' ugo in questo click ? :)
            Case "first": dbFirst
            Case "prev": dbPrev
            Case "next": dbNext
            Case "last": dbLast
            Case "htmls": HtmlListaS
        End Select
    End Sub
ciao, j.

 parole di silv:o)
urka...
Grazie mille a tutti per le dettagliatissime info... passo a correggere e
migliorare quanto ottimanente specificato!
Anto.
