8

私はvb.netコードで初めて作業していますが、C＃で5年の経験があります。

以前の開発者から、サーバー上にあるコードはエラーなしで正常に実行されると言われましたが、Webサイトフォルダーを開くとすぐに（Webサイトにはソリューションファイルがありません）、サイトを構築しようとしました。次のようなエラーがたくさんあります。

'labelControl'は宣言されていません。保護レベルが原因でアクセスできない場合があります。

これは、これまでに開いた2つのページのすべてのコントロールで発生しています。

いずれかのファイルのマークアップ、ロジック、およびデザイナーコードの一部を次に示します。

マークアップ：

<%@ 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>

論理：

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

デザイナー：

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

これが私が得ているエラーのいくつかです：

スクリーンショット

この理由は何だと思いますか？

4

1 に答える 1

4

コードが逐語的にコピーされている場合、Logicブロックのクラス名のスペルが間違っており、デザイナーファイルの名前と一致しません。これにより、2つの別個のクラスとして解釈され、エラーが発生します。一方のファイルのコードは、もう一方のファイルで定義されているオブジェクトを参照できません。

ロジックブロックのクラス名をデザイナーブロックと一致するように修正すると、エラーが解消されます。

編集：マークアップファイルの最初の行でもスペルが間違っていることに気づきました。そこにもクラス名を修正してください。

于 2012-09-18T19:38:38.133 に答える