Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Aprire programmi
Forum - Visual Basic 6 - Aprire programmi

Avatar
luca94 (Normal User)
Pro


Messaggi: 71
Iscritto: 07/05/2008

Segnala al moderatore
Postato alle 18:37
Venerdì, 30/05/2008
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 il 30/05/2008 alle 18:44
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:48
Venerdì, 30/05/2008
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 il 30/05/2008 alle 19:49
PM Quote
Avatar
M@d_Hacker (Ex-Member)
Expert


Messaggi: 254
Iscritto: 25/02/2008

Segnala al moderatore
Postato alle 22:59
Venerdì, 30/05/2008
Oppure...

in un modulo

Codice sorgente - presumibilmente VB.NET

  1. 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
  2.  
  3. Public Const SW_NORMAL = 1



e nel cmd:



Codice sorgente - presumibilmente Plain Text

  1. X = ShellExecute(hWnd, "Open", "Percorsofile\nomefile.estensionefile", vbNullString, vbNullString, SW_NORMAL)

:k::k:

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 10:26
Sabato, 31/05/2008
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:

Codice sorgente - presumibilmente VB.NET

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



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

PM Quote