首先,提前感谢您的帮助。我遇到了一个问题,即表示" ' CON'没有声明。由于它的保护级别,它可能是不可能的。我无法弄清楚主要问题是什么。如果你能帮助我解决这个问题,我会非常高兴。
Private Function KayitVarmi(ByVal T_SayacNo As String, ByVal SayacAciklama As
String) As BooleanDim
PnlTemp As New Panel
KayitVarmi = True = False
kayitSiraNo = 1
For Each con As Control In PanelAna.Controls
If TypeOf con Is Panel Then
If Mid(con.Name, 1, 3) = "Pnl" Then
If T_SayacNo = Mid(con.Name, 4, 8) Then
'SQL_Data_Al()
con.BackgroundImage = Panel8.BackgroundImage
KayitVarmi = True
Else
con.BackgroundImage = My.Resources.KKK
End If
End If
End If
Next
End Function
答案 0 :(得分:0)
在这种情况下,' CON'没有声明。由于它的保护,它可能是不可能的 水平。
con
是Control
的一个实例,它是从集合PanelAna.Controls
获取的。您正在迭代该集合,每次迭代都会为您提供一个新实例。
您的类可能与设计器文件中的类名不匹配,可能采用不同的形式?这会导致它被解释为两个单独的类,从而导致错误。一个文件中的代码无法引用另一个文件中定义的对象。
注意:在VS2012上访问设计器文件代码,转到顶部的Solution Explorer
,单击两个文档旁边的图标(显示所有文件),然后展开Form.vb以查看Designer代码。
示例强>
'Panel1
'
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.Button1)
Me.Panel1.Location = New System.Drawing.Point(40, 28)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(200, 100)
Me.Panel1.TabIndex = 0