Aufruf einer SUB aus einer Klasse aus einem Namespace VB.Net

Ich habe einen Code, aber kann es nicht funktionieren. Ich habe eine .vb-Site mit einem Namespace und einer Klasse und einem Sub. Dann auf meiner index.aspx Seite ich kann nicht dieses Unter nennen Die zwei Standorte in der Wurzel meines Projekts ist, und der Name des Projekts ist CalendarWeekAufruf einer SUB aus einer Klasse aus einem Namespace VB.Net

Mein WeekController.vb ist

Imports System 
Imports System.Web.UI.WebControls.Calendar 
Imports System.Globalization 

Namespace CalendarWeekController 
    Public Class WeekShow 

    Shared Sub Main() 
     ' Gets the Calendar instance associated with a CultureInfo. 
     Dim myCI As New CultureInfo("da-DK") 
     Dim myCal As Calendar = myCI.Calendar 

     ' Gets the DTFI properties required by GetWeekOfYear. 
     Dim myCWR As CalendarWeekRule = myCI.DateTimeFormat.CalendarWeekRule 
     Dim myFirstDOW As DayOfWeek = myCI.DateTimeFormat.FirstDayOfWeek 

     ' Displays the number of the current week relative to the beginning of the year. 
     Console.WriteLine("The CalendarWeekRule used for the en-US culture is {0}.", myCWR) 
     Console.WriteLine("The FirstDayOfWeek used for the en-US culture is {0}.", myFirstDOW) 
     Console.WriteLine("Therefore, the current week is Week {0} of the current year.", myCal.GetWeekOfYear(DateTime.Now, myCWR, myFirstDOW)) 

     ' Displays the total number of weeks in the current year. 
     Dim LastDay = New System.DateTime(DateTime.Now.Year, 12, 31) 
     Console.WriteLine("There are {0} weeks in the current year ({1}).", myCal.GetWeekOfYear(LastDay, myCWR, myFirstDOW), LastDay.Year) 
    End Sub 'Main 


End Class

End Namespace

And My index.aspx ist

<%@ Import Namespace="CalendarWeekController" %> 
<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="index.aspx.vb" Inherits="" %> 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> 

<html xmlns="http://www.w3.org/1999/xhtml"> 
<head runat="server"> 
    <title></title> 
</head> 
<body> 
    <form id="form1" runat="server"> 
    <div> 
    <% 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

     If Me.IsPostBack = False Then 
     Call WeekShow(Sub Main) 

     End If 
    End Sub 

%> 
    </div> 
    </form> 
</body> 
</html>

ich diese Fehlermeldung erhalten, wenn die Seite ausgeführt wird. Beschreibung: Beim Parsen einer Ressource, die für die Bearbeitung dieser Anforderung erforderlich ist, ist ein Fehler aufgetreten. Bitte überprüfen Sie die folgenden speziellen Syntaxfehlerdetails und ändern Sie Ihre Quelldatei entsprechend.

Parser Fehlermeldung: Der Typ 'CalendarWeek.CalendarWeekController' konnte nicht geladen werden.

Quellfehler:

Zeile 1: <% @ Import Namespace = "CalendarWeekController" %> Zeile 2: <% @ Page Language = "vb" AutoEventWireup = "false" Inherits = "CalendarWeek.CalendarWeekController" %> Zeile 3: Zeile 4:

Quelle

2010-11-23 Thomas Bøg Petersen

Sie müssen gemeinsam genutzte Subs mit Classname.Subname anrufen. In Ihrem Fall:

WeekShow.Main()

Quelle

2010-11-23 21:51:51

hallo, wenn ich es fast arbeiten, dass Code ändert, erhalte ich diesen Fehler jetzt: Statement nicht innerhalb einer Methode Körper auftreten können. Ende der Methode angenommen. Und dieser: 'End Sub' muss ein passender 'Sub' vorangestellt werden. –

Warum verwenden Sie die Codebehind-Datei nicht? Verwenden Sie Visual Studio? Wenn nicht, werfen Sie einen Blick auf diesen Link: http://www.asp101.com/articles/john/codebehindnovs/default.asp Aber Visual Studio Express ist kostenlos: http://www.microsoft.com/express/Downloads/# 2010-Visual-Basic Sehen Sie sich das Seitenmodell an, insbesondere den Codebehind-Teil: http://msdn.microsoft.com/en-us/library/015103yb.aspx –

Aufruf einer SUB aus einer Klasse aus einem Namespace VB.Net

Antwort

Verwandte Themen