lỗi vb.net: không thể truy cập do mức độ bảo vệ

Question

Tôi đang làm việc lần đầu với mã vb.net, nhưng tôi có 5 năm kinh nghiệm với C#. Từ nhà phát triển trước, tôi được thông báo rằng mã trên máy chủ chạy tốt mà không có bất kỳ lỗi nào, nhưng ngay sau khi tôi mở thư mục trang web (trang web không có tệp giải pháp), tôi đã cố gắng xây dựng trang web và tôi đã tấn lỗi nói:

'labelControl' is not declared. It may be inaccessible due to its protection level.

Đó đang xảy ra cho tất cả các điều khiển trên hai trong số những trang tôi đã mở cho đến nay. Thành thật mà nói tôi sợ mở nhiều trang hơn :).

Dưới đây là các bộ phận của đánh dấu, logic và thiết kế mã cho một trong những tập tin:

Markup:

<%@ Page Title="" Language="vb" AutoEventWireup="false" MasterPageFile="~/Site.Master" CodeBehind="OverriedCalcValues.aspx.vb" Inherits="Homevesters.Overried_Calc_Values" %> 
<asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" runat="server">  
    </asp:Content> 
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" runat="server"> 
     <table cellpadding="5" border="1">        
     <tr> 
        <td class="style15"><asp:label ID="lblDoorJam1" runat="server" Font-Bold="true" Text="Door Jamb"/><br />Cost per door jamb replacement</td> 
        <td class="style38"><asp:label ID="lblFactorType1" runat="server" Text="$/Each"/></td> 
        <td class="style41"><asp:label ID="lblDoorJam" runat="server" Text=""/></td> 
        <td class="style32"><asp:CheckBox ID="ckDoorJam" runat="server"/></td> 
        <td class="style35">$<asp:TextBox ID="txtDoorJam" runat="server" Text="" Width="80px" /></td> 
     </tr> 

     <tr> 
        <td class="style16"><asp:label ID="lblExtDoor1" runat="server" Font-Bold="true" Text="Exterior Door"/><br />Cost per exterior door replacement</td> 
        <td class="style39"><asp:label ID="lblFactorType2" runat="server" Text="$/Each"/></td> 
        <td class="style42"><asp:label ID="lblExtDoor" runat="server" Text=""/></td> 
        <td class="style33"><asp:CheckBox ID="ckExtDoor" runat="server"/></td> 
        <td class="style36">$<asp:TextBox ID="txtExtDoor" runat="server" Text="" Width="80px" /></td> 
     </tr> 

     <tr> 
        <td class="style15"><asp:label ID="lblGarageSingle1" runat="server" Font-Bold="true" Text="Garage (1 Single)"/><br />Cost to replace one single garage door</td> 
        <td class="style38"><asp:label ID="lblFactorType3" runat="server" Text="$/Each"/></td> 
        <td class="style41"><asp:label ID="lblGarageSingle" runat="server" Text=""/></td> 
        <td class="style32"><asp:CheckBox ID="ckGarageSingle" runat="server"/></td> 
        <td class="style35">$<asp:TextBox ID="txtGarageSingle" runat="server" Text="" Width="80px" /></td> 
     </tr> 

     <tr> 
        <td class="style16"><asp:label ID="lblGarageDouble1" runat="server" Font-Bold="true" Text="Garage (1 Double)"/><br />Cost to replace one double garage door</td> 
        <td class="style39"><asp:label ID="lblFactorType4" runat="server" Text="$/Each"/></td> 
        <td class="style42"><asp:label ID="lblGarageDouble" runat="server" Text=""/></td> 
        <td class="style33"><asp:CheckBox ID="ckGarageDouble" runat="server"/></td> 
        <td class="style36">$<asp:TextBox ID="txtGarageDouble" runat="server" Text="" Width="80px" /></td> 
     </tr> 


     <tr> 
        <td class="style15"><asp:label ID="Label1" runat="server" Font-Bold="true" Text="Interior Door"/><br />Cost per interior door replacement</td> 
        <td class="style38"><asp:label ID="Label2" runat="server" Text="$/Each"/></td> 
        <td class="style41"><asp:label ID="lblInteriorDoor" runat="server" Text=""/></td> 
        <td class="style32"><asp:CheckBox ID="ckInteriorDoor" runat="server"/></td> 
        <td class="style35">$<asp:TextBox ID="txtInteriorDoor" runat="server" Text="" Width="80px" /></td> 
     </tr> 

     <tr> 
        <td class="style16"><asp:label ID="Label4" runat="server" Font-Bold="true" Text="Patio Door"/><br />Cost to replace one patio door</td> 
        <td class="style39"><asp:label ID="Label5" runat="server" Text="$/Each"/></td> 
        <td class="style42"><asp:label ID="lblPatioDoor" runat="server" Text=""/></td> 
        <td class="style33"><asp:CheckBox ID="ckPatioDoor" runat="server"/></td> 
        <td class="style36">$<asp:TextBox ID="txtPatioDoor" runat="server" Text="" Width="80px" /></td> 
     </tr> 

     <tr> 
        <td class="style15"><asp:label ID="Label3" runat="server" Font-Bold="true" Text="Patio Glass"/><br />Cost per patio glass replacement</td> 
        <td class="style38"><asp:label ID="Label6" runat="server" Text="$/Each"/></td> 
        <td class="style41"><asp:label ID="lblPatioGlass" runat="server" Text=""/></td> 
        <td class="style32"><asp:CheckBox ID="ckPatioGlass" runat="server"/></td> 
        <td class="style35">$<asp:TextBox ID="txtPatioGlass" runat="server" Text="" Width="80px" /></td> 
     </tr> 



       <tr>   
        <td class="style16"><asp:label ID="Label7" runat="server" Font-Bold="true" Text="Dishwasher"/><br />Cost to replace one dishwasher</td> 
        <td class="style39"><asp:label ID="Label8" runat="server" Text="$/Each"/></td> 
        <td class="style42"><asp:label ID="lblDishWasher" runat="server" Text=""/></td> 
        <td class="style33"><asp:CheckBox ID="ckDishwasher" runat="server"/></td> 
        <td class="style36">$<asp:TextBox ID="txtDishwasher" runat="server" Text="" Width="80px" /></td> 
     </tr>     
</table>     
</asp:Content> 

Logic:

Imports Homevesters 

Public Class Overried_Calc_Values 
    Inherits System.Web.UI.Page 

    Dim clsValueOrganization As New clsCalcValues 
    Dim clsValueDefaults As New clsCalcValues 


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

     If IsUserLoggedIn(Me) = False Then 
      Response.Redirect("~/Account/Login.aspx") 
      Exit Sub 
     End If 

     If IsPostBack = False Then 

      clsValueOrganization.Load("", False, Session("OrgID")) 

      clsValueDefaults.Load("", False, "DEFAULT") 

      ' c is dollar format with dollar symbol 
      lblDoorJam.Text = clsValueDefaults.dDoorJamb.ToString("c") 
      lblExtDoor.Text = clsValueDefaults.dExtDoor.ToString("c") 
      lblGarageSingle.Text = clsValueDefaults.dGarageDoorSgl.ToString("c") 
      lblGarageDouble.Text = clsValueDefaults.dGarageDoorDbl.ToString("c") 
      lblInteriorDoor.Text = clsValueDefaults.dIntDoor.ToString("c") 
      lblPatioDoor.Text = clsValueDefaults.dPatioDoor.ToString("c") 
      lblPatioGlass.Text = clsValueDefaults.dPatioGlass.ToString("c") 
      lblDishWasher.Text = clsValueDefaults.dDishwasher.ToString("c") 
      lblFans.Text = clsValueDefaults.dFans.ToString("c") 
      lblLightFixtures.Text = clsValueDefaults.dLightFixture.ToString("c") 
      lblServicePanel.Text = clsValueDefaults.dServicePanel.ToString("c") 
      lblRange.Text = clsValueDefaults.dRange.ToString("c") 
      lblRefrigerator.Text = clsValueDefaults.dRefrigerator.ToString("c") 
      lblStoveTop.Text = clsValueDefaults.dStoveTop.ToString("c") 
      lblVentHood.Text = clsValueDefaults.dVentHoods.ToString("c") 
      lblElectricalWiring.Text = clsValueDefaults.dWiringReplace.ToString("c") 
      lblFloorCovering.Text = clsValueDefaults.dFloorCover.ToString("c") 
      lblTileFloor.Text = clsValueDefaults.dTileFloor.ToString("c") 
      lblOldHouse4150.Text = clsValueDefaults.dOldHouse1.ToString("c") 
      lblOldHouse2140.Text = clsValueDefaults.dOldHouse2.ToString("c") 
      lblOldHouse0020.Text = clsValueDefaults.dOldHouse3.ToString("c") 
      lblOldHouse1900.Text = clsValueDefaults.dOldHouse4.ToString("c") 

      ckMedWood.Checked = Not (clsValueOrganization.dMdWoodWindow = clsValueDefaults.dMdWoodWindow) 
      ckSmallMet.Checked = Not (clsValueOrganization.dSmMetalWindow = clsValueDefaults.dSmMetalWindow) 
      ckSmallPane.Checked = Not (clsValueOrganization.dSmGlassPanes = clsValueDefaults.dSmGlassPanes) 
      ckSmallWood.Checked = Not (clsValueOrganization.dSmWoodWindow = clsValueDefaults.dSmWoodWindow) 



     End If 



    End Sub 



End Class 

Nhà thiết kế:

'------------------------------------------------------------------------------ 
' <auto-generated> 
'  This code was generated by a tool. 
' 
'  Changes to this file may cause incorrect behavior and will be lost if 
'  the code is regenerated. 
' </auto-generated> 
'------------------------------------------------------------------------------ 

Option Strict On 
Option Explicit On 


Partial Public Class Override_Calc_Values 

    '''<summary> 
    '''lblDoorJam1 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblDoorJam1 As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''lblFactorType1 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblFactorType1 As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''lblDoorJam control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblDoorJam As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''ckDoorJam control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents ckDoorJam As Global.System.Web.UI.WebControls.CheckBox 

    '''<summary> 
    '''txtDoorJam control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents txtDoorJam As Global.System.Web.UI.WebControls.TextBox 

    '''<summary> 
    '''lblExtDoor1 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblExtDoor1 As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''lblFactorType2 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblFactorType2 As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''lblExtDoor control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblExtDoor As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''ckExtDoor control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents ckExtDoor As Global.System.Web.UI.WebControls.CheckBox 

    '''<summary> 
    '''txtExtDoor control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents txtExtDoor As Global.System.Web.UI.WebControls.TextBox 

    '''<summary> 
    '''lblGarageSingle1 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblGarageSingle1 As Global.System.Web.UI.WebControls.Label 

    '''<summary> 
    '''lblFactorType3 control. 
    '''</summary> 
    '''<remarks> 
    '''Auto-generated field. 
    '''To modify move field declaration from designer file to code-behind file. 
    '''</remarks> 
    Protected WithEvents lblFactorType3 As Global.System.Web.UI.WebControls.Label 

End Class 

Dưới đây là một số e các lỗi Tôi nhận:

Xin vui lòng cho tôi biết những gì bạn nghĩ có thể là lý do. Tôi rất mong nhận được hồi âm của bạn sớm. Cảm ơn, Laziale

Answer 1

Nếu mã của bạn được sao chép đúng nguyên văn, tên lớp trong khối Logic sai chính tả và không khớp với tên trong tệp thiết kế. Điều này làm cho nó được hiểu là hai lớp riêng biệt, gây ra lỗi. Mã trong một tệp không thể tham chiếu các đối tượng được xác định trong tệp khác.

Khắc phục tên lớp trong khối lôgic để khớp với khối thiết kế và lỗi sẽ biến mất.

Chỉnh sửa: Tôi nhận thấy nó đã viết sai chính tả trong dòng đầu tiên của tệp đánh dấu. Hãy nhớ sửa tên lớp ở đó.