共6 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：有没有办法实现文字闪现、左右游动、上下掉落？
1楼
旭日生 发表于：2025/3/19 9:19:00Foxtable有没有办法做到如下内容：
1、文字闪现：如读出的文字闪现3次后消失。
2、左右游动：游动出窗口即消失，或往返游动。
3、上下掉落：坠落出窗口后消失。
1、文字闪现：如读出的文字闪现3次后消失。
2、左右游动：游动出窗口即消失，或往返游动。
3、上下掉落：坠落出窗口后消失。
2楼
有点蓝 发表于：2025/3/19 9:29:00使用标签控件
1、控制标签的显示和隐藏
2、控制标签的左右位置
3、控制标签的上下位置
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
4楼
有点蓝 发表于：2025/3/21 9:44:00| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1.zip |
5楼
旭日生 发表于：2025/3/21 10:10:00要有视觉上残留和反复才好。
6楼
有点蓝 发表于：2025/3/21 10:12:00把时间间隔设置小一点，控件只能做到这个效果了
共6 条记录, 每页显示 10 条, 页签:
[1]