Aldeia RPG

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

Suporte ao desenvolvimento de jogos


2 participantes

    [TUTORIAL]Botão para site

    AlexsandroChaos
    AlexsandroChaos
    Novato
    Novato


    Mensagens : 26
    Créditos : 5

    [TUTORIAL]Botão para site Empty [TUTORIAL]Botão para site

    Mensagem por AlexsandroChaos Ter Dez 11, 2012 5:24 am

    1-Vá em frmMaine crie um Commandbutton
    2-Clike duas vezes no Commandbutton e adicione:
    Código:
    Call GoToWebsite("http://seu site aki.com/")
    3-Crie uma module e ronomeia para modWeb2 ,Agore clike duas vezes na module e adicione:
    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 = "" & WebSite
        End If
     
        res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
            vbNormalFocus)
        GoToWebsite = (res > 32)
    End Function

    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

    Creditos:Lost Style
    e a mim por te consertado um bug,e postado
    Wink
    Laxus
    Laxus
    Aldeia Friend
    Aldeia Friend


    Mensagens : 1150
    Créditos : 78

    [TUTORIAL]Botão para site Empty Re: [TUTORIAL]Botão para site

    Mensagem por Laxus Ter Dez 11, 2012 8:32 am

    Muito bom esse sistema +1 credito o seu "Primeiro" Oo que continue postando assim e muito bem Jovem


    _________________
    "Não importa o quão forte o cara é, o que importa é encara-lo de frente sem fraquejar"
                                                                                                                                                        Laxus ~ Fairy Tail
    AlexsandroChaos
    AlexsandroChaos
    Novato
    Novato


    Mensagens : 26
    Créditos : 5

    [TUTORIAL]Botão para site Empty Re: [TUTORIAL]Botão para site

    Mensagem por AlexsandroChaos Ter Dez 11, 2012 11:27 am

    Obrigado Wink

    Conteúdo patrocinado


    [TUTORIAL]Botão para site Empty Re: [TUTORIAL]Botão para site

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Sex Mar 29, 2024 2:39 am