Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [EO] Abrir Site Por Command Button em 17/10/2012, 03:49

Myke ~

avatar
Membro Honorário I
Membro Honorário I
Bom eu fiz esse tutorial de Cabeça, Não sei se está certo, e se não estiver postem aqui que eu refaço no VB, se Existe já um Tutorial do Tipo, eu Não achei, por isso resolvi criar.

Abra o Cliente ~ Side -> clique em Project no canto superior Direito do VB e depois em Add Module.

Mude o Name do Module para: modWeb

E Dentro dele coloque isto: mude tudo o que estiver la por isso aqui:

Código:
Option Explicit

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

Public Function GoToWebsite(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://google.com.br/" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

Eu acho que é isso, caso queira para colocar um Orkut adicione isso tambem:

Código:
Public Function GoToWebsiteOrkut(ByVal WebSite As String) As Boolean
    Dim res As Long
 
    If InStr(1, WebSite, "http", vbTextCompare) <> 1 Then
        WebSite = "http://www.orkut.com.br" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsiteOrkut = (res > 32)
End Function

Depois va até a FrmMain ou FrmMenu, adicione um Command Button com o name:
cmdWebSite ou nem precisa colocar nome a Variavel manda sozin, Não chek nada.


Dentro do Command Button Adicione:

Código:
Call GoToWebsite("http:linkaqui")

è isso Testem e me digam se funciona.

Créditos ~
Eu por Criar e Postar


Ver perfil do usuário
muito bom cara , aqui funfo , +1 cred

Ver perfil do usuário

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum