| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 显示标语 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186021) |
|
| -- 作者：nxqtxwz -- 发布时间：2023/4/1 9:53:00 -- 显示标语 请问哪位老师有在窗口底部右边显示标语的代码给发一个，最好的能动的标语。谢谢了。 |
|
| -- 作者：有点蓝 -- 发布时间：2023/4/1 10:06:00 -- 参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73458 |
|
| -- 作者：nxqtxwz -- 发布时间：2023/4/1 15:05:00 -- 不想新建一个窗口，就是直接在系统窗口的右侧底部显示应该怎么改呢？ 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 |
|
| -- 作者：有点蓝 -- 发布时间：2023/4/1 15:22:00 -- http://www.foxtable.com/webhelp/topics/0639.htm 添加一个计划管理，代码 Static s As String = "要显示的内容" s = s.Substring(1) & s(0) StatusBar.Message3 = s |
|
| -- 作者：nxqtxwz -- 发布时间：2023/4/1 18:47:00 -- 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 这一段代码应放在哪个事件中呢？在系统窗口中。 [此贴子已经被作者于2023/4/1 18:48:04编辑过]
|
|
| -- 作者：有点蓝 -- 发布时间：2023/4/2 20:16:00 -- 这种是要自己设计窗口的，在窗口设计中 |
|
| -- 作者：nxqtxwz -- 发布时间：2023/4/3 8:47:00 -- 是不是在系统窗口中无法实现 |
|
| -- 作者：有点蓝 -- 发布时间：2023/4/3 8:48:00 -- 看4楼 |
|
| -- 作者：nxqtxwz -- 发布时间：2023/4/3 9:46:00 --
|
|
| -- 作者：有点蓝 -- 发布时间：2023/4/3 9:54:00 -- http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=177277&replyID=185012&skin=1
|