Vb.net error: unavailable due to protection level

This is my first time working with vb.net code, but I have 5 years experience working with C #. From the previous developer, I was told that the code that is on the server works fine without any errors, but as soon as I opened the website folder (there is no solution file on the website), I tried to create the website and I received tons bugs saying:

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

This happens for all the two-page controls that I have opened so far. Honestly, I'm afraid to open more pages :).

Here are parts of the markup code, logic, and designer for one of the files:

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> 

Logics:

 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 

Designer:

 '------------------------------------------------------------------------------ ' <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 

Here are some of the errors I get:

Screenshothot

Please let me know what you think is the reason. I look forward to hearing from you soon. Thanks Laziale

+7
source share
1 answer

If your code is copied verbatim, then the class name in the Logic block has a spelling error and does not match the name in the constructor file. This makes it be interpreted as two separate classes, which causes errors. Code in one file cannot reference objects defined in another file.

Correct the class name in the logical block so that it matches the constructor block and the errors should disappear.

Change I noticed that it was written with an error in the first line of the markup file. Remember to also correct the class name.

+3
source

All Articles