Hallo zusammen,
ich verwende in meiner MDI-Anwendung ein Menü.
Einen Menüpunkt davon (oberste Ebene) möchte ich programmgesteuert aufklappen (ohne nun die Befehle darunter auszuführen - eben nur sichtbar machen). Wisst ihr wie das geht ? Ich verwende VB 6.0.
Ich bin für Tips dankbar.
Hallo Klaus,
Ich bin für Tips dankbar.
noch keine Antwort … Ich habe gesucht und bisher auch noch keine ‚gute‘ Lösung gefunden. Wärst Du auch mit einer schlechten (simulierter Mausklick) zufrieden? Eine bessere Idee habe ich nicht, das würde ich aber hin bekommen. 
Gruß, Rainer
Hallo,
ich poste schon mal die ‚Hilfslösung‘, dann muß ich sie nicht abspeichern.
Private Declare Sub mouse\_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF\_LEFTDOWN = &H2
Const MOUSEEVENTF\_LEFTUP = &H4
Const MOUSEEVENTF\_MIDDLEDOWN = &H20
Const MOUSEEVENTF\_MIDDLEUP = &H40
Const MOUSEEVENTF\_MOVE = &H1
Const MOUSEEVENTF\_ABSOLUTE = &H8000
Const MOUSEEVENTF\_RIGHTDOWN = &H8
Const MOUSEEVENTF\_RIGHTUP = &H10
Private Sub MDIForm\_Activate()
Dim cx As Long
Dim cy As Long
MDIForm1.Left = 1000
MDIForm1.Top = 1000
DoEvents
cx = 6000
cy = 9000
mouse\_event MOUSEEVENTF\_MOVE Or MOUSEEVENTF\_ABSOLUTE, 6000, 9000, 0, 0
mouse\_event MOUSEEVENTF\_LEFTDOWN Or MOUSEEVENTF\_LEFTUP, 0, 0, 1, 0
mouse\_event MOUSEEVENTF\_MOVE Or MOUSEEVENTF\_ABSOLUTE, 6500, 11000, 0, 0
End Sub
… frag nicht, was das für komische Zahlen sind, ich habe keine Ahnung.
Gruß, Rainer
Hallo Rainer,
vielen Dank für Deine Mühe,
ich werdes gleich mal ausprobieren,
wegen den Zeichen - mich wundert bei VB schon lange nix mehr …
Hallo Rainer,
es hat funktioniert … vielen Dank.
diese Lösung ist auch „fast“ genau das was ich gesucht habe …
ich experimentiere z.Zt. mit diesen Assistenten (msAgent) und der soll auf das Menü zeigen und dann solls erst aufgehen aber das Programm ist viel schneller als der lahme Assistent … aber ich bin wieder weiter … schönen tag noch
Hallo Klaus,
es hat funktioniert … vielen Dank.
danke für die Rückmeldung.
diese Lösung ist auch „fast“ genau das was ich gesucht habe
…
Ja, nur fast, ich muß den Mauszeiger verschieben.
ich experimentiere z.Zt. mit diesen Assistenten (msAgent) und
der soll auf das Menü zeigen und dann solls erst aufgehen aber
das Programm ist viel schneller als der lahme Assistent …
aber ich bin wieder weiter
Das freut mich! Bis zum nächsten mal,
Gruß, Rainer