Verlaufsbalken
20.04.2013 12:38:31
Dirk
ich habe einen Verlaufsbalken in einer UF. Funktioniert soweit ganz gut.
Aber wie kann ich Position und Größe verändern ?
Grüße
Dirk
Dim lng As Long
Dim lng_Z As Long
Dim q As Integer
lng = Label1.Width
Label1.Width = 0
DoEvents
lng_Z = 1000
For q = 1 To lng_Z
With Label1
.Width = q / lng_Z * lng
.TextAlign = fmTextAlignCenter
.BackColor = RGB(0, 0, 256)
.ForeColor = RGB(256, 256, 256)
.Font.Bold = True
.Caption = Int(q / 10) & "%"
DoEvents
End With
Next