öffentlich
Redaktion Druckversion

VBA: Echte und unechte Schaltflächen

Beitrag bewerten
Stand: 11. April 2011

Unsichtbare Schaltflächen

Bezeichnungsfelder statt Schaltflächen

Wenn Sie jedoch den Rand beeinflussen möchten, sind Schaltflächen nicht geeignet, denn deren Rand bleibt immer gleich.

Nehmen Sie stattdessen ein Bezeichnungsfeld, dessen BackStyle Sie auf fmBackStyleTransparent stellen. Trotzdem muss die Visible-Eigenschaft selbstverständlich auf True stehen, sonst wäre es nicht aktivierbar.

Auch Bezeichnungsfelder haben eine Click-Methode, so dass diese sich damit genau wie Schaltflächen verhalten. Im folgenden Code finden Sie die Programmierung zu den Bezeichnungsfeldern (mit den Namen lbl01 bis lbl12) auf der Grafik anstatt der bisherigen Schaltflächen. Alle rufen hier wieder die Prozedur Markieren auf, um den Erfolg des Anklickens anzuzeigen.

Private Sub lbl01_Click(): Markiere 1: End Sub
Private Sub lbl02_Click(): Markiere 2: End Sub
Private Sub lbl03_Click(): Markiere 3: End Sub
Private Sub lbl04_Click(): Markiere 4: End Sub
Private Sub lbl05_Click(): Markiere 5: End Sub
Private Sub lbl06_Click(): Markiere 6: End Sub
Private Sub lbl07_Click(): Markiere 7: End Sub
Private Sub lbl08_Click(): Markiere 8: End Sub
Private Sub lbl09_Click(): Markiere 9: End Sub
Private Sub lbl10_Click(): Markiere 10: End Sub
Private Sub lbl11_Click(): Markiere 11: End Sub
Private Sub lbl12_Click(): Markiere 12: End Sub

Private Sub Markiere(intNr As Integer)
	Dim lblDieser As Label
	Dim intZaehler As Integer

	For intZaehler = 1 To 12
		Set lblDieser = Me.Controls("lbl" & Format(intZaehler, "00"))
		With lblDieser
			.SpecialEffect = fmSpecialEffectRaised
		End With
	Next

	Set lblDieser = Me.Controls("lbl" & Format(intNr, "00"))
	With lblDieser
		.SpecialEffect = fmSpecialEffectSunken
	End With
End Sub

Anders als bei einer Schaltfläche können Sie bei einem Bezeichnungsfeld dessen Rand-Darstellung ändern. Hier wechselt er von "erhaben" (raised) auf "vertieft" (sunken), so dass er sich eigentlich wie eine Umschaltfläche verhält.

Bild vergrößernBild vergrößernBezeichnungsfelder können nach dem Anklicken ihren Rand ändern, wie hier zu sehen ist.

Mitglied werden

Als zahlendes Mitglied von akademie.de haben Sie vollen Zugriff auf alle Inhalte und können alle PDF-Dateien, Checklisten, Mustervorlagen und Anwendungen herunterladen.

Sind Sie sich noch unsicher? Dann wählen Sie die Option “akademie.de kostenlos testen”. So können Sie sich 14 Tage in Ruhe umschauen. Downloads stehen Ihnen in dieser Zeit nicht zur Verfügung. Gefällt Ihnen akademie.de nicht, reicht ein formloser Widerruf per E-Mail innerhalb der ersten 14 Tage. Es entstehen für Sie keine Kosten. Widerrufen Sie nicht, erhalten Sie nach Ablauf von 14 Tagen vollen Zugriff und der Mitgliedsbeitrag wird abgebucht.

Ich bin bereits Mitglied
Mitglied werden!
Ich entscheide mich für folgende Zahlungsweise:

Inhalt

Downloads zu diesem Beitrag

Newsletter abonnieren