Gruppe
Dialog
Problem
Ein UserForm-Label soll in 3D-Darstellung angezeigt werden, wobei das Anklicken des Labels mitberücksichtigt werden soll.
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