Templo RPG Maker
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

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

Myke ~

Myke ~
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


wallace7401

wallace7401
Membro
Membro
muito bom cara , aqui funfo , +1 cred

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

Permissões neste sub-fórum
Não podes responder a tópicos