|
smobiler 怎么做跑马灯效果?以下代码实现不了。?
怎么解?
Private Sub Smobilermain_Load(sender As Object, e As EventArgs) Handles Me.Load
' Labgh.Text = sugh ' & suxm
Timer1.Start()
Timer1.Interval = 1
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'Labmcs.Left = (Labmcs.Left - Labmc.Left) + 1
'If Labmcs.Left > Labmc.Left Then
' Labmcs.Left = 0
'End If
Labmcs.Left = Labmcs.Left + 1
If Labmcs.Left > Me.Size.Width Then
Labmcs.Left = Me.Size.Width
Labmcs.Left = -1
' MsgBox("控件已右移出窗体")
End If
End Sub
|
|