Question

这个函数在我的代码页面后面完美地运行，但是我需要全局访问这个函数。所以我将它移动到app_code文件夹。现在，我对如何以我的新app_code文件函数找到它的方式声明我的标签ID感到有点迷茫。

我的错误消息=错误35'未声明Label1'。由于其保护级别，它可能无法访问。注意：我的代码隐藏文件

中没有出现此错误

日Thnx

命名空间BranchHours Public Class branchHours

    ' Public Shared Property Label1 As Object


    Public Shared Function MyFunc(ByVal branchCode As String) As String

        Dim URLString As String = "url/branchesTesting.xml"
        Dim xmlDoc As XDocument = XDocument.Load(URLString)
        ' Dim root As XmlNode = xmlDoc.DocumentElement
        '    Dim hoursList As XmlNodeList = root.SelectNodes("/BranchesInfo/BranchInfo[BranchId='db']/BranchHours/Hours")

        Dim x As Integer = 0 'looping variable

        Dim branchid = xmlDoc.XPathSelectElements("/BranchesInfo/BranchInfo[BranchId='" & branchCode & "']/BranchHours/Hours")
        Dim branchname = xmlDoc.XPathSelectElements("/BranchesInfo/BranchInfo[BranchId='" & branchCode & "'/Name]/BranchHours/Hours")

        Dim Items = From BranchHours In xmlDoc.XPathSelectElements("/BranchesInfo/BranchInfo[BranchId='" & branchCode & "']/BranchHours/Hours") _
        Select DayOfWeek = BranchHours.Element("DayOfWeek").Value, Open = BranchHours.Element("Open").Value, _
        Close = BranchHours.Element("Close").Value

        Label1.Text = ""
        For Each Hours In Items
            ' If x = 0 Then
            '  Label1.Text = Label1.Text & "<div>DayOfWeek:" & Hours.DayOfWeek & "</div>" + vbLf
            Label1.Text = Label1.Text & "<div>DayOfWeek:" & Hours.DayOfWeek & "</div>" + vbLf
            Label1.Text = Label1.Text & "Open: " & Hours.Open + vbLf
            Label1.Text = Label1.Text & "Close: " & Hours.Close + vbLf

            '    Else
            '     x = x + 1
            ' End If
        Next

        If Label1.Text = "" Then
            Label1.Text = "No Results."
        End If
        Return Label1.Text
    End Function


End Class

结束命名空间

Public Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
    Call BranchHours.branchHours.MyFunc("dr")

    Label1.Text = BranchHours.branchHours.MyFunc("dr")




End Sub







 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Default3bh.aspx.vb" Inherits="Default3bh" %>

  <asp:Content ID="Content1" ContentPlaceHolderID="HeadContent" Runat="Server">

</asp:Content>
<asp:Content ID="Content2" ContentPlaceHolderID="MainContent" Runat="Server">

    <asp:Label ID="Label1" runat="server"  For="label1"></asp:Label>

</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="AdditionalContent" Runat="Server">
</asp:Content>

Answer 1

Chetan Ranpariya的评论中回答了您应该创建一个字符串变量并从方法中返回它而不是在方法中使用Label1 - Chetan Ranpariya

App_Code函数问题：在App_Code函数中找不到/声明标签ID？

1 个答案: