Página 1 de 1

[resolvido] MontaRibbon-SiteMozilla

Enviado: 15 Fev 2017, 19:58
por FRANCISCO SANTOS
Boa tarde,
Professor como faço para nas minhas Ribbons os sites abrir pelo mozilla, só está abrindo pelo Internet explorer.
Aguardo resposta

Re: MontaRibbon-SiteMozilla

Enviado: 15 Fev 2017, 21:08
por Avelino Sampaio
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

Re: MontaRibbon-SiteMozilla

Enviado: 15 Fev 2017, 23:14
por FRANCISCO SANTOS
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

Re: MontaRibbon-SiteMozilla

Enviado: 16 Fev 2017, 05:55
por Avelino Sampaio
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

Re: MontaRibbon-SiteMozilla

Enviado: 16 Fev 2017, 17:42
por FRANCISCO SANTOS
Boa tarde, Professor

Muito Obg deu certo