vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Allgemeine Diskussionen
Re: Applications von cd 
Autor: neomatrix
Datum: 28.07.04 22:16
Habe alles so eingegeben. Beim kompilieren tut sich allerdings erstmal gar nichts und dann schmeisst er mir nen Systemerrror aus...

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" ( _
ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal ShowTypeEnum As Long) _
As Long
Private Enum ShowTypeEnum
SW_HIDE = 0
SW_SHOWNORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
SW_FORCEMINIMIZE = 11
End Enum

Public Function ApplicationPath() As String
ApplicationPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
End Function

Sub Dateianzeige()
Dim sDatei, Err

Err = ShellExecute(hWnd, "open", ApplicationPath & "table.pdf", vbNullString, vbNullString, SW_SHOW)

If Err = "31" Then
MsgBox "Keine Programmzuweisung gefunden."
ElseIf Err <> "42" Then
MsgBox "Es ist ein Fehler aufgetreten."
End If
DoEvents
End Sub

Private Sub MnuExitItem_Click()
End
End Sub

Bin bald am verzweifeln... Kann doch nicht so schwer sein!?
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Applications von cd1.135neomatrix26.07.04 20:18
Re: Applications von cd766ModeratorMoni26.07.04 20:31
Re: Applications von cd796neomatrix26.07.04 20:46
Re: Applications von cd770ModeratorMoni26.07.04 20:54
Re: Applications von cd811neomatrix26.07.04 21:51
Re: Applications von cd737ModeratorMartoeng27.07.04 09:28
Re: Applications von cd746neomatrix27.07.04 13:24
Re: Applications von cd971ModeratorMartoeng27.07.04 14:30
Re: Applications von cd740neomatrix27.07.04 15:01
Re: Applications von cd777ModeratorMartoeng27.07.04 15:27
Re: Applications von cd710neomatrix27.07.04 16:15
Re: Applications von cd855ModeratorMartoeng27.07.04 16:55
Re: Applications von cd782neomatrix27.07.04 21:22
Re: Applications von cd753ModeratorMartoeng27.07.04 22:03
Re: Applications von cd717neomatrix28.07.04 11:07
Re: Applications von cd732ModeratorMartoeng28.07.04 13:01
Re: Applications von cd767neomatrix28.07.04 13:24
Re: Applications von cd733ModeratorMartoeng28.07.04 13:53
Re: Applications von cd894neomatrix28.07.04 15:58
Re: Applications von cd681neomatrix28.07.04 16:02
Re: Applications von cd707ModeratorMartoeng28.07.04 18:06
Re: Applications von cd714neomatrix28.07.04 18:13
Re: Applications von cd699ModeratorMartoeng28.07.04 21:06
Re: Applications von cd838neomatrix28.07.04 22:16
Re: Applications von cd794Alexander28.07.04 22:24
Re: Applications von cd741Alexander28.07.04 22:25
Re: Applications von cd749Alexander28.07.04 22:26
Re: Applications von cd728ModeratorMartoeng28.07.04 22:49
Re: Applications von cd690neomatrix29.07.04 01:41
Re: Applications von cd688ModeratorMartoeng29.07.04 12:59
Re: Applications von cd686neomatrix29.07.04 01:43
Re: Applications von cd748Alexander29.07.04 10:49
Re: Applications von cd719ModeratorMartoeng29.07.04 12:57
Re: Applications von cd676neomatrix29.07.04 17:43
Re: Applications von cd706neomatrix30.07.04 13:48
Re: Applications von cd751ModeratorMartoeng31.07.04 09:06

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