说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

闪烁的Label-VB资料

HTML文档下载 WORD文档下载 PDF文档下载
闪烁的Label-VB资料


其实没有直接的方式可以如同在Dos环境中,有所谓"闪烁"字型的设定,那只有透过
Timer来设定字体的出现、消失模拟。

'在Form中放数个Label与一个timer
'如果我们设定Label的Tag属性为"1",那该Label便会闪烁
Private Sub Form_Load()
Label1.Tag = "1"
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Dim ctl As Control
For Each ctl In Me
If TypeOf ctl Is Label And ctl.Tag = "1" Then
ctl.Visible = Not ctl.Visible
End If
Next
End Sub

25GPU的Linux集群6小时内破解标准Windows密码 Lady Gaga与大数据的“火花” 手势才是王道:3款应用捕获3个设计灵感 YouTube的挑战者 JustinTV教你如何打造实时视频网站 黑客挟持160万用户密码 抗议联合国监管互联网 在线等了,页面上的互斥问题,在保存数据时,如果A.Text有数据就保存A.Text,B.Text有数据就保存B.Text,两个都有想谈出一个提示框,询问是 ····请教有关流的基本用法。(我懒所以我问^o^)···· 各位大哥~~请帮小弟一个忙好吗? 用ReadEventLog函数读系统日志文件 请教: win98下,要阻止页面调度该怎么做? DBGrid控件中的各行记录如何让它们按关键字(ID)的降序排列? 如何获得系统收藏夹的路径 请教如何把别人网站一个目录做为我网站的根目录。 关于vc的笔试题目 军宅什么意思? 军队是什么含义 怎么使这个名字霸气点羲哥 给两边加点符号或者英文使 赵文卓的女儿紫阳这个名字为什么都说霸气?有典故? 模仿陋室铭,给自己的房间取个名字,并说明一下去这个 桃花源记中写刘子骥的原因 下列哪种物质的分子间空隙最小?酒精,水,铜,氧气? 在测氧气的体积时,若将水换做酒精,则其体积还会是1 有志者立长志,无志者长立志.什么意思 铁腕普京突击检查俄军核战备以色列攻击叙利亚军事基地 目标是俄制斯诺登莫斯科生活照曝光:休闲打扮未戴联合国称叙利亚完成对化武生产设施功能叙利亚当局表明愿无条件参加叙问题国际长安街最后烟囱 今“退休”京味儿庙会台北展示“文化大餐”不再“容”忍忠魂归来空气质量看PM2.5 饮水质量看N1我的极品娘子极品小子闯天下我的保镖是校花道途独酌格林的小书北海海底世界旅游台湾文学馆旅游福华水世界旅游白沙湾海水浴场旅游天子山瀑布群旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘