vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Visual-Basic Einsteiger
Re: VB Runtime Error 32755 abfangen 
Autor: Michael_HU
Datum: 08.04.13 21:18

Und so kommt überhaupt keine Fehlermeldung bei 32755 (cancel)!

Sub CommandOpen_Click()
On Error GoTo ErrTrap
Text1.SetFocus
With MDIFormMain.CD1
.Flags = cdlOFNOverwritePrompt + cdlOFNFileMustExist
.Filter = "VB Script Files (*.Vbs)|*.Vbs|Alle Files|*.*"
.ShowOpen
If Err Then Err.Clear: GoTo ErrTrap 'user cancel opening
Dim f As Long
f = FreeFile
Open .FileName For Input As f
Text1.Text = Input$(LOF(f), #1)
Close f
Caption = .FileTitle + " - Script Editor"
Tag = .FileName
End With
Exit Sub:

ErrTrap:
If Err.Number = 32755 Then 'cancel was selected
Else
MsgBox "Fehler ist aufgetreten:" + vbCrLf + vbCrLf + Err.Description, , "Error": Err.Clear
End If
On Error GoTo 0
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
VB Runtime Error 32755 abfangen2.063Michael_HU08.04.13 15:53
Re: VB Runtime Error 32755 abfangen1.365Zardoz08.04.13 17:05
Re: VB Runtime Error 32755 abfangen1.095Michael_HU08.04.13 17:42
Re: VB Runtime Error 32755 abfangen956Zardoz08.04.13 18:10
Re: VB Runtime Error 32755 abfangen973Michael_HU08.04.13 20:38
Re: VB Runtime Error 32755 abfangen968Michael_HU08.04.13 20:54
Re: VB Runtime Error 32755 abfangen1.091Michael_HU08.04.13 21:18
Re: VB Runtime Error 32755 abfangen946Zardoz08.04.13 22:46

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-2024 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