当我试图叫这艘潜艇时,我正面临着一个死胡同:
Public Sub backblue(ByVal frm As Form, ByVal boxname As String)
For i = 1 To 3
CType(frm.Controls(boxname & i.ToString()), TextBox).BackColor = Color.LightBlue
Next
End Sub使用按钮单击事件:
Private Sub Button1_click and bla bla....
backblue(Me, "txb1_")
End Sub有人能给我提个解决密码的建议吗。
它引发“对象引用未设置为实例bla bla”错误。
要了解更多信息,文本框名称是: txb1_1、txb1_2、txb1_3 (这些是表单中的许多文本框中的一些,我希望更改它的烘焙颜色)
这三个文本框已经通过设计器创建,而不是执行。
我检查了文本框的名字,没什么不对的。
表单类也是公共的。
发布于 2014-04-08 01:17:32
如果它们是所述表单上唯一的文本框,则只需遍历。
For Each box as Textbox In frm.Controls
box.BackColor = Color.LightBlue
Next发布于 2014-04-08 01:22:21
发布于 2014-04-08 02:18:16
实际上,这个循环生成的名称可能不是原始文本框的名称。我的建议是在设置此Color属性之前,验证此循环生成的名称确实是实际名称。也许可以在一个消息框中输出这个:
设置属性之前的每个循环的MessageBox.Show(boxname & i.ToString())。
https://stackoverflow.com/questions/22925476
复制相似问题