效果为：文字行，从右往左移动。
步骤：
1.新建窗口：添加标签:名称为:lblMsg.
2.窗口afterload事件：
'跑马灯效果
Dim lblmsg As WinForm.Label = e.Form.Controls("lblMsg") '需要做跑马灯的字体.
vars("topx")=e.Form.width '窗口长度用全局变量设置
lblMsg.Location = New Point(vars("topx"), vars("topy")) ' 设定lblMsg控件的起始位置
lblMsg.AutoSize = True ' 设定此控件能依数据调整大小
lblMsg.Font = New System.Drawing.Font("标楷体", 20, FontStyle.Bold)
'' 设定跑马灯控件内的文字为标楷体?大小为20?粗体字
'cmd.CommandText = "s ele ct 值 fr om 全局参数 whe re 参数名称 = '滚动文字'"
'lblMsg.Text = cmd.ExecuteScalar() '设定跑马灯所显示的文字
'这里是在数据库中查询文字，可以直接赋值
lblMsg.Text="我是跑马灯"
e.Form.TimerInterval = 10 '设定定时器周期为10/1000=0.01秒
e.Form.TimerEnabled = True ' 起动定时器
3.窗口TimerTick事件:
Dim lblMsg As WinForm.Label = e.Form.Controls("lblMsg")
If Vars("flag") = True Then ' 左移
Vars("topx") -= 1
lblMsg.Location = New Point(Vars("topx"), Vars("topy"))
If (Integer.Parse(lblMsg.Left) <= e.Form.width * 0.25) Then
'如果已经确定终点,那么.
Vars("topx")=e.Form.width
End If
Else
'Vars("topx") += 1
'lblMsg.Location = New Point(Vars("topx"), Vars("topy"))
'If (Integer.Parse(lblMsg.Left) >= Integer.Parse(e.Form.Width)) Then
'Vars("topx")=700
'End If
End If
加好友 
发短信
Post By：2015/8/19 16:07:00 [显示全部帖子]
