Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire pagina in una nuova finestra del browser

ciao a tutti
come si fa ad aprire usando la shellexcute, una finestra del browser in
una nuova finestra?
che attributi bisogna mettere?
io uso:
aperto = ShellExecute(0&, vbNullString, percorsofile, vbNullString, "C:\",
1)
però se ho qualche altra finestra di explorer mi usa quella, mentre vorrei
che ne aprisse una nuova
como se fa?
ciao e grazie in anticipo
-- 
SCIRIO - 100% COMMERCIALE
http://scirio.altervista.org
http://cinemaz.altervista.org
http://freddure.altervista.org
http://ihu.altervista.org
http://rime.altervista.org
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 devo includere un qualcosa, ma non ricordo cosa :p
Enum EShellShowConstants
     SW_HIDE = 0
     SW_MAXIMIZE = 3
     SW_MINIMIZE = 6
     SW_SHOWMAXIMIZED = 3
     SW_SHOWMINIMIZED = 2
     SW_SHOWNORMAL = 1
     SW_SHOWNOACTIVATE = 4
     SW_SHOWNA = 8
     SW_SHOWMINNOACTIVE = 7
     SW_SHOWDEFAULT = 10
     SW_RESTORE = 9
     SW_SHOW = 5
End Enum
Ciao
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 che attributi bisogna mettere?
Prova con 
aperto = ShellExecute(0&, "open", vbNullString, vbNullString, "C:\", 1)
aperto = ShellExecute(0&, "open", vbNullString, vbNullString, "D:\", 1)
Bye by sixaM 8-]
P.S. c'e' "open" al posto di VbNullString
P.P.S. 
http://www.vb-helper.com/howto_shellexecute.html
 (trovao con
google, cercando "shellexecute vb")
-- 


scirio wrote:
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()
'KPD-Team 1998
'URL: 
http://www.allapi.net/
'E-Mail: KPD...@Allapi.net
'Send an E-Mail to the KPD-Team
ShellExecute Me.hwnd, vbNullString, "mailto:
KPD...@Allapi.net
",
vbNullString, "C:\", SW_SHOWNORMAL
End Sub
descrizione
· hwnd
Specifies a parent window. This window receives any message boxes that an
application produces. For example, an application may report an error by
producing a message box.
· lpOperation
Pointer to a null-terminated string that specifies the operation to perform.
The following operation strings are valid:
"open"
 The function opens the file specified by lpFile. The file can be an
executable file or a document file. The file can be a folder to open.
"print"
 The function prints the file specified by lpFile. The file should be a
document file. If the file is an executable file, the function opens the
file, as if "open" had been specified.
"explore"
 The function explores the folder specified by lpFile.
The lpOperation parameter can be NULL. In that case, the function opens the
file specified by lpFile.
· lpFile
Pointer to a null-terminated string that specifies the file to open or print
or the folder to open or explore. The function can open an executable file
or a document file. The function can print a document file.
· lpParameters
If lpFile specifies an executable file, lpParameters is a pointer to a
null-terminated string that specifies parameters to be passed to the
application.
If lpFile specifies a document file, lpParameters should be NULL.
· lpDirectory
Pointer to a null-terminated string that specifies the default directory.
· nShowCmd
If lpFile specifies an executable file, nShowCmd specifies how the
application is to be shown when it is opened. This parameter can be one of
the following values:
SW_HIDE
 Hides the window and activates another window.
SW_MAXIMIZE
 Maximizes the specified window.
SW_MINIMIZE
 Minimizes the specified window and activates the next top-level window in
the Z order.
SW_RESTORE
 Activates and displays the window. If the window is minimized or maximized,
Windows restores it to its original size and position. An application should
specify this flag when restoring a minimized window.
SW_SHOW
 Activates the window and displays it in its current size and position.
SW_SHOWDEFAULT
 Sets the show state based on the SW_ flag specified in the STARTUPINFO
structure passed to the CreateProcess function by the program that started
the application. An application should call ShowWindow with this flag to set
the initial show state of its main window.
SW_SHOWMAXIMIZED
 Activates the window and displays it as a maximized window.
SW_SHOWMINIMIZED
 Activates the window and displays it as a minimized window.
SW_SHOWMINNOACTIVE
 Displays the window as a minimized window. The active window remains
active.
SW_SHOWNA
 Displays the window in its current state. The active window remains active.
SW_SHOWNOACTIVATE
 Displays a window in its most recent size and position. The active window
remains active.
SW_SHOWNORMAL
 Activates and displays a window. If the window is minimized or maximized,
Windows restores it to its original size and position. An application should
specify this flag when displaying the window for the first time.
If lpFile specifies a document file, nShowCmd should be zero.
VALORI
beh quelli trovali con l'utility di VB APItextviewer
un altro esempio che fa altre cose
'Example by Joel (
crash...@hotmail.com
)
'This example requires a command button (Command1)
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As
Long
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
Const SE_ERR_NOASSOC = 31
Const sOperation As String = "open" ' Constants for shell operations
Const sRun As String = "RUNDLL32.EXE"
Const sParameters As String = "shell32.dll,OpenAs_RunDLL "
Private Function shelldoc(sfile As String)
Dim sPath As String, RetVal As Long, _
lRet As Long
lRet = ShellExecute(GetDesktopWindow(), sOperation, sfile, _
vbNullString, vbNullString, SW_SHOWNORMAL)
If lRet = SE_ERR_NOASSOC Then ' No association exists
'Create a buffer
sPath = Space(255)
'Get the system directory
RetVal = GetSystemDirectory(sPath, 255)
'Remove all unnecessary chr$(0)'s
'and move on the stack
sPath = Left$(sPath, RetVal)
lRet = ShellExecute(GetDesktopWindow(), "open", sRun, _
sParameters + sfile, sPath, SW_SHOWNORMAL)
End If
End Function
Private Sub Command1_Click()
' Change the file extensions so that one
' has a program associated with it and the
' other does not.
Call shelldoc("C:\myfile.txt")
Call shelldoc("C:\myfile.sarsaparilla")
End Sub
Saluti!
p.s.
Tutto tratto da allAPI
-- 
------------------------------------------------
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

 google, cercando "shellexecute vb")
ciao, grazie per la risposta
ho letto anche la guida che mi hai segnalato, ma non mi funziona
in teoria dovrebbe essere così:
aperto = ShellExecute(0&, "open", percorsofile, vbNullString, "C:\", 1)
però continua ad aprirlo nella finestra già aperta
inoltre come faccio a sapere il giusto numero dell'attributo style?
mi pare che per poter scrivere SW_NORMAL,SW_HIDE ecc. al posto dei numeri 
devo includere un qualcosa, ma non ricordo cosa :p
-- 
SCIRIO - 100% COMMERCIALE
http://scirio.altervista.org
http://cinemaz.altervista.org
http://freddure.altervista.org
http://ihu.altervista.org
http://rime.altervista.org
questo articolo e` stato inviato via web dal servizio gratuito 


 
grazie!
-- 
Nuova sign semi random per accontentare quel gheiz di Sir Mithras:
Visita lo scirio sitoz: 
http://scirio.altervista.org
"pompa la cassa"