Universo Games
Ola , Convidado

[ALL]Botão para Site Logo1110

Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no Mundo RPG!!!
Universo Games
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Universo Games

Suporte e Desenvolvimento só no Universo Games
 
InícioInício  PortalPortal  EventosEventos  PublicaçõesPublicações  Últimas imagensÚltimas imagens  RegistarRegistar  EntrarEntrar  
Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

 

 [ALL]Botão para Site

Ir para baixo 
AutorMensagem
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: [ALL]Botão para Site   [ALL]Botão para Site EmptySáb 28 Ago 2010, 18:17

Ola, vou ensinar como colocar um botão para seu site.

Crie um modulo no seu projeto, coloque o nome que quizer.

Coloque isto nele:


Option Explicit

Código:
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://" & WebSite
End If

res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
vbNormalFocus)
GoToWebsite = (res > 32)
End Function

Agora crie um comando botão no lugar que você quizer e com o caption que voce quizer

De enter nele e coloque este codigo


Código:
Call GoToWebsite("http://www.seusite.com.br/")

Que eu me lembre quem fez foi o Terabin

Valleu!!! xDirceu
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySáb 28 Ago 2010, 18:30

Otimo tuturial
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySáb 28 Ago 2010, 18:47

Bom tutorial , boas exclicações , muito bom mesmo.


Vlw pela ajuda !
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySáb 28 Ago 2010, 21:20

Very Happy Legal Parabéns
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySeg 13 Dez 2010, 12:56

Bom Tuto

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyQua 26 Jan 2011, 17:24

Bom tuto vai ajudar muita gente (Y)

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 07:13

ta mas nao entendi uma coisa oque seria

Crie um modulo no seu projeto, coloque o nome que quizer.

Coloque isto nele:
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 15:01

Para criar um module e facil


clique no botão esquerdo do module
ai vai apareçer este painel

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

ai você seleciona o "add" depois seleciona "Module"

pronto module criado depois e só colocar oque o tutorial pedio
até a proxima...
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 16:44

ta fiz tudo mais ta dando erro

Call GoToWebsite
Ir para o topo Ir para baixo
Lucas Roberto
Administrador
Administrador
Lucas Roberto


Mensagens : 711

[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 16:47

Crie um module
com name: modWeb2

de dois clique e coloque:

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://universogamesmmo.forumeiros.com/" & WebSite
    End If
 
    res = ShellExecute(0&, "open", WebSite, vbNullString, vbNullString, _
        vbNormalFocus)
    GoToWebsite = (res > 32)
End Function

pronto...
Ir para o topo Ir para baixo
https://universogamesmmo.forumeiros.com
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 16:57

diz que ja tem

com name: modWeb2
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptyDom 03 Jul 2011, 21:58

+1 cred
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySeg 04 Jul 2011, 05:41

ae ate que em fim consegui pow
Ir para o topo Ir para baixo
Convidado
Convidado
Anonymous



[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site EmptySeg 04 Jul 2011, 13:57

Desculpem mais o meu tutorial tambem esta certo?:https://universogamesmmo.forumeiros.com/t585-criando-botao-de-abrir-o-site

Excelente tuto +1
Ir para o topo Ir para baixo
Conteúdo patrocinado





[ALL]Botão para Site Empty
MensagemAssunto: Re: [ALL]Botão para Site   [ALL]Botão para Site Empty

Ir para o topo Ir para baixo
 
[ALL]Botão para Site
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Web Site Simpless
» Site de habbo (pronto)
» Criando Botao de Abrir o Site
» [TUTORIAL] Adicionando Site ao seu Otserver
» Como Editar o Site do Habbo

Permissões neste sub-fórumNão podes responder a tópicos
Universo Games :: Criação de Jogos :: Elysium Diamond :: Tutoriais-
Ir para: