Seite 1 von 1
[gelöst] Schaltfläche tut nicht...
Verfasst: Sa 13. Aug 2022, 03:04
von fbarc
Hallo zusammen,
Ich habe 2 Schaltflächen.
Eine normale zum einfachen klicken...
eine Umschaltfläche - um etwas ein/auszuschalten
Beiden Schaltflächen habe ich das gleiche Makro beim Mausklick gegeben "btnGedrueckt"
Code: Alles auswählen
Sub btnGedrueckt ( event )
Dim oChkBox as Object
oChkBox = Event.Source.Model
if oChkBox.State = 1 then
Text="an"
else
Text="aus"
End If
' msgbox (Text)
' msgbox "Text"
End Sub
Das funktioniert soweit ganz gut.
Doch sobald ich z.B. eine Msgbox oder ein Print ausführe, klemmt die Umschaltfläche.
Der Status bleibt auf 0... nach ein paar Klicks geht er auf 1 und dann nicht mehr zurück.
Die Msgbox muß noch nichteinmal etwas mit dem Event zu tun haben.
Anderer Code dazuschreiben funktioniert.
Ist das ein Programmfehler, oder mach ich da was falsch??
Re: Schaltfläche tut nicht...
Verfasst: Sa 13. Aug 2022, 09:42
von F3K Total
Moin,
kann ich nachvollziehen, es aber auch nicht ändern. Wenn du also die Msgbox unbedingt benötigst habe ich keine Lösung.
Wenn du nur die Information sehen willst, vielleicht so:
Code: Alles auswählen
Sub btnGedrueckt ( event )
Dim ocmdButton as Object
Dim I as Integer
meinDok = thisComponent
meinBlatt = meinDok.sheets(0)
ocmdButton = Event.Source.Model
if ocmdButton.State = 0 then
Text="Umschaltfläche (an)"
nColor = RGB(0,255,0)
else
Text="Umschaltfläche (aus)"
nColor = RGB(255,0,0)
End If
ocmdButton.BackgroundColor = nColor
ocmdButton.label = Text
I = meinBlatt.getCellRangeByName("A1").Value
meinBlatt.getCellRangeByName("C10").String = "Test Test " & I
meinBlatt.getCellRangeByName("A1").Value = I + 1
End Sub
Gruß R
Re: Schaltfläche tut nicht...
Verfasst: Sa 13. Aug 2022, 10:07
von gogo
Das Makro an "Maustaste losgelassen" binden und schon geht's
Re: Schaltfläche tut nicht...
Verfasst: Sa 13. Aug 2022, 23:33
von fbarc
gogo hat geschrieben: ↑Sa 13. Aug 2022, 10:07
Das Makro an "Maustaste losgelassen" binden und schon geht's
Ja, so geht es...
Ich versteh zwar nicht wieso, aber ist ja auch egal... Hauptsache es gibt einen Weg wie es läuft
F3K Total hat geschrieben: ↑Sa 13. Aug 2022, 09:42
kann ich nachvollziehen, es aber auch nicht ändern. Wenn du also die Msgbox unbedingt benötigst habe ich keine Lösung.
Wenn du nur die Information sehen willst, vielleicht so:
Das mit den Farben und Text ändern, speicher ich mir auch gleich in den Hinterkopf.
Danke euch beiden
Re: [gelöst] Schaltfläche tut nicht...
Verfasst: So 14. Aug 2022, 10:02
von gogo
Vermutlich wird das Aktualisieren der Umschaltfläche (.status() sowie dann die grafische Anzeige) irgendwo unterbrochen, oder die Reihenfolge ist nicht so wie man sie erwartet. Print-Anweisungen unterbrechen den Code auch anders als MSG-Boxen, ggf verhält sich die Oberfläche auch anders wenn man statt der MSG-Box die MSG als Funktion benutzt...
Das "Mausklick-Event" ist übrigens - so weit mir aufgefallen ist immer erst mit dem Loslassen der Taste verbunden, d.h. auf "Maustaste gedrückt" kannst Du ggf. die Useraktion nochmal validieren ...