控件赋值给变量,还是要怎么弄?
窗体上放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