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
OmegaZero
JúniorSmith
6 participantes

    [EO] Botão Para Site !

    JúniorSmith
    JúniorSmith
    Iniciante
    Iniciante


    Mensagens : 54
    Créditos : 10

    [EO] Botão Para Site ! Empty [EO] Botão Para Site !

    Mensagem por JúniorSmith Sex Out 29, 2010 12:17 am

    Blz Galera ?
    Vou Explicar para que serve esse Botão Para Site !
    esse botão vai ficar na tela inicial do Eclipse, ele serve para quando você clikar
    abrir um site !

    Antes de tudo va em frmMirage Crie um Commandbutton Para o Site .

    No Commandbutton do Site de 2 Clique e adicione :

    Código:
    Call GoToWebsite("http://seu site aki.com/")

    [b]Agora Crie um Module e renomeia seu nome para modWeb 2 dois clique 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 = "http://google.com.br/" & 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

    É isso awe !


    [b]Creditos :
    Lost Style
    :affraid:


    Última edição por Exajerado em Seg Nov 01, 2010 1:27 pm, editado 1 vez(es)
    OmegaZero
    OmegaZero
    Semi-Experiente
    Semi-Experiente


    Mensagens : 81
    Créditos : 6

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por OmegaZero Sex Out 29, 2010 3:59 pm

    Hum realmente bem util Very Happy

    Ahh!! lembrei hehe, créditos indentificados =P

    São do Lost Style.

    Link do tuto : http://www.mmorpgbr.com/tutoriais-f14/botao-para-site-e-orkut-t1784.htm

    ;*
    JúniorSmith
    JúniorSmith
    Iniciante
    Iniciante


    Mensagens : 54
    Créditos : 10

    [EO] Botão Para Site ! Empty Botao para Site

    Mensagem por JúniorSmith Seg Nov 01, 2010 1:28 pm

    Vlw Awe por Localizar o dono dos Creditos ^^
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : [EO] Botão Para Site ! ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por Valentine Seg Nov 01, 2010 1:32 pm

    bem legal o script, assim da pra anunciar o site do jogo
    The Suspect
    The Suspect
    Ocasional
    Ocasional


    Mensagens : 206
    Créditos : 83

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por The Suspect Qui Nov 11, 2010 9:21 pm

    Muito bom cara Wink
    HugoFreitas
    HugoFreitas
    Administrador
    Administrador


    Medalhas : [EO] Botão Para Site ! Medal_55
    Mensagens : 633
    Créditos : 175

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por HugoFreitas Sáb Nov 27, 2010 10:12 am

    Muito bom, +1 crédito.


    _________________
    [EO] Botão Para Site ! Brsnip10
    [EO] Botão Para Site ! DqtrI
    habbo221
    habbo221
    Experiente
    Experiente


    Mensagens : 522
    Créditos : 116

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por habbo221 Ter Dez 21, 2010 8:27 pm

    Mto boom +1 credit


    _________________
    Você sabe que está no caminho certo quando perde o interesse de olhar para trás.
    Valentine
    Valentine
    Administrador
    Administrador


    Medalhas : [EO] Botão Para Site ! ZgLkiRU
    Mensagens : 5336
    Créditos : 1163

    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por Valentine Ter Jan 25, 2011 11:45 pm

    Organizei o seu tópico

    Conteúdo patrocinado


    [EO] Botão Para Site ! Empty Re: [EO] Botão Para Site !

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qui Mar 28, 2024 6:06 pm