Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Frage zum Öffnen von Dateien
Autor: 1stein
Datum: 01.04.02 22:05
Wo genau muss ich den Code einsetzten, damit es funzt. Selbst bei der von Microsoft angewendeten step-by-step Vorgehensweise bekomme ich die Fehlermeldung -- FEHLER BEIM KOMPILIEREN- NACH END SUB .... DÜRFEN NUR KOMMENTARE STEHEN!!! Der nachfolgende Cose wird markiert. Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _ String, ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long ------------------------------------------ Code mit Anleitung von Micro$oft 1. Start a New project in Visual Basic. Form1 is created by default. 2. Add the following code to the General Declarations section of Form1: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _ String, ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long Private Declare Function GetDesktopWindow Lib "user32" () As Long Const SW_SHOWNORMAL = 1 Const SE_ERR_FNF = 2& Const SE_ERR_PNF = 3& Const SE_ERR_ACCESSDENIED = 5& Const SE_ERR_OOM = 8& Const SE_ERR_DLLNOTFOUND = 32& Const SE_ERR_SHARE = 26& Const SE_ERR_ASSOCINCOMPLETE = 27& Const SE_ERR_DDETIMEOUT = 28& Const SE_ERR_DDEFAIL = 29& Const SE_ERR_DDEBUSY = 30& Const SE_ERR_NOASSOC = 31& Const ERROR_BAD_FORMAT = 11& Function StartDoc(DocName As String) As Long Dim Scr_hDC As Long Scr_hDC = GetDesktopWindow() StartDoc = ShellExecute(Scr_hDC, "Open", DocName, _ "", "C:", SW_SHOWNORMAL) End Function Private Sub Form_Click() Dim r As Long, msg As String r = StartDoc("C:WINDOWSARCADE.BMP") If r <= 32 Then 'There was an error Select Case r Case SE_ERR_FNF msg = "File not found" Case SE_ERR_PNF msg = "Path not found" Case SE_ERR_ACCESSDENIED msg = "Access denied" Case SE_ERR_OOM msg = "Out of memory" Case SE_ERR_DLLNOTFOUND msg = "DLL not found" Case SE_ERR_SHARE msg = "A sharing violation occurred" Case SE_ERR_ASSOCINCOMPLETE msg = "Incomplete or invalid file association" Case SE_ERR_DDETIMEOUT msg = "DDE Time out" Case SE_ERR_DDEFAIL msg = "DDE transaction failed" Case SE_ERR_DDEBUSY msg = "DDE busy" Case SE_ERR_NOASSOC msg = "No association for file extension" Case ERROR_BAD_FORMAT msg = "Invalid EXE file or error in EXE image" Case Else msg = "Unknown error" End Select MsgBox msg End If End Sub ------------------- selbst bei der Testerstellung erhalte ich gleiche Fehlermeldung. Kann mir jemand helfen?

Frage zum Öffnen von Dateien	54	1stein	01.04.02 18:57
Re: Frage zum Öffnen von Dateien	217	unbekannt	01.04.02 19:03
Re: Frage zum Öffnen von Dateien	40	1stein	01.04.02 22:05
Re: Frage zum Öffnen von Dateien	202	Moni	01.04.02 22:26
*lol* grinz ....	304	unbekannt	01.04.02 22:33
Re: *lol* grinz ....	227	Moni	01.04.02 22:37
Jepp (oT)	246	unbekannt	01.04.02 22:40

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