Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ein UserForm-Label in einer 3D-Darstellung anzeigen

Gruppe

Label

Problem

Ein UserForm-Label soll in 3D-Darstellung angezeigt werden, wobei das Anklicken des Labels mitberücksichtigt werden soll.

Lösung
Geben Sie den nachstehenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmTogglen

Private Sub cmdOK_Click()
   Unload Me
End Sub

Private Sub lblClick_MouseDown( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   Label1.Move Left:=lblClick.Left + lblClick.Width - 1
   Label2.Move Top:=lblClick.Top + lblClick.Height - 1
   lblClick.ForeColor = RGB(120, 120, 120)
End Sub

Private Sub lblClick_MouseUp( _
   ByVal Button As Integer, _
   ByVal Shift As Integer, _
   ByVal X As Single, _
   ByVal Y As Single)
   Label1.Move _
      Left:=lblClick.Left, _
      Top:=lblClick.Top, _
      Width:=1, _
      Height:=lblClick.Height
   Label2.Move _
      Left:=lblClick.Left, _
      Top:=lblClick.Top, _
      Width:=lblClick.Width, _
      Height:=1
   lblClick.ForeColor = RGB(0, 0, 0)
End Sub

Private Sub UserForm_Initialize()
   Label1.Width = 1
   Label2.Height = 1
   Label1.Move Top:=lblClick.Top
   Label2.Move Left:=lblClick.Left
   lblClick.ZOrder 1
End Sub

StandardModule: Modul1

Sub DialogAufruf()
   frmTogglen.Show
End Sub