Oppure

Loading
30/05/08 16:37
luca94
Come faccio ad aprire (quando clicco su un bottone in una form) un programma con visual basic 6?
Ad esempio paint.
Grazie
Ultima modifica effettuata da luca94 30/05/08 16:44
aaa
30/05/08 17:48
GrG
X aprire eseguibili basta fare:

Shell("C:\Percorcorso\NomeFile.exe", vbNormalFocus)

Quindi x paint x esempio trovandosi in system32 basta fare:

Shell("MsPaint.exe", vbNormalFocus)

la path C:\WINDOWS\System32 è di default
Ultima modifica effettuata da GrG 30/05/08 17:49
aaa
30/05/08 20:59
M@d_Hacker
Oppure...

in un modulo

Public 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

Public Const SW_NORMAL = 1


e nel cmd:



X = ShellExecute(hWnd, "Open", "Percorsofile\nomefile.estensionefile", vbNullString, vbNullString, SW_NORMAL)
:k::k:
aaa
31/05/08 8:26
GrG
Il codice postato da me era x aprire SOLO EXE.
Quello postato da M@d_Hacker serve x aprire QUALSIASI FILE
solo ke per me è molto meglio x brevità e comodità
questo codice:

Dim Shell As Object
Set Shell = CreateObject("Shell.Application")
Shell.Open "C:\a.txt"


Che serve sempre per aprire un qualunque tipo di file
:ok:
aaa