| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1345 人关注过本帖
标题:控件赋值给变量,还是要怎么弄?
只看楼主 加入收藏
wxflw
Rank: 6Rank: 6
等 级:侠之大者
帖 子:325
专家分:435
注 册:2012-1-29
结帖率:87.21%
收藏
已结贴  问题点数:20 回复次数:1 
控件赋值给变量,还是要怎么弄?
窗体上放20个Text1,20个Text2控件数组,按钮1、2分别用来检测text中是否为空,一个时钟控件Timer1
我需要不管按钮1还是按钮2都能触发时钟控件Timer1,时钟控件需要按钮1、2分别把检测到有问题的控件显示出来。但是这个变量好像不对,大神们帮看看这个是哪边的问题。
Dim Ctt As TextBox
Private Sub Command1_Click()'==============Text1的检测过程
Dim i As Integer
    For i = Text1.LBound To Text1.UBound   '-text1是控件数组
        On Error Resume Next '循环出错就退出本次循环进入下次循环
        If Text1(i).Text = "" Then  '判断文本框内容
           Timer1.Enabled = True  '时钟控件启动
           Text1(i).SetFocus  '控件获得焦点
           Ctt = Text1(i)'将当前控件赋值给变量*********************(好像这个赋值有问题)
           Exit Sub'退出
        End If
    Next
End Sub
Private Sub Command2_Click()'===============Text2的检测过程
Dim i As Integer
    For i = Text2.LBound To Text1.UBound   '-text1是控件数组
        On Error Resume Next '循环出错就退出本次循环进入下次循环
        If Text2(i).Text = "" Then  '判断文本框内容
           Timer1.Enabled = True  '时钟控件启动
           Text2(i).SetFocus  '控件获得焦点
           Ctt = Text2(i)'将当前控件赋值给变量*********************(好像这个赋值有问题)
           Exit Sub'退出
        End If
    Next
End Sub
Private Sub Timer1_Timer()  '---------时钟红白闪烁5次结束,1秒2次
    If Tcc = 5 Then
       Ctt.BackColor = &H80000005
       Tcc = 0
       Timer1.Enabled = False
    Else
       If Ctt.BackColor = &H80FF& Then
          Ctt.BackColor = &H80000005
         Else
           If Ctt.BackColor = &H80000005 Then
              Ctt.BackColor = &H80FF&
           End If
       End If
    End If
    Tcc = Tcc + 1
End Sub

搜索更多相关主题的帖子: If Sub Text1 End 控件 
2020-02-16 22:20
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:216
帖 子:2039
专家分:11273
注 册:2014-12-6
收藏
得分:20 
对象的赋值用set语句
set Ctt = Text1(i)

能编个毛线衣吗?
2020-02-16 22:47
快速回复:控件赋值给变量,还是要怎么弄?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.012275 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved