由于保护水平无法访问

时间:2014-07-09 13:17:22

标签: vb.net

首先,提前感谢您的帮助。我遇到了一个问题,即表示" ' 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

1 个答案:

答案 0 :(得分:0)

  

' CON'没有声明。由于它的保护,它可能是不可能的   水平。

在这种情况下,

conControl的一个实例,它是从集合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