控件初始检查赋值情况,求助
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