Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

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

[es] :: Visual Basic 6 :: Code za pristup drop-down meniju toolbar button-a?

[ Pregleda: 3633 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

simche
Srbija

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



Profil

icon Code za pristup drop-down meniju toolbar button-a?12.04.2004. u 08:52 - pre 243 meseci
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
 
Odgovor na temu

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

Član broj: 6598
Poruke: 2065
62.108.109.*

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


Profil

icon Re: Code za pristup drop-down meniju toolbar button-a?13.04.2004. u 09:44 - pre 242 meseci
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


 
Odgovor na temu

simche
Srbija

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



Profil

icon Re: Code za pristup drop-down meniju toolbar button-a?14.04.2004. u 17:41 - pre 242 meseci
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
 
Odgovor na temu

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

Član broj: 6598
Poruke: 2065
62.108.109.*

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


Profil

icon Re: Code za pristup drop-down meniju toolbar button-a?14.04.2004. u 18:48 - pre 242 meseci
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.
 
Odgovor na temu

simche
Srbija

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



Profil

icon Re: Code za pristup drop-down meniju toolbar button-a?21.04.2004. u 08:13 - pre 242 meseci
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
 
Odgovor na temu

[es] :: Visual Basic 6 :: Code za pristup drop-down meniju toolbar button-a?

[ Pregleda: 3633 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.