5 replies to this topic

[D'Artagnan19]

como q faria para abri o explore no vb
quando cliquasse no botao


Obrigado

Edição feita por: D'Artagnan19, 10/04/2004, 16:42.

[Kurt]

Primeiro coloque o seguinte código na seçao de declaraçoes do seu formulario:

#If Win32 Then
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
#Else
Private Declare Function ShellExecute Lib _
"shell.dll" _
(ByVal hwnd As Integer, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer
#End If
Private Const SW_SHOWNORMAL = 1

Depois crie um CommandButton e o nomeie de cmdexplorer, de dois cliques em cima dele, e programe:

Private Sub cmdexplorer_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://forum.wmonline.com.br", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub

Espero ter ajudado, ateh +!!!

Edição feita por: Kurt, 11/04/2004, 10:51.

[D'Artagnan19]

vlws ai Kurt

me ajudo bastante

Edição feita por: D'Artagnan19, 11/04/2004, 22:48.

[RodrigoBytes]

Opa,

Eu tenho uma forma mais simplificada basta colocar no evento onde você quer que o explore seja aberto o seguinte comando Shell ("explorer.exe")

Um abraço,
Rodrigo de Souza Delphino

[Kurt]

Eu tenho uma forma mais simplificada basta colocar no evento onde você quer que o explore seja aberto o seguinte comando Shell ("explorer.exe")

Mas dessa maneira naum tem como vc decidir q site aparecer no navegador. No exemplo q eu mostrei, vai abrir o forum da WM. Olhe:

Private Sub cmdexplorer_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://forum.wmonline.com.br", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub

Edição feita por: Kurt, 18/04/2004, 13:55.

[RodrigoBytes]

Eu tenho uma forma mais simplificada basta colocar no evento onde você quer que o explore seja aberto o seguinte comando Shell ("explorer.exe")

Mas dessa maneira naum tem como vc decidir q site aparecer no navegador. No exemplo q eu mostrei, vai abrir o forum da WM. Olhe:

Private Sub cmdexplorer_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://forum.wmonline.com.br", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub

Opa,
tenta assim então:
Shell ("explorer [url="http://ww.rodrigobytes.com.br")"]http://ww.rodrigobytes.com.br")[/url]

Um abraço,
Rodrigo de Souza Delphino