Alenaldo Membro
Mensagens : 38 Moeda : 104 Pontos : 4 Data de inscrição : 05/01/2013 Idade : 31 Localização : São luis MA
| Assunto: Botão para site Sáb Jan 05, 2013 12:24 pm | |
| - Citação :
- 1-Vá em frmMaine crie um Commandbutton
2-Clike duas vezes no Commandbutton e adicione: - Código:
-
Call GoToWebsite("http://seu site aki.com/") - Citação :
- 3-Crie uma module e ronomeia para modWeb2 ,Agore clike duas vezes na module 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 = "" & 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
Credito: Lost Style Alenaldo | |
|
Warrior Admin
Mensagens : 164 Moeda : 1726 Pontos : 3 Data de inscrição : 30/08/2012 Idade : 33
| Assunto: Re: Botão para site Seg Jan 07, 2013 1:31 pm | |
| Cara não intendi isso: Crie uma module como assim?? | |
|
SSO Moderador.G
Mensagens : 83 Moeda : 117 Pontos : 6 Data de inscrição : 06/01/2013
| Assunto: Re: Botão para site Seg Jan 07, 2013 2:28 pm | |
| - Warrior_Maker escreveu:
- Cara não intendi isso: Crie uma module como assim??
No visual basic 6, no menu superior. abaixo de Edit, há uma form como se estivesse "brilhando" com reflexo amarelo. Ao lado há uma seta para baixo, clique na direção da seta e selecione Module. | |
|
Warrior Admin
Mensagens : 164 Moeda : 1726 Pontos : 3 Data de inscrição : 30/08/2012 Idade : 33
| Assunto: Re: Botão para site Seg Jan 07, 2013 2:51 pm | |
| | |
|
Alenaldo Membro
Mensagens : 38 Moeda : 104 Pontos : 4 Data de inscrição : 05/01/2013 Idade : 31 Localização : São luis MA
| Assunto: Re: Botão para site Seg Jan 07, 2013 2:55 pm | |
| - Warrior_Maker escreveu:
- Cara não intendi isso: Crie uma module como assim??
Para facilitar [Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem] | |
|
Conteúdo patrocinado
| Assunto: Re: Botão para site | |
| |
|