| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
peter_u
Anmeldungsdatum: 19.09.2006
Beiträge: 17
Wohnort: Remscheid, NRW
|
 Verfasst am: 20.12.2007, 13:19 Titel: Fehlerbehandlung mit on Error |
 |
|
Hallo FB-Gemeinde.
Ich habe vor ca. 15 Jahren mit Powerbasic Dos gebastelt - nun versuche ich mich seit einiger Zeit in FB und komme einigermaßen klar - jedoch nicht mit der Fehlerbehandlung on Error.
Zur Druckerauswahl benutze ich nachfolgenden Code.
Wenn ich in der (Windows-)Druckerauswahl auf abbrechen clicke,
wird auch mein Programm beendet.
Kann man das mit on Error abfangen? In der Befehlsreferenz steht:
Um ON ERROR in Ihrem Programm verwenden zu können, müssen sie den Compiler mit der Option -ex aufrufen; siehe die Kommandozeile
Leider kann man den Link "die Kommandozeile" in der FB-Referenz nicht aufrufen (weder off- noch online).
Ich benutze FB und FBEdit, jeweils aktuell.
Wäre nett, wenn jemand helfen könnte.
Danke im voraus
Peter
PS: Die $Include sind eingebunden.
| Code: |
Function selectPrinter( ) As String
Dim As PrintDlg pd
pd.lStructSize = SizeOf( PrintDlg )
If PrintDlg( @pd ) = FALSE Then
Exit Function
End If
Dim As DEVNAMES Ptr dn = GlobalLock( pd.hDevNames )
Function = *Cast( ZString Ptr, Cast( Byte Ptr, dn ) + dn->wDeviceOffset )
GlobalUnlock( dn )
End Function
|
Aufruf mit
| Code: |
printerName = selectPrinter( )
If( Len( printerName ) = 0 ) Then
Print "No printer selected"
End 1
End If
If( Open lpt( "LPT:" + printerName, For Output, As #98 ) <> 0 ) Then
Print "Error: Open failed"
End 1
End If
|
_________________
Der alte Mann lernt noch
--- Learning by doing --- |
|
| Nach oben |
|
 |
Cherry
Anmeldungsdatum: 20.06.2007
Beiträge: 249
|
| Verfasst am: 20.12.2007, 13:45 Titel: |
|
|
unter FBEdit sollte das mit der Option "Console (Debug)" bzw. "GUI (Debug)" gehen. Oben ist eine Combobox, wo man das auswählen kann.
mfG Cherry |
|
| Nach oben |
|
|
peter_u
Anmeldungsdatum: 19.09.2006
Beiträge: 17
Wohnort: Remscheid, NRW
|
| Verfasst am: 20.12.2007, 14:17 Titel: Super Forum - erledigt. Danke |
|
|
Prima. Funktioniert.
Vielen Dank Cherry.
Peter
_________________
Der alte Mann lernt noch
--- Learning by doing --- |
|
| Nach oben |
|
|
ytwinky
Anmeldungsdatum: 28.05.2005
Beiträge: 2624
Wohnort: Machteburch
|
|
| Nach oben |
|
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
