[ simche @ 12.04.2004. 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
[ mladenovicz @ 13.04.2004. 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

[ simche @ 14.04.2004. 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
[ mladenovicz @ 14.04.2004. 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.
[ simche @ 21.04.2004. 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