Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in Microsoft.VisualBasic.dll aufgetreten.

Hübi · 17. Mai 2016, 17:33

Hallo,

ich hoffe ich bin hier richtig gelandet und jemand von euch kann mir evtl. weiterhelfen..

ich habe ein Programm, das Zyklisch die Verbindung zum Internet überprüfen soll.

-besteht keine Verbindung Soll das eine Unterprogramm abgearbeitet werden
-besteht eine Verbindung soll das andere Unterprogramm abgearbeitet werden

Dies habe ich versucht durch einen Timer zu realisieren, der eine Variable Hochzählt, die im Verlauf des Programmes wieder auf 0 gesetzt wird.
Das Programm läuft auch, nur leider Stürzt es nach einer gewissen Laufzeit ab... (zwischen 3 tagen bis 2 Wochen)

jetzt habe ich gesehen das In Visual Basic im Direkt Fenster folgende Meldung angezeigt wird:
Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in Microsoft.VisualBasic.dll aufgetreten.

dieser Meldung wird nur angezeigt, wenn keine Internetverbindung besteht und Die Variable "Zeit" nach 3 Sekunden wieder auf 0 zurück gesetzt wird.
wie kann ich diesen Fehler vermeiden?

Bin noch Programmieranfänger und habe bis jetzt hauptsächlich Microcontroller mit Bascom Programmiert

Gruß Hübi

VB.NET-Quellcode

　
Public Class Form1
Dim siteResponds As Boolean = False
Dim zeit As Double
Dim Zeit_Schnell As Double
' ********************************************************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Timer1.Start() 'starte Timer1
　
End Sub
' ********************************************************************************
'
　
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
　
　
　
zeit = zeit + 1 'Addiere bei ablauf des Timers Variable Zeit + 1
Zeit_Schnell = Zeit_Schnell + 1 'Addiere bei ablauf des Timers Variable Zeit_schnell + 1
　
　
　
'-------------------------------Takt für aktualisierung der Label----------------------------------
If Zeit_Schnell > 0 Then 'Wenn Variable Zeit_schnell größer als 0 (100ms)ist, dann
Label1.Text = CStr(zeit) 'schreibe variable "Zeit" in Label1
Zeit_Schnell = 0 'Setze Variable Zeit_Schnell auf 0
End If
'-------------------------------Takt für abfrage der Verbindung-----------------
If zeit > 29 Then 'Wenn Variable Zeit größer als 29 (3Sekunden) ist, dann
Abfrage_Verbindung() 'gehe zu Unterprogramm
End If
'-------------------------------Takt für aufruf des Hauptprograms-----------------------------
If zeit > 99 Then 'Wenn Variable Zeit größer als 99 (10 Sekunden) ist, dann
zeit = 0 'Setze Variable Zeit auf 0
HAUPT_UNTERPROGRAMM() 'Gehe zu Unterprogramm
End If
End Sub
'----------------------------------------------Haupt Programm----------------------------------------
Sub HAUPT_UNTERPROGRAMM()
MessageBox.Show("Hauptprogram wird ausgeführt")
If siteResponds = False Then
Return
End If
End Sub
'---------------------------------------------Unterprogram Abfrage Verbindung------------------------
　
Sub Abfrage_Verbindung()
Try 'Versuche:
siteResponds = My.Computer.Network.Ping("www.google.com") 'Website Google.de anzupingen
Catch 'wenn gefunden, dann
siteResponds = False 'setze Variable siteResponds auf False
Label2.Text = "es besteht keine Internet Verbindung" 'Zeige Text "es besteht keine Internet Verbindung"
zeit = 0 ' HIER WIRD DER FEHLER VERURSACHT!!!!!!!!!!!!!!!!!
　
End Try
If siteResponds = True Then 'Wenn Variable siteResponds True ist, dann
Label2.Text = "Verbindung mit Internet besteht" 'Zeige text "Verbindung mit Internet besteht"
End If
　
　
End Sub
　
　
'-------------------------------------------------------------------------
　
　
End Class

RodFromGermany · 17. Mai 2016, 18:35

Hübi schrieb:

Stürzt es nach einer gewissen Laufzeit ab

Willkommen im Forum. :thumbup:

Leider kann ich Deinen Effekt nicht reproduzieren, da ich keine Lust habe, Deinen Code 3 Tage bis 2 Wochen laufen zu lassen.

Zunächst denke ich jedoch, dass Dein Programm nicht das macht, was Du Dir einbildest, was es tun soll:

Unter genau welchen Bedingungen soll Frau Google angepingt werden?
Wann wird in Deinem Programm Frau Google angepingt?
Stürzt Dein Programm häufiger / seltener ab, wenn Du das Timer-Intervall verringerst / erhöhst?
In welcher Zeile wird die Exception ausgelöst?
Wie viele MessageBoxen sind da zu sehen?

Cell · 17. Mai 2016, 18:57

Hi und willkommen hier im Forum.

Was mir als erstes auffällt ist das du zum prüfen der Internetverbindung einen Try catch Block verwendest.

Also einen solchen Block sollte man nur verwenden wenn man weis das an einer bestimmten Stelle ein Programmfehler auftreten kann den ich als Programmierer nicht auf andere weise verhindern kann. Um dem Programm dann einen "sauberen Absturz" zu ermöglichen nutzt man einen Try Catch Block... aber nicht als Abfrage.

VB.NET-Quellcode

If My.Computer.Network.Ping("www.google.com") Then
MsgBox("Server pinged successfully.")
Else
MsgBox("Ping request timed out.")
End If

Mein Schnipsel macht das gleiche wie deines auch. Aber ich Produziere keinen Fehler

Hübi · 17. Mai 2016, 19:46

danke für die schnellen Antworten

@ Rodfromgermany

-alle 3 Sekunden
- in Zeile 59 wird zum Unterprogram "Abfrage_Verbindung()" gesprungen (Zeile 95)
- kann ich nicht wirklich sagen ist ziemlich sporadisch
-Zeile 107 Vermute ich- wenn ich "Zeit = 0" ausklammer wird die Meldung nicht angezeigt
-der Fehler erscheint nicht in einer Messagebox, er ist nur unten im Direktfenster zu sehnen und wird immer ausgelöst nachdem die Variable Zeit von 30 auf 0 zurückgesetzt wird

@Cell

habe es mal mit deinem Code probiert, leider das gleiche Ergebnis...
das Programm lässt sich damit nicht einmal in Dauer ausführen, bei meinem Code wird der Fehler scheinbar ignoriert

VB.NET-Quellcode

Sub Abfrage_Verbindung()
　
If My.Computer.Network.Ping("www.google.com") Then
　
siteResponds = True
Label2.Text = "Verbindung mit Internet besteht"
Else
siteResponds = False
Label2.Text = "es besteht keine Internet Verbindung" 'Zeige Text "es besteht keine Internet Verbindung"
zeit = 0
　
　
End If
end sub

Fakiz · 17. Mai 2016, 20:00

Stoppe den Timer wenn die timer_Tick Methode betreten wird und starte ihn wieder wenn die Methode verlassen wird.

Hübi · 17. Mai 2016, 20:10

du meinst so?

der Fehler tritt leider genauso wie vorher auf

VB.NET-Quellcode

Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
　
Timer1.Stop()
zeit = zeit + 1 'Addiere bei ablauf des Timers Variable Zeit + 1
Zeit_Schnell = Zeit_Schnell + 1 'Addiere bei ablauf des Timers Variable Zeit_schnell + 1
　
　
　
'-------------------------------Takt für aktualisierung der Label----------------------------------
If Zeit_Schnell > 0 Then 'Wenn Variable Zeit_schnell größer als 0 (100ms)ist, dann
Label1.Text = CStr(zeit) 'schreibe variable "Zeit" in Label1
Zeit_Schnell = 0 'Setze Variable Zeit_Schnell auf 0
End If
'-------------------------------Takt für abfrage der Verbindung-----------------
If zeit > 29 Then 'Wenn Variable Zeit größer als 29 (3Sekunden) ist, dann
Abfrage_Verbindung() 'gehe zu Unterprogramm
End If
'-------------------------------Takt für aufruf des Hauptprograms-----------------------------
If zeit > 99 Then 'Wenn Variable Zeit größer als 99 (10 Sekunden) ist, dann
zeit = 0 'Setze Variable Zeit auf 0
HAUPT_UNTERPROGRAMM() 'Gehe zu Unterprogramm
End If
Timer1.Start()
End Sub

Cell · 17. Mai 2016, 22:58

Der Fehler liegt nicht an der Variable Zeit die auf 0 gesetzt wird sondern danach

VB.NET-Quellcode

If zeit > 99 Then 'Wenn Variable Zeit größer als 99 (10 Sekunden) ist, dann

zeit = 0 'Setze Variable Zeit auf 0

HAUPT_UNTERPROGRAMM() 'Gehe zu Unterprogramm

End If

Nachdem zu die Variable Zeit auf 0 gesetzt Hast rufst du in deinem Programm die Prozedur HAUPT_UNTERPROGRAMM() auf.

Wenn ich mir diese Prozedur ansehe fällt mir als erstes der Return Befehl auf der hier nicht hin gehört.

VB.NET-Quellcode

Sub HAUPT_UNTERPROGRAMM()

MessageBox.Show("Hauptprogram wird ausgeführt")

If siteResponds = False Then

Return

End If

End Sub

Der Return Befehl ist für Funktionen gedacht. der Unterschied zwischen Funktionen und Prozeduren ist, dass eine Funktion immer einen Wert zurück gibt. Eine Prozedur dagegen kann aber keinen Wert zurückgeben.

Beispiel einer Funktion

VB.NET-Quellcode

Private Funktion multiplikation() as Decimal 'Hier kann man schon deutlich sehen, dass hier ein Wert vom Typ Decimal zurückgegeben wird
Return 5*4 ' Mit dem Return Befehl übergibt die Funktion den anschließeden Wert
End Function

Eine Prozedur dagegen hat keinen Datentyp weil es ja auch nichts übergeben kann. Also kann es mit deinem Return auch nichts anfangen und wirft desswegen einen Fehler

Fakiz · 18. Mai 2016, 00:04

du meinst so?

Ja das meinte ich, dass solltest du generell so halten der Timer läuft ja weiter und wird eventuell ernuet gefeuert bevor deine Methoden -Aufrufe abgearbeitet wurden.
Der Fehler selbst dürte an dem Ping liegen. Wenn ich mich nicht irre behergergt die VisualBasic.dll den NameSpace My. Daher ist davon auszugehen das hier das Problem ist.

Ein kleines Beispiel für einen Ping

Spoiler anzeigen

Aufrufen kannst du das dann so

Spoiler anzeigen

Cell · 18. Mai 2016, 09:51

Der Fehler selbst dürte an dem Ping liegen. Wenn ich mich nicht irre behergergt die VisualBasic.dll den NameSpace My. Daher ist davon auszugehen das hier das Problem ist.

Er bekommt eine InvalidOperatonException
Die Ausnahme, die ausgelöst wird, wenn der Aufruf einer Methode aufgrund des aktuellen Zustands des Objekts ungültig ist.

Das kann wohl kaum an dem Ping liegen. Dieser Fehler wird ausgelöst weil er eine Prozedur wie eine Funktion behandelt. Und ihr eine Variable zuweisen will. Da man Prozeduren keine Variablen zuweisen kann knallts dann.

WhitePage · 18. Mai 2016, 10:00

Dann würde es nicht erst nach 3 Tagen knallen. Return ist zwar keine feine Art in einer Sub, löst aber keinen Fehler in der Laufzeit aus.

Fakiz · 18. Mai 2016, 13:19

Das kann wohl kaum an dem Ping liegen

Davon würde ich ausgehen. Hier wird über Tage ein Objekt erstellt ohne es nach dem Gebrauch wieder zu zerstören.

Hübi · 18. Mai 2016, 18:14

@Cell
ich habe es mal ohne Return ausprobiert, -keine Besserung außerdem kommt die Meldung InvalidOperatonException nur wenn das HAUPT_UNTERPROGRAMM()
gar nicht ausgeführt wird.

@Fakiz
habe dein Beispiel einmal versucht zu benutzen. Leider zeigt es mir hier eine Ausnahme des Typs "System.Net.NetworkInformation.PingException" in Zeile 119 sobald die Variable Zeit bis 30 gezählt hat.

VB.NET-Quellcode

　
　
Option Explicit On
Option Strict On
Imports System.Text.RegularExpressions
　
　
Public Class Form1
Dim siteResponds As Boolean '= False
Dim zeit As Double
Dim Zeit_Schnell As Double
' ********************************************************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Timer1.Start() 'starte Timer1
End Sub
　
　
　
　
' ********************************************************************************
'
　
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
　
zeit = zeit + 1 'Addiere bei ablauf des Timers Variable Zeit + 1
Zeit_Schnell = Zeit_Schnell + 1 'Addiere bei ablauf des Timers Variable Zeit_schnell + 1
　
'-------------------------------Takt für aktualisierung der Label----------------------------------
If Zeit_Schnell > 0 Then 'Wenn Variable Zeit_schnell größer als 0 (100ms)ist, dann
Label1.Text = CStr(zeit) 'schreibe variable "Zeit" in Label1
Zeit_Schnell = 0 'Setze Variable Zeit_Schnell auf 0
End If
'-------------------------------Takt für abfrage der Verbindung-----------------
If zeit > 29 Then 'Wenn Variable Zeit größer als 29 (3Sekunden) ist, dann
If (siteResponds = IsHostAvailable("http://www.google.de")) Then
Label2.Text = "Verbindung mit Internet besteht"
　
'-------------------------------Takt für aufruf des Hauptprograms-----------------------------
If zeit > 99 Then 'Wenn Variable Zeit größer als 99 (10 Sekunden) ist, dann
zeit = 0 'Setze Variable Zeit auf 0
HAUPT_UNTERPROGRAMM() 'Gehe zu Unterprogramm
End If
Else
　
Label2.Text = "es besteht keine Internet Verbindung"
zeit = 0
End If
End If
　
Timer1.Start()
End Sub
　
　
Private Function IsHostAvailable(ByVal host As String) As Boolean
Using ping As New System.Net.NetworkInformation.Ping()
Dim replay As System.Net.NetworkInformation.PingReply = ping.Send(host, 2000)
' 2000 setzt ein TimeOut für den Ping
If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then
Return (True)
Else
Return (False)
End If
End Using
End Function
　
'----------------------------------------------Haupt Programm----------------------------------------
Sub HAUPT_UNTERPROGRAMM()
MessageBox.Show("Hauptprogram wird ausgeführt")
　
End Sub
End Class

Fakiz · 18. Mai 2016, 18:45

Mach aus http://www.google.de google.de

VB.NET-Quellcode

siteResponds = IsHostAvailable("google.de")
If (siteResponds) Then
...

RodFromGermany · 18. Mai 2016, 19:56

@Hübi Du hast den Fehler nicht bemerkt, den ich meinte.

Hübi schrieb:

VB.NET-Quellcode

If zeit > 29 Then

Hier wird in jedem Durchlauf nach dem 29. Durchlauf die Verbindung getestet. Ist das so gewollt?

Hübi schrieb:

VB.NET-Quellcode

If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then

Return (True)

Else

Return (False)

End If

machst Du ganz einfach

VB.NET-Quellcode

Return (replay.Status = System.Net.NetworkInformation.IPStatus.Success)

Hübi · 18. Mai 2016, 20:41

@Fakiz
Super, damit klappt es soweit, das keine Ausnahme mehr auftritt
nur leider wird jetzt in 95% der abfragen keine Internet Verbindung erkannt

VB.NET-Quellcode

Option Explicit On
Option Strict On
Imports System.Text.RegularExpressions
　
Public Class Form1
Dim siteResponds As Boolean '= False
Dim zeit As Double
Dim Zeit_Schnell As Double
' ********************************************************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Timer1.Start() 'starte Timer1
End Sub
Private Function IsHostAvailable(ByVal host As String) As Boolean
Using ping As New System.Net.NetworkInformation.Ping()
Dim replay As System.Net.NetworkInformation.PingReply = ping.Send(host, 2000)
' 2000 setzt ein TimeOut für den Ping
If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then
Return (True)
Else
Return (False)
End If
End Using
End Function
' ********************************************************************************
　
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()　
zeit = zeit + 1 'Addiere bei ablauf des Timers Variable Zeit + 1
Zeit_Schnell = Zeit_Schnell + 1 'Addiere bei ablauf des Timers Variable Zeit_schnell + 1
　
'-------------------------------Takt für aktualisierung der Label----------------------------------
If Zeit_Schnell > 0 Then 'Wenn Variable Zeit_schnell größer als 0 (100ms)ist, dann
Label1.Text = CStr(zeit) 'schreibe variable "Zeit" in Label1
Zeit_Schnell = 0 'Setze Variable Zeit_Schnell auf 0
End If
'-------------------------------Takt für abfrage der Verbindung-----------------
If zeit = 29 Then 'Wenn Variable Zeit größer als 29 (3Sekunden) ist, dann
If (siteResponds = IsHostAvailable("google.de")) Then
Label2.Text = "Verbindung mit Internet besteht"
Else
Label2.Text = "es besteht keine Internet Verbindung"
zeit = 0
End If
End If
Timer1.Start()
End Sub
End Class

@ Rodfromgermany

Ja, da hast du recht das ist so nicht gewollt- die Abfrage soll nur einmal alle 3 Sekunden erfolgen...

ich hab aus dem > mal ein = gemacht

Fakiz · 18. Mai 2016, 20:54

Das liegt daran

VB.NET-Quellcode

If (siteResponds = IsHostAvailable("google.de")) Then

änder das in

VB.NET-Quellcode

siteResponds = IsHostAvailable("google.de")
If (siteResponds) Then

oder einfach die Variable siteResponds weglassen und nur

VB.NET-Quellcode

If IsHostAvailable("google.de") Then

Hübi · 18. Mai 2016, 21:29

Danke Fakiz
damit klappt es wenn eine Verbindung besteht- aber jetzt wird sobald keine Internet Verbindung besteht und die Abfrage kommt die Fehlermeldung:
"PingException wurde nicht behandelt" ausgegeben

muss da noch irgendwie eine Reaktion auf ein negatives Ping eingebaut werden?

VB.NET-Quellcode

　　
Option Explicit On
Option Strict On
Imports System.Text.RegularExpressions
　　
Public Class Form1
Dim siteResponds As Boolean '= False
Dim zeit As Double
Dim Zeit_Schnell As Double
' ********************************************************************************
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Timer1.Start() 'starte Timer1
End Sub
　
Private Function IsHostAvailable(ByVal host As String) As Boolean
Using ping As New System.Net.NetworkInformation.Ping()
Dim replay As System.Net.NetworkInformation.PingReply = ping.Send(host, 2000)
' 2000 setzt ein TimeOut für den Ping
If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then
Return (True)
Else
Return (False)
End If
End Using
End Function
　
' ********************************************************************************
'
Public Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Timer1.Stop()
zeit = zeit + 1 'Addiere bei ablauf des Timers Variable Zeit + 1
Zeit_Schnell = Zeit_Schnell + 1 'Addiere bei ablauf des Timers Variable Zeit_schnell + 1
　
'-------------------------------Takt für aktualisierung der Label----------------------------------
If Zeit_Schnell > 0 Then 'Wenn Variable Zeit_schnell größer als 0 (100ms)ist, dann
Label1.Text = CStr(zeit) 'schreibe variable "Zeit" in Label1
Zeit_Schnell = 0 'Setze Variable Zeit_Schnell auf 0
End If
'-------------------------------Takt für abfrage der Verbindung-----------------
If zeit = 29 Then 'Wenn Variable Zeit größer als 29 (3Sekunden) ist, dann
'siteResponds = IsHostAvailable("google.de")
'If (siteResponds) Then
If IsHostAvailable("google.de") Then
Label2.Text = "Verbindung mit Internet besteht"
Else
Label2.Text = "es besteht keine Internet Verbindung"
zeit = 0
End If
End If
'-------------------------------------------------------------------------------------
If zeit > 99 Then
zeit = 0
End If
Timer1.Start()
End Sub
End Class

Fakiz · 18. Mai 2016, 21:37

Diese Exception musst du abfangen. Das machst du mit einem Try -Catch Block.

VB.NET-Quellcode

Try
Dim replay As System.Net.NetworkInformation.PingReply = ping.Send(host, 2000)
If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then
Return (True)
Else
Return (False)
End If
Catch PingException
Return False
End Try

RodFromGermany · 19. Mai 2016, 08:30

Hübi schrieb:

die Abfrage soll nur einmal alle 3 Sekunden erfolgen...

Dann schmeiß alle Deine Variablen weg:
Deine Variable Zeit_Schnell pendelt z.B. nur zwischen 0 und 1.
Mach Dir nur einen 3-Sekunden-Timer, der jedes Mal das Web abfragst. Feddich.

BiedermannS · 19. Mai 2016, 14:02

Oder du verwendest einfach keinen Timer, sondern baust dir eine richtige Klasse die das ordentlich für dich erledigt:

Spoiler anzeigen

VB.NET-Quellcode

Public Class OnlineThread
Public Delegate Sub OnlineThreadCallback(ByVal Online As Boolean)
Public Sub New(ByRef Callback As OnlineThreadCallback, ByVal Host As String, ByVal Interval As Integer)
_Callback = Callback
_Host = Host
_Interval = Interval
End Sub
' Check if at least one interface is connected
Private Function CheckConnectionState() As Boolean
Dim networkInterfaceList As System.Net.NetworkInformation.NetworkInterface() = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
For Each networkInterface As System.Net.NetworkInformation.NetworkInterface In networkInterfaceList
If networkInterface.OperationalStatus = Net.NetworkInformation.OperationalStatus.Up Then
Return True
End If
Next
Return False
End Function
Private Function CheckIfHostIsReachable(ByVal Host As String) As Boolean
CheckIfHostIsReachable = False
Using ping As New System.Net.NetworkInformation.Ping()
Try
Dim replay As System.Net.NetworkInformation.PingReply = ping.Send(Host, _Interval \ 2)
If replay.Status = System.Net.NetworkInformation.IPStatus.Success Then
CheckIfHostIsReachable = True
End If
Catch
End Try
End Using
End Function
Private Sub Execute()
Dim connected As Boolean = False
While _Running
connected = CheckConnectionState() AndAlso CheckIfHostIsReachable(_Host)
_Callback(connected)
Threading.Thread.Sleep(_Interval)
End While
End Sub
Public Sub StartThread()
_Running = True
_Thread = New Threading.Thread(AddressOf Execute)
_Thread.IsBackground = True
_Thread.Start()
End Sub
Public Sub StopThread()
_Running = True
End Sub
Private _Running As Boolean = False
Private _Host As String
Private _Interval As Integer
Private _Thread As Threading.Thread
Private _Callback As OnlineThreadCallback
End Class

Verwenden kannst du das ganze dann so:

Spoiler anzeigen

Edit:
Kleiner Nachtrag zu:

Cell schrieb:

Dieser Fehler wird ausgelöst weil er eine Prozedur wie eine Funktion behandelt.

Ein Return heißt nicht, dass eine Methode wie eine Funktion behandelt wird. Man kann in VB.Net keine Methode wie eine Funktion behandeln (zumindest nicht durch Standard Syntax).

Return bedeutet nur, dass die Funktion an dieser Stelle verlassen wird. Bei Funktionen kann man zusätzlich noch einen Return Wert angeben. Das ist in so ziemlich allen gängigen Programmiersprachen so und absoluter Standard. Wenn man aus einer Methode/Funktion raus will, nutzt man eben Return.

Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in Microsoft.VisualBasic.dll aufgetreten.

Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in Microsoft.VisualBasic.dll aufgetreten.

VB.NET-Quellcode

Hübi schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Hübi schrieb:

VB.NET-Quellcode

Hübi schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Hübi schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Cell schrieb:

Ähnliche Themen

6 Benutzer haben hier geschrieben