LINK POPUP

LG.MOURA 31/01/2011 17:09:28
#363937
Pessoal como eu faço pra abrir um link popup atraves do webbrowser???

ou se poderia ser atraves do comando Shell:

Citação:

ShellExecute hWnd, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], vbNullString, vbNullString, conSwNormal

ESLEYSANCHES 31/01/2011 20:17:21
#363955 Resposta escolhida
Amigo encontrei noi VBWEB a sua dúvida, veja se te ajuda, ou seja, a forma que vc está fazendo está certa, tenha apenas certeza de declarar o uso da API ShellExecute da Biblioteca Shell32.dll
http://www.vbweb.com.br/forum_resp.asp?Forum=VB&Codigo=227453

Abaixo está o código, usando um label de exmeplo quando clicar::

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
Private Const conSwNormal = 1

Private Sub Label1_Click()
    ShellExecute hwnd, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], vbNullString, vbNullString, conSwNo
End Sub
LG.MOURA 31/01/2011 21:47:42
#363962
Citação:

:
Amigo encontrei noi VBWEB a sua dúvida, veja se te ajuda, ou seja, a forma que vc está fazendo está certa, tenha apenas certeza de declarar o uso da API ShellExecute da Biblioteca Shell32.dll
http://www.vbweb.com.br/forum_resp.asp?Forum=VB&Codigo=227453

Abaixo está o código, usando um label de exmeplo quando clicar::

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
Private Const conSwNormal = 1

Private Sub Label1_Click()
    ShellExecute hwnd, [Ô]open[Ô], [Ô]http://www.vbmania.com.br[Ô], vbNullString, vbNullString, conSwNo
End Sub



Amigo ESLEYSANCHES, dessa forma funciona muito obrigado, porem não abre como uma janela popup... quero abrir a janela no tamanho personalizado entendeu?
ESLEYSANCHES 31/01/2011 23:29:42
#363970
Utilize então seu proprio mini browser sem opção do usuário alterar o endereço por exemplo apenas navegar no site é isso ??

Vc cria um form com o objeto WebBrowser e na hora de navegar você coloca por exemplo:

Form2.Width = Largura_Desejada
Form2.Height = Altura_Desejada
Form2.WebBrowser1.Navigate([Ô]http://Seu_Endereço[Ô])
Form2.Show Vbmodal, me


entendeu ??
Abraços !!!
Tópico encerrado , respostas não são mais permitidas
Voltar