[es] - Code za pristup drop-down meniju toolbar button-a?

simche
Srbija

Član broj: 14240
Poruke: 346
*.vdial.verat.net

Profil

Code za pristup drop-down meniju toolbar button-a?

^{12.04.2004. u 08:52}

Imam Toolbar. I u njemu desetak buttons-a. Dva su sa drop-down meni-jima. Kako glasi code za pristup (click na ..) drop-down meniju button-a toolbar-a.

NOTE: Code za pristup button-u toolbara mi je poznat i ispravan i glasi:

Private Sub tblToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "OPEN"
............
End Select
End Sub

Sve najbolje
Simche

SVE NAJBOLJE
SIMCHE

^{12.04.2004. u 08:52}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
62.108.109.*

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Code za pristup drop-down meniju toolbar button-a?

^{13.04.2004. u 09:44}

Pogledaj ButtonMenuClick event

Code:

Option Explicit

Private Sub Form_Load()
   Dim i As Integer
   Dim btn As Button

   ' Add five Button objects to the Toolbar control.
   For i = 1 To 5
      Set btn = Toolbar1.Buttons.Add(Caption:= i, Style:= tbrDropDown)
      ' Add two ButtonMenu objects to each Button.
         btn.ButtonMenus.Add Text:="Help"
         btn.ButtonMenus.Add Text:="Options"
   Next i
End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As ComctlLib.ButtonMenu)
   Select Case ButtonMenu.Index
   Case 1
      MsgBox "Press the button."
   Case 2
      MsgBox "Offer some option"
   End Select
End Sub

Blue Man Group

^{13.04.2004. u 09:44}

simche
Srbija

Član broj: 14240
Poruke: 346
*.vdial.verat.net

Profil

Re: Code za pristup drop-down meniju toolbar button-a?

^{14.04.2004. u 17:41}

Shvatio sam kako treba kada si spomenuo buttonMenuClick Event. HVALA PUNO!

Ja sam koristio:
Private Sub tblToolBar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Key
'
End Select
End Sub

Ovaj kod sto si kasnije dodao u poruci mi takodje pomaze.
Ako mogu jedno drugo pitanje u ovom postu da se nesirim sa temama:

MDI FORM-a i 5 MDICHILD Formi. ISto toliko Buttons-a u toolbar-u. Kako da napisem kod da SVAKI button poziva svoju formu A DA PRI TOME SVE KOJE SU PRETHODNE BILE OTVORENE SAKRIJE. (pozivanje svake svoje mi je jasno a kako da se sakriju ostale nije). Koliko sam jasan sa problemom ?

HVALA UNAPRED i HVALA DO SADA
SIMKE

SVE NAJBOLJE
SIMCHE

^{14.04.2004. u 17:41}

Re: Code za pristup drop-down meniju toolbar button-a?

^{14.04.2004. u 18:48}

Probaj da prilagodis ovaj kod tvojim potrebama

Code:

    Dim Frm As Form

    For Each Frm In VB.Forms
        If TypeName(Frm) = "frmMain" Then
            ' Self!
        Else
            Unload Frm 'ili Frm.Hide
        End If
    Next Frm

P.S.
Sledeci put slobodno otvori novu temu.

Blue Man Group

^{14.04.2004. u 18:48}

simche
Srbija

Član broj: 14240
Poruke: 346
*.vdial.verat.net

Profil

Re: Code za pristup drop-down meniju toolbar button-a?

^{21.04.2004. u 08:13}

Ovaj kod je u pocetku radio svoje (malo preradjen za moje potrebe) medjutim sada kada se projekat 'povecao', on vise neradi svoju funkciju.

Problem sam resio (prosto ali koliko pametno) na taj nacin sto ne zatvaram vidljive forme pri pozivanju neke druge (kada se zatvori MDI FORMA treba da se sve promene po formama zapisu u bazu) vec namestim focus na potrebnoj formi (sve MDIchild forme nemaju control box).

Dakle, MDI forma + 15-ak MDIchild formi + 15-ak toolbar buttons-a , pri pritisku button-a imam :
...
case "Graph"
frmHistogram.Setfocus
Case "Model"
frmModel.Setfocus
...

PITANJE: Koliko "PAMETNO" je pozivanje child-forme preko SETFOCUS umesto SHOW. Napomena OVO radi kako zelim a da li to tako SME?

SVE NAJBOLJE
Simke

SVE NAJBOLJE
SIMCHE

^{21.04.2004. u 08:13}