网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,158贴子：1,166,012
  • 7回复贴，共1页

新人vb问题求解

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
End Sub


'字幕进行穿透式左右摆动
好商端没听懂。
我只知道
if label1.left<-lable1.width then....
if label1.left>Width then .....


简单的说，一个是文本碰到边框立即反弹，另一个是文本全部沉到窗体外时才往回走。


Private Sub Timer5_Timer() '字幕进行壁面反射式摆动
If fx = 1 Then
Form2.Label1.Left = Form2.Label1.Left - HScroll1.Value '当FX=1时，向左移动
If Form2.Label1.Left <= 0 Then
fx = 0 '当移动到边界时，FX=0
End If
Else
Form2.Label1.Left = Form2.Label1.Left + HScroll1.ValueElse '当FX=0时，向右移动
If Form2.Label1.Left >= Form2.Width - Form2.Label1.width Then '文本的left加宽度等于窗体宽度时，就意味着文本撞到了框。
fx = 1 '当移动到边界时，FX=1
End If
End If
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 7回复贴，共1页
分享到: