Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fehlerbehandlung
Autor: Hermann55
Datum: 26.02.12 18:10
Hallo Manfred X Danke erst mal für die Schnelle Antwort Warum ich VB6 versuche zu lernen na ja habe ein älteres Buch geschenkt bekommen (ist für so ein Oldtimer wie ich genau richtig) will es halt erst durcharbeiten und danach auf Vb.net umsteigen. Ich finde im moment Vb.net noch zu schwer für mich. Hier eine Ausschnitt aus meinem Code Private Sub mnuÖffnen_Click() Dim DateiNr As Integer On Error GoTo err_Öffnen Call NeuBeenden cdlDatei.DialogTitle = "Bitte wähle eine Textdatei zum Öffnen aus" 'Dialogfeld Überschrift cdlDatei.ShowOpen 'Dialogfeld öffnen DateiNr = FreeFile 'Freie Zuggrifsnummer der Variable ("DateiNr") zuweisen Pfadname = cdlDatei.FileName 'Selectierte Datei der Variable zuweisen Open Pfadname For Input As DateiNr '"Input" Liest Daten aus einer geöffneten sequentiellen Datei und weist sie dem Textfeld zu. txtTextAnzeige.Text = Input(LOF(DateiNr), DateiNr) Exit Sub err_Öffnen: Select Case Err.Number Case 62 MsgBox Prompt:="Bitte eine Textdatei öffnen!", _ Title:="Fehler beim öffnen", _ Buttons:=vbInformation Case Else MsgBox Prompt:="Laufzeitfehler (" & Err.Number & ")", _ Buttons:=vbAbortRetryIgnore, _ Title:=Err.Description End Select 'Debug.Print Dateiname 'Debug.Print FileLen(Dateiname) & " Bytes" txtTextAnzeige.DataChanged = False 'Kompletten DateiPfad sowie anzahl der Bytes in der Statuszeile anzeigen staStatus.Panels("Pfad").Text = Pfadname staStatus.Panels("AnzahlByte").Text = FileLen(Pfadname) & " Bytes" Call DateinameExtrahieren Me.Caption = " " & Überschrift End Sub Sobald ich jetzt in der IDE auf Starten Drücke und mein Programm teste kommt sofort ein Laufzeitfehler . Wie gesagt in der EXE klappt es.

Fehlerbehandlung	915	Hermann55	26.02.12 17:22
Re: Fehlerbehandlung	540	Manfred X	26.02.12 17:43
Re: Fehlerbehandlung	579	Hermann55	26.02.12 18:10
Re: Fehlerbehandlung	570	Manfred X	26.02.12 18:32
Re: Fehlerbehandlung	530	Hermann55	26.02.12 19:13
Re: Fehlerbehandlung	555	Manfred X	26.02.12 19:38

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übersicht

Suchen