...
Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF +
Diversas Revistas (pdf) de brinde, por apenas
R$182,00
(podendo
parcelar em até
10
vezes no cartão de crédito)...
Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.
Não pode executar macro ou função de retorno
Usuário Damasceno:
Bom dia.
Estou com um problema que anda me deixando intrigado: minha ribbon retorna essa mensagem da imagem abaixo, sempre que altero as opções do tipo de feedback. Somente acontece nesse controle para a fncOnAction, todos os outros funcionam perfeitamente. Já tentei onAction = "=fncOnAction" e não resolveu.
Onde estou errando?
Minha referência para o funcionamento das ribbons está ativa, veja:
Suporte:
Olá, Damasceno! Acrescente a parte em vermelho, na função fncOnAction:
Public Sub fncOnAction(control As IRibbonControl, Optional selected As String, Optional selectedIndex As Integer)
...
...
Com o selected ou com o selectedIndex você pode controlar os itens. Um exemplo:
Option Compare Database
Public objRibbon As IRibbonUI
Public TipoFeed As String
Public Sub fncOnAction(control As IRibbonControl, Optional selected As String, Optional selectedIndex As Integer)
On Error GoTo trataerro
Select Case control.Id
Case "bt1"
MsgBox TipoFeed
Case "rgr1"
TipoFeed = Switch(selected = "rbt1", "Comentários", selected = "rbt2", "Sugestões", selected = "rbt3", "Problemas")
Case Else
MsgBox "clicou no botão " & control.Id, vbInformation, "Aviso"
End Select
sair:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso/Alert", Err.HelpFile, Err.HelpContext
Resume sair:
End Sub
Usuário Damasceno:
Avelino,
também preciso saber como faço para capturar o valor do item selecionado.
Suporte:
Damasceno, através da função fncOnChange,
Option Compare Database
Public objRibbon As IRibbonUI
Public TipoFeed As String
Public strFeedBack as String
Sub fncOnChange(control As IRibbonControl, strText As String)
On Error GoTo trataerro
Select Case control.Id
Case "txtFeedback"
strFeedBack = strText
Case Else
MsgBox "Valor do campo: " & strText, vbInformation, "Aviso"
objRibbon.Invalidate
End Select
sair:
Exit Sub
trataerro:
MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
Resume sair:
End Sub
No botão de enviar é só usar o conteúdo das duas variáveis (TipoFeed e strFeedBack).
Usuário Damasceno:
Resolvido, Mestre...
Obrigado mais uma vez.
Não há comentário |