永发信息网

请问一下..VB代码

答案:2  悬赏:80  手机版
解决时间 2021-05-07 10:16

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

我新手,是直接看代码的有些还不明白,这段代码可以帮我讲解一下么?

最佳答案
Form_Load 的时候设置 0.5秒执行一次Timer1_Timer函数For Each ctl In Me If TypeOf ctl Is Label And ctl.Tag = "1" Then找到前面那个Tag设置为1的label控件,叫它显示或隐藏
也就是把那个Label1每0.5秒显示/隐藏
全部回答

Private Sub Form_Load()'窗体的加载事件,当窗体启动的时候执行此任务 Label1.Tag = 1 '设置标签的标志为1

Timer1.Interval = 500 '把时钟控件的Inverval值设为500,即每隔0.5秒运行一次Timer1_Timer事件,1000为1秒 End Sub '窗体的加载事件结束

Private Sub Timer1_Timer() '时钟控件的Timer事件,此事件与时间间隔联系,每隔0.5秒运行一次这个事件过程 Dim ctl As Control '定义ctl为控件对象 For Each ctl In Me '对于所有的控件对象遍历,Each ctl 是每一个对象,In Me 是窗体上的,即窗体上的每一个对象 If TypeOf ctl Is Label And ctl.Tag = "1" Then '如果这个对象是标签,并且标志位1,则执行下面的代码 ctl.Visible = Not ctl.Visible '如果此时标签是隐藏的则显示,如果是显示的则隐藏 End If 'if语句结束的标志 Next '循环体结束的标志 End Sub ‘Timer事件结束标志

我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
姐弟恋的成功率是多少?
谁帮我取个好一点女孩名字
用盐洗脸,毛孔怎么越来越大、而且油也越来越
开卷未必有益的句子,开卷未必有益的格言
诺基亚6500s刷机一般要多久,要好多钱
网络上的爱情可信吗?
炫舞中在哪玩更快得人气?
秋之回忆到目前为止一共有几部??
迪拜集团是否会带来第二次金融危机?
穿越火线 服务器版本 江苏一区0.7.8 进去之后
卡西欧EF327d手表没有月份显示么?
LG第一代笑脸手机 和 LG KF350冰激凌手机 哪
怎样是QQ账号安全体检分最高?
山西有哪些可以读全日制成考大专的大学
超Q多长时间就会给停掉
推荐资讯
局域网线不知道IP地址 网关 DNS 也不能自动获
郑州有金鹏S767手机排线吗?
网吧ip是固定的吗?网吧的服务器重启之后呢,
吉林省环亚国际旅行社在哪里啊,我有事要去这
<重生之无悔人生 >有完整版的吗?
男人的魅力来自于?
怎么用15元吃饱1天
真三5不可以玩
有鸡西到鹤岗的长途汽车吗?多少钱? 什么时
头顶疼拉肚子全身无力怎么了
谁帮我起个彩虹岛的名字
昆明34中好不好
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?