- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 有没有办法实现文字闪现、左右游动、上下掉落？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=195895)
-- 发布时间：2025/3/19 9:19:00
-- 有没有办法实现文字闪现、左右游动、上下掉落？
Foxtable有没有办法做到如下内容：
1、文字闪现：如读出的文字闪现3次后消失。
2、左右游动：游动出窗口即消失，或往返游动。
3、上下掉落：坠落出窗口后消失。
-- 发布时间：2025/3/19 9:29:00
--
使用标签控件
1、控制标签的显示和隐藏
2、控制标签的左右位置
3、控制标签的上下位置
-- 发布时间：2025/3/21 9:34:00
--
想实现标签显示、不显示的交替闪烁功能，但不知道代码中的e.Form.TimerEnabled = False 和e.Form.TimerInterval = 4000 并不起作用？我的是想法不对。请帮忙。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1.foxdb |
Dim lb1 As WinForm.Label = e.form.Controls("Label1") \'文字闪现
\'Dim PmK As Integer = 320 \'屏幕宽度象素
\'Dim PmG As Integer = 640 \'屏幕高度象素
Dim i As Integer
For i = 1 To 5
If i <= 3 Then
lb1.Visible = True \'显示标签
lb1.left = 50 \'标签左起点在50像素
e.Form.TimerEnabled = False \'停止计时
MessageBox.show(lb1.left)
e.Form.TimerInterval = 4000 \'计时间隔设定为4秒
e.Form.TimerEnabled = True\'重新计时
MessageBox.show("?")
lb1.Visible = False \'不显示标签
e.Form.TimerInterval = 3000 \'标签计时间隔3秒
lb1.left = 150 \'标签左起点在150像素
lb1.Visible = True \'显示标签
MessageBox.show(i)
Else
MessageBox.show("//2")
e.Form.TimerEnabled = False
Return
End If
Next
-- 发布时间：2025/3/21 9:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1.zip |
-- 发布时间：2025/3/21 10:10:00
-- 这不是我想要的：我想要的是“出现-消失-再出现”。
要有视觉上残留和反复才好。
-- 发布时间：2025/3/21 10:12:00
--
把时间间隔设置小一点，控件只能做到这个效果了