[gelöst] Schaltfläche tut nicht...

[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??

[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

[gogo]

Das Makro an "Maustaste losgelassen" binden und schon geht's

[fbarc]

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

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

[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 ...