| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教：滚动字符如何停在指定位置？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64430) |
| -- 作者：bahamute -- 发布时间：2015/2/13 13:58:00 -- 请教：滚动字符如何停在指定位置？ 窗口计时器代码： Dim pm As WinForm.Label = e.Form.Controls("Label1") Dim zwz As Integer =pm.left-2 If zwz +pm.Width<= 4 Then pm.left = e.form.Width Else pm.left = zwz End If 当字幕滚动到窗体左侧边缘时，停止或者暂停滚动，如何设置？
[此贴子已经被作者于2015/2/13 13:58:56编辑过]
|
| -- 作者：有点甜 -- 发布时间：2015/2/13 14:23:00 -- Dim pm As WinForm.Label = e.Form.Controls("Label1")
Dim zwz As Integer =pm.left-2
If zwz +pm.Width<= 4 Then
e.Form.TimerEnabled = False
\'pm.left = e.form.Width
Else
pm.left = zwz
End If
[此贴子已经被作者于2015/2/13 14:22:46编辑过]
|
| -- 作者：bahamute -- 发布时间：2015/2/13 14:30:00 -- 这样的话字幕就消失不再出现。 |
| -- 作者：有点甜 -- 发布时间：2015/2/13 14:32:00 -- Dim pm As WinForm.Label = e.Form.Controls("Label1")
Dim zwz As Integer =pm.left-2
If zwz +pm.Width<= 4 Then
e.Form.TimerEnabled = False
pm.left = 0
Else
pm.left = zwz
End If
|