|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Member
Iscritto dal: May 2002
Messaggi: 96
|
[Visual Basic] Come lanciare un link?
Il problema è molto semplice devo lanciare un link che fisicamente è un file con estensione LNK ho provato con la semplice shell---> Shell(path)
Ma nn funziona, qualcuno ha già affrontanto questo problema? Magari c'è un modo per risolvere il link e vedere dove punta? Ciao grazie a tutti.
__________________
Cpu 2500@3200XP barton - MB Abit NF7-S Rev. 2 - 2xTwinMos 512mb DDR 400 - IBM 160gb 7200rpm SATA - Samsung 400gb 7200rpm SATA - Geffo 4 ti4200 64mb 3.3 ns - DVD-R Pioneer 16x Dual Layer - DVD LG 48x - Powered by Enermax 535W |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Codice:
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 Form_Load() ShellExecute Me.hwnd, vbNullString, App.Path & "\xxx.lnk", vbNullString, "C:\", SW_SHOWNORMAL End Sub
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
#3 |
|
Member
Iscritto dal: May 2002
Messaggi: 96
|
Gli eseguibili dell'applicazione vengono lanciati ma le applicazioni nn si vedono nn appaiano neanche iconizzate adesso me la studio meglio cmq sei un GRANDE! grazie mille
__________________
Cpu 2500@3200XP barton - MB Abit NF7-S Rev. 2 - 2xTwinMos 512mb DDR 400 - IBM 160gb 7200rpm SATA - Samsung 400gb 7200rpm SATA - Geffo 4 ti4200 64mb 3.3 ns - DVD-R Pioneer 16x Dual Layer - DVD LG 48x - Powered by Enermax 535W |
|
|
|
|
|
#4 |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Io l'ho provato il codice è gira con un file .url
da te no?
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
|
#5 |
|
Member
Iscritto dal: May 2002
Messaggi: 96
|
Allora dipende tutto dall'ultimo paramentreo che si passa alla funzione:
Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Global Const SW_SHOWNOACTIVATE = 4 Global Const SW_SHOW = 5 Global Const SW_MINIMIZE = 6 Con il 2 parte ma rimane iconizzata con il 3 parte e và in primo piano con l'1 parte l'eseguibile (si vede nel task manager) ma nn si vede nulla. Gli altri nn li ho provati ma nn credo che servano Grazie ancora
__________________
Cpu 2500@3200XP barton - MB Abit NF7-S Rev. 2 - 2xTwinMos 512mb DDR 400 - IBM 160gb 7200rpm SATA - Samsung 400gb 7200rpm SATA - Geffo 4 ti4200 64mb 3.3 ns - DVD-R Pioneer 16x Dual Layer - DVD LG 48x - Powered by Enermax 535W Ultima modifica di Mantis81 : 09-06-2004 alle 12:11. |
|
|
|
|
|
#6 | |
|
Member
Iscritto dal: May 2002
Messaggi: 96
|
Quote:
__________________
Cpu 2500@3200XP barton - MB Abit NF7-S Rev. 2 - 2xTwinMos 512mb DDR 400 - IBM 160gb 7200rpm SATA - Samsung 400gb 7200rpm SATA - Geffo 4 ti4200 64mb 3.3 ns - DVD-R Pioneer 16x Dual Layer - DVD LG 48x - Powered by Enermax 535W |
|
|
|
|
|
|
#7 |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
Si forse...
Prego
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 13:46.



















