控件初始检查赋值情况,求助
http://zhidao.baidu.com/question/146656637.html百度知道哩,问过了,没人知道。
等待高手。
程序代码: Dim i As Integer
For i = 1 To 16
If IsNumeric(Me.Controls.Item("textbox" & i).Text) Then
' MsgBox("提示", , "提示")
Me.Controls.Item("textbox" & i).BackColor = Color.Red
End If
Next i