Thema: Label mit 3D-Darstellung

Download Beispiel-Arbeitsmappe

Home

Abbildung - Ansicht 1

Abbildung - Ansicht 2

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Labels positionieren
Ablaufbeschreibung:
- Breite des 1. Labels auf 1 setzen
- Breite des 2. Labels auf 1 setzen
- 1. Label auf die Höhe des Oberflächenlabels setzen
- 2. Label auf links gem. Oberflächenlabel positionieren
- Oberflächenlabel nach vorne setzen

Code:


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

Prozedur: lblClick_MouseDown
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck:
Ablaufbeschreibung:
- 1. Label auf links gem. Oberflächenlabel (um 1 Punkt verschoben) positionieren
- 2. Label auf die Höhe des Oberflächenlabels (um 1 Punkt verschoben) setzen

Code:


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