Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

[ALL]Botão para Site

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial [ALL]Botão para Site

Mensagem por xDirceu em Sab 28 Ago 2010, 17: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
avatar
xDirceu

Mensagens : 19

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por Lucas Roberto em Sab 28 Ago 2010, 17:30

Otimo tuturial
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por SiegUser em Sab 28 Ago 2010, 17:47

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


Vlw pela ajuda !
avatar
SiegUser

Mensagens : 2

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por D'Black em Sab 28 Ago 2010, 20:20

Very Happy Legal Parabéns
avatar
D'Black

Mensagens : 30

http://www.uniononline.tk/

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por willame em Seg 13 Dez 2010, 10:56

Bom Tuto

[Você precisa estar registrado e conectado para ver esta imagem.]

willame

Mensagens : 23

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por Thales12 em Qua 26 Jan 2011, 15:24

Bom tuto vai ajudar muita gente (Y)

[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por giovani18 em Dom 03 Jul 2011, 06:13

ta mas nao entendi uma coisa oque seria

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

Coloque isto nele:
avatar
giovani18

Mensagens : 74

http://masterdbz.xpg.com.br

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por Lucas Roberto em Dom 03 Jul 2011, 14:01

Para criar um module e facil


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

[Você precisa estar registrado e conectado para ver esta imagem.]

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

pronto module criado depois e só colocar oque o tutorial pedio
até a proxima...

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por giovani18 em Dom 03 Jul 2011, 15:44

ta fiz tudo mais ta dando erro

Call GoToWebsite
avatar
giovani18

Mensagens : 74

http://masterdbz.xpg.com.br

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por Lucas Roberto em Dom 03 Jul 2011, 15: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...

_______________________________________________________________________________________________________


[Você precisa estar registrado e conectado para ver esta imagem.]
avatar
Lucas Roberto

Mensagens : 706

http://universogamesmmo.forumeiros.com

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por giovani18 em Dom 03 Jul 2011, 15:57

diz que ja tem

com name: modWeb2
avatar
giovani18

Mensagens : 74

http://masterdbz.xpg.com.br

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por NuKeNiN em Dom 03 Jul 2011, 20:58

+1 cred
avatar
NuKeNiN

Mensagens : 67

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por giovani18 em Seg 04 Jul 2011, 04:41

ae ate que em fim consegui pow
avatar
giovani18

Mensagens : 74

http://masterdbz.xpg.com.br

Voltar ao Topo Ir em baixo

Tutorial Re: [ALL]Botão para Site

Mensagem por Neapon em Seg 04 Jul 2011, 12:57

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

Excelente tuto +1
avatar
Neapon

Mensagens : 12

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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