Question

VB滚动字幕板问题，穿透式的我已经搞定了，壁面反射式的怎么改？

Private Sub Timer4_Timer() '字幕进行穿透式左右摆动
If fx = 1 Then
If Form2.Label1.Left > -Form2.Label1.Width Then
Form2.Label1.Left = Form2.Label1.Left - HScroll1.Value
Else
fx = 0
End If
Else
If Form2.Label1.Left < Form2.Width Then
Form2.Label1.Left = Form2.Label1.Left + HScroll1.Value
Else
fx = 1
End If
End If
End Sub
Private Sub Timer5_Timer() '字幕进行壁面反射式摆动

If fx = 1 Then
If Form2.Label1.Left > 0 Then
Form2.Label1.Left = Form2.Label1.Left - HScroll1.Value
Else
fx = 0
End If
Else
If Form2.Label1.Left < Form2.Width - Form2.Label1.Left Then
Form2.Label1.Left = Form2.Label1.Left + HScroll1.Value
Else
fx = 1
End If
End If

Answer 1

If Form2.Label1.Left < Form2.Width - Form2.Label1.Left Then
改成
If Form2.Label1.Left < Form2.Width - Form2.Label1.Width Then

Answer 2

壁面反射
是什么

追问

午到右边框的时候整句话往左运动，锄到左边框的时候整句话朝右运动