Labeleigenschaften abfragen...?!

[Mailyn]

Also, ich habe z.B Label 20 und dieses bewegt sich! Sobald es einen bestimmten Width-Wert erreicht hat, soll etwas passieren! mit diesem Code geht das aber irgendwie nich:

Private Sub Label20_Change()
			If Label20.Width >= 2500 Then
			Timer4.Enabled = True
Else
		   Timer4.Enabled = False
End if 

End Sub

Weiss jemand Rat?

 

[Shakie]

Hast du "Autosize" auf TRUE oder FALSE stehen? Änderst du die Text-Eigenschaft oder direkt die Width-Eigenschaft um das Label größer zu machen? Steht "WordWrap" auf TRUE oder FALSE?

 

[JensG]

Hallo Mailyn,

soll sich das Label bewegen oder soll es breiter werden ?

Mit .Width fragst du erstens nur die Breite des Labels ab und
zweitens tritt das Change Ereignis nie bei einer Größenänderung
oder verschiebung des Labels auf.

Wenn das Label auf der Form verschoben werden soll könnte
das so aussehen.
Meintest du doch das es breiter werden soll dann einfach Left durch
Width ersetzen.

Option Explicit

Private Sub Label1_Change()

            If Label1.Left >= 2500 Then
                Timer1.Enabled = True
            Else
                Timer1.Enabled = False
            End If

End Sub

Private Sub Timer1_Timer()

    Label1.Left = Label1.Left + 5

End Sub

Jens