| [ALL]Botão para Site | |
|
|
Autor | Mensagem |
---|
Convidado Convidado
| Assunto: [ALL]Botão para Site Sá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 |
|
| |
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Botão para Site Sáb 28 Ago 2010, 18:30 | |
| | |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Sáb 28 Ago 2010, 18:47 | |
| Bom tutorial , boas exclicações , muito bom mesmo.
Vlw pela ajuda ! |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Sáb 28 Ago 2010, 21:20 | |
| Legal Parabéns |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Seg 13 Dez 2010, 12:56 | |
| |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Qua 26 Jan 2011, 17:24 | |
| |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Dom 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: |
|
| |
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Botão para Site Dom 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... | |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Dom 03 Jul 2011, 16:44 | |
| ta fiz tudo mais ta dando erro
Call GoToWebsite |
|
| |
Lucas Roberto Administrador
Mensagens : 711
| Assunto: Re: [ALL]Botão para Site Dom 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... | |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Dom 03 Jul 2011, 16:57 | |
| diz que ja tem
com name: modWeb2 |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Dom 03 Jul 2011, 21:58 | |
| |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Seg 04 Jul 2011, 05:41 | |
| ae ate que em fim consegui pow |
|
| |
Convidado Convidado
| Assunto: Re: [ALL]Botão para Site Seg 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 |
|
| |
Conteúdo patrocinado
| Assunto: Re: [ALL]Botão para Site | |
| |
|
| |
| [ALL]Botão para Site | |
|