vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
sevCoolBar3 
Autor: CCHEK
Datum: 21.12.16 22:36

Hallo Dieter,
mit welcher Anweisung kann ich unter Access 2010 die angelegten
Menübutton der CoolBar von "aussen" per VBA anklicken?
(Also den "btnTest1" und den Button "btnTest3")

Public Sub Coolbar1_ButtonClick
Select Case Key
Case "btnTest1"
Case "btnTest2"
End Select

Public Sub Coolbar1_MenuButtonClick
Select Case sMenuKey
Case "btnTest3"
Case "btnTest4"
End Select


Vielen Dank und frohe Festtage
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: ModeratorDieter (Moderator)
Datum: 22.12.16 06:48

Einfach die MenuButtonClick Prozedur aufrufen und die entsprechenden Parameter übergeben:
Coolbar1_MenuButtonClick 0, "btnTest1", "btnTest3"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: CCHEK
Datum: 22.12.16 06:52

Cool und danke für die frühe Hilfe.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: CCHEK
Datum: 22.12.16 07:17

Sorry Dieter,
aber wenn ich aus einem Unterformular versuche den Menüpunkt
aufzurufen passiert gar nichts:

Me.Parent.sevHauptmenue_MenuButtonClick 0, "btnHeuteFaellig"
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: ModeratorDieter (Moderator)
Datum: 22.12.16 07:17

Da fehlt auch noch ein Paramter

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: CCHEK
Datum: 22.12.16 08:03

Ich habe nochmals die Hilfe angesehen aber ich verstehe das nicht
welchen Parameter ich angeben muss um einen Button aufrufen zu können.

sevHauptmenue_MenuButtonClick 0, "btnHeuteFaellig"

wobei der "btnHeuteFaellig" der 1. in der Auflistung ist.

Parameter:
nButton = Index der Symbolschaltfläche, deren PopUp-Menü angezeigt wird.
nMenuItem = Index des PopUp-Menüeintrags, der ausgewählt wurde.
Key = Key-Wert des Menüeintrags, der ausgewählt wurde.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: ModeratorDieter (Moderator)
Datum: 22.12.16 08:06

Das ist hier ist die Definition der Prozedur:
Private Sub Coolbar1_MenuButtonClick(ByVal nButton As Long, _
  ByVal nMenuItem As Long, _
  ByVal sMenuKey As String)
nButton = Index des Buttons in der Toolbar
nMenuItem = Index des Menü-Eintrags des Buttons (nButton)
sMenuKey = Key des Menü-Eintrags des Buttons (nButton)

Welchen Menü-Eintrag (Index oder Key) möchtest du denn per Code auswählen?
Und wie lautet hierzu der Button-Index oder Button-Key der Schaltfläche in der Coolbar?

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: CCHEK
Datum: 22.12.16 08:19

Ich würde gerne den Button "btnHeuteFaelligER"
aus einem Unterformular aufrufen:

Hier ein Auszug meiner MenuButton Auflistung:
Public Sub sevHauptmenue_MenuButtonClick(ByVal nButton As Long, ByVal nMenuItem _
  As Long, ByVal sMenuKey As String)
 
' ausgewählte Formulare öffnen
  Select Case sMenuKey
 
    Case "btnHeuteFaelligER"
 
    Me.txtDatenselektion = (Null)
    Me.txtDatenselektion = "* FROM qryHeuteFaelligER"
 
    Grid1ZLst   ' Daten im Grid1 anzeigen
    ' Listenansicht der offenen Eingangsrechnungen/Ausgangsgutschriften
 
 
    Case "btnHeuteFaelligAR"
 
    Me.txtDatenselektion = (Null)
    Me.txtDatenselektion = "* FROM qryHeuteFaelligAR"
 
    Grid1ZLst   ' Daten im Grid1 anzeigen
' Listenansicht der offenen Ausgangsrechnungen/Eingangsgutschriften
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: ModeratorDieter (Moderator)
Datum: 22.12.16 08:22

Ok... dann sollte folgender Aufruf genügen:
sevHauptmenue_MenuButtonClick 0, 0, "btnHeuteFaelligER"
Das genügt deshalb, da du in der MenuButtonClick die beiden ersten Parameter (nButton, nMenuItem) gar nicht auswertest.

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: sevCoolBar3 
Autor: CCHEK
Datum: 22.12.16 08:32

Super... jetzt funktioniert mein Aufruf
Danke für deine Hilfe + Geduld!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel