[resolvido] MontaRibbon-SiteMozilla

Moderador: Avelino Sampaio

FRANCISCO SANTOS
Mensagens: 62
Registrado em: 24 Ago 2015, 10:27

[resolvido] MontaRibbon-SiteMozilla

Mensagempor FRANCISCO SANTOS » 15 Fev 2017, 19:58

Boa tarde,
Professor como faço para nas minhas Ribbons os sites abrir pelo mozilla, só está abrindo pelo Internet explorer.
Aguardo resposta

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1895
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: MontaRibbon-SiteMozilla

Mensagempor Avelino Sampaio » 15 Fev 2017, 21:08

Francisco,

não entendi muito bem. Vc criou botões na ribbon que apontam para um site ? Se sim, como escreveu o código do botão ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

FRANCISCO SANTOS
Mensagens: 62
Registrado em: 24 Ago 2015, 10:27

Re: MontaRibbon-SiteMozilla

Mensagempor FRANCISCO SANTOS » 15 Fev 2017, 23:14

Boa noite

Professor o código na Ribbons no botão:

<button
id = "btSite1"
imageMso = "BlogHomePage"
label = "TJ-RN"
size = "large"
tag = "http://www.tjrn.jus.br/"
onAction = "fncOnAction"
/>

no Mod-Ribbons:

Public Sub fncOnAction(control As IRibbonControl)
On Error GoTo TrataErro
Select Case control.id
Case "btCalculadora"
Call Shell("calc.exe", vbNormalFocus)
Case "btSite"
Call FollowHyperlink(control.Tag)
Case "btSair"
DoCmd.Quit acQuitSaveAll
Case "btSite1"
Call FollowHyperlink(control.Tag)
Case "btSite2"
Call FollowHyperlink(control.Tag)
Case Else
MsgBox "Você clicou no botão " & control.id, vbInformation, "Aviso"
End Select
Sair:
Exit Sub
TrataErro:
MsgBox "Erro: " & err.Number & vbCrLf & err.Description, vbCritical, "Aviso", err.HelpFile, err.HelpContext
Resume Sair:
End Sub

Avatar do usuário
Avelino Sampaio
Mensagens: 1895
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: MontaRibbon-SiteMozilla

Mensagempor Avelino Sampaio » 16 Fev 2017, 05:55

Francisco,

ou vc configura o mozila como seu navegador padrão ou acrescente a função abaixo, em um módulo global:

Código:
Public Sub fncAbrirSite(strSite As String)
Dim ws As Object, x
Set ws = CreateObject("WScript.Shell")
x = ws.Run(strSite, vbMaximizedFocus, False)
Set ws = Nothing
End Sub


E chame o site com a seguinte linha:

Código:
...
Case "btSite1"
fncAbrirSite("""C:\Program Files (x86)\Mozilla Firefox\firefox.exe"" " & control.tag)
...


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


FRANCISCO SANTOS
Mensagens: 62
Registrado em: 24 Ago 2015, 10:27

Re: MontaRibbon-SiteMozilla

Mensagempor FRANCISCO SANTOS » 16 Fev 2017, 17:42

Boa tarde, Professor

Muito Obg deu certo

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Ribbons”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante