vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Fehlermeldungen 
Autor: Pite
Datum: 19.12.02 12:46

Hallo Ihr alle,

Beim Üben an verschiedenen Beispielen habe ich aus einer einem Buch beiliegenden CD-ROM den unten stehenden Beispielcode in ein Modul kopiert.
An drei Stellen bekomme ich Fehlermeldungen, die ich mir selber (noch fehlender Durchblick) nicht recht erklären kann. So Schaffe ich doch im zwieten Teil der des aufgelisteten Codes die Klasse "Spieler" und verwende oben in der zweiten Zeile den Befehl "Imports Spieler.Spieler".
Die Folge ist diese Fehlermeldung:
Der Namespace oder Typ 'Spieler' für Imports 'Spieler.Spieler' wurde nicht gefunden. (Zeile 2)

Desweiteren ist mir nicht klar, warum die Deklaration "Friend Shared TeamName As String" im oberen Teil des Codes - der Shared Sub Main() - nicht erkannt wird.
"Der Name 'TeamName' wurde nicht deklariert. (Zeilen 11 und 16)" lautet hier meine Fehlermeldung.
Wenn mir hier jemand von Euch die Augen öffnen könnte, wäre das wirklich klasse !!

Vielen Dank im Voraus!!
Hier der Code:


Imports System.Console
Imports Spieler.Spieler

Namespace Spieler
Class app

Shared Sub main()
'spieler.
Dim oSpieler1 As New Spieler("Nkmeba Nonfete")
Dim oSpieler2 As New Spieler("Lothar Mathäus", 11)
TeamName = "1. FC Güthersloh"
oSpieler1.Ausgabe()
oSpieler2.Ausgabe()
WriteLine("Das Team heisst: {0}", oSpieler1.TeamName)
WriteLine("Das Team heisst: {0}", Spieler.TeamName)
WriteLine("Das Team heisst: {0}", TeamName)
ReadLine()
End Sub
End Class

Class Spieler
Private stSpielerName As String
Private bySpielerNr As Byte
Friend Shared TeamName As String

Sub New(ByVal Name As String)
stSpielerName = Name
End Sub

Sub New(ByVal Name As String, ByVal SpielerNr As Byte)
stSpielerName = Name
bySpielerNr = SpielerNr
End Sub

Sub Ausgabe()
WriteLine("Spielername: {0} Spieler-Nr: {1} Team: {2}", _
stSpielerName, bySpielerNr, TeamName)
End Sub
End Class

End Namespace
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Fehlermeldungen663Pite19.12.02 12:46
Re: Fehlermeldungen358Vampire66619.12.02 13:18
Re: Fehlermeldungen452Pite19.12.02 13:39
Re: Fehlermeldungen415Vampire66619.12.02 13:42
Re: Fehlermeldungen405Pite19.12.02 13:50
Re: Fehlermeldungen378Vampire66619.12.02 13:59
Re: Fehlermeldungen432Pite19.12.02 14:09
Re: Fehlermeldungen387Vampire66619.12.02 14:17
Re: Fehlermeldungen390Pite19.12.02 14:19

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel