以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  显示标语  (http://foxtable.net/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
--  
Static s As String = "要显示的内容"    要想显示成黄色的字应该怎么设置呢
s = s.Substring(1) & s(0)
StatusBar.Message3 = s


--  作者:有点蓝
--  发布时间:2023/4/3 9:54:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=177277&replyID=185012&skin=1