On Sun, 9 Feb 2003 22:00:55 +0100, "Jesper Hansen"
<jesperhansen@fritid.tele.dk> wrote:
>Jeg har brug for at åbne nogle notepad-text-filer og pdf-filer op direkte
>fra programmet via en knap eller lignende.
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 nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click()
x = ShellExecute(Me.hwnd, "open" & vbNullString, "c:\hbtest.txt",
vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub
--
Snutten
Reply-to adressen er gyldig inntil spam er mottatt
|