Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

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

[ALL]Botão para Site

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

1Tutorial [ALL]Botão para Site em Sab 28 Ago 2010, 17:17

xDirceu


Membro
Membro
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

2Tutorial Re: [ALL]Botão para Site em Sab 28 Ago 2010, 17:30

Luucas Robeerto


Fundador
Fundador
Otimo tuturial

http://universogamesmmo.forumeiros.com

3Tutorial Re: [ALL]Botão para Site em Sab 28 Ago 2010, 17:47

SiegUser


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


Vlw pela ajuda !

4Tutorial Re: [ALL]Botão para Site em Sab 28 Ago 2010, 20:20

D'Black


Membro
Membro
Very Happy Legal Parabéns

http://www.uniononline.tk/

5Tutorial Re: [ALL]Botão para Site em Seg 13 Dez 2010, 10:56

willame


Membro
Membro
Bom Tuto

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

6Tutorial Re: [ALL]Botão para Site em Qua 26 Jan 2011, 15:24

Thales12


Membro
Membro
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.]

7Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 06:13

giovani18


Membro
Membro
ta mas nao entendi uma coisa oque seria

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

Coloque isto nele:

http://masterdbz.xpg.com.br

8Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 14:01

Luucas Robeerto


Fundador
Fundador
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.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

9Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 15:44

giovani18


Membro
Membro
ta fiz tudo mais ta dando erro

Call GoToWebsite

http://masterdbz.xpg.com.br

10Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 15:47

Luucas Robeerto


Fundador
Fundador
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.]
Spoiler:
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]
http://universogamesmmo.forumeiros.com

11Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 15:57

giovani18


Membro
Membro
diz que ja tem

com name: modWeb2

http://masterdbz.xpg.com.br

12Tutorial Re: [ALL]Botão para Site em Dom 03 Jul 2011, 20:58

NuKeNiN


Membro
Membro
+1 cred

13Tutorial Re: [ALL]Botão para Site em Seg 04 Jul 2011, 04:41

giovani18


Membro
Membro
ae ate que em fim consegui pow

http://masterdbz.xpg.com.br

14Tutorial Re: [ALL]Botão para Site em Seg 04 Jul 2011, 12:57

Neapon


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

Excelente tuto +1

15Tutorial Re: [ALL]Botão para Site Hoje à(s) 14:16

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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