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

Code za pristup drop-down meniju toolbar button-a? 12.04.2004. u 09:52 · pre 274 meseca #1

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

Potpis

SVE NAJBOLJE
SIMCHE

Re: Code za pristup drop-down meniju toolbar button-a? 13.04.2004. u 10:44 · pre 274 meseca #2

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

Potpis

Blue Man Group

Re: Code za pristup drop-down meniju toolbar button-a? 14.04.2004. u 18:41 · pre 274 meseca #3

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

Potpis

SVE NAJBOLJE
SIMCHE

Re: Code za pristup drop-down meniju toolbar button-a? 14.04.2004. u 19:48 · pre 274 meseca #4

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.

Potpis

Blue Man Group

Re: Code za pristup drop-down meniju toolbar button-a? 21.04.2004. u 09:13 · pre 274 meseca #5

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

Potpis

SVE NAJBOLJE
SIMCHE

Forum kao aplikacija na telefonu

Srodne teme