MENSAGEM DE AJUDA

JORGESALES 30/06/2015 00:09:31
#448307
pessoal estou tentando usar a mensagem com a opção de ajuda
mas não sei o comando, tentei o código abaixo mas não foi:
If MsgBox([Ô] ok[Ô], vbMsgBoxHelpButton) <> vbOK Then
    MsgBox [Ô]ajuda[Ô]
End If
JABA 30/06/2015 00:57:49
#448308 Resposta escolhida
Tente assim:

If MsgBox([Ô] ok[Ô], vbOKCancel + vbMsgBoxHelpButton) <> vbOK Then
    MsgBox [Ô]ajuda[Ô]
End If


Pode ser feito com VbyesNo também:

If MsgBox([Ô] ok[Ô], vbYesNo + vbMsgBoxHelpButton) <> vbYes Then
    MsgBox [Ô]ajuda[Ô]
End If
JABA 30/06/2015 01:12:50
#448310
Tente da seguinte forma também:

    Const caminhoArquivo As String =  [Ô]C:\CaminhoDoSeuArquivoAjuda\TVCTL.chm[Ô]
    Dim Mensagem As String

    Mensagem = MsgBox([Ô]Teste para abrir arquivo de ajuda[Ô], vbOKCancel + vbQuestion + vbDefaultButton1 + vbMsgBoxHelpButton, [Ô]Exibir Ajuda[Ô], caminhoArquivo, 71)


Obs: Se você clicar no botão ajuda, tem que abrir o arquivo de ajuda especificado na variável [Ô]caminhoArquivo[Ô]
JORGESALES 30/06/2015 10:03:27
#448327
JABA, os dois primeiros exemplos nada acontece quando se clica
no botão [Ô]Ajuda[Ô] quanto ao terceiro ao clicar aparece a mensagem:
[Ô]Unable to display help[Ô] = [Ô]Não pôde exibir a ajuda[Ô]
usei o código assim, colocando um arquivo txt para ser exibido, mas poderia
ser qualquer coisa, eu só preciso que o botão ajuda faça alguma coisa.
Const caminhoArquivo As String = [Ô]C:\Users\JorgeSales\Dropbox\Files\Study\VB6\AgendaPlus\Meu\BKUP\BarradeProgresso\Contratos\CDC\Ajuda.txt[Ô]
    Dim Mensagem As String
    Mensagem = MsgBox([Ô]Teste para abrir arquivo de ajuda[Ô], vbOKCancel _
    + vbQuestion + vbDefaultButton1 + vbMsgBoxHelpButton, [Ô]Exibir Ajuda[Ô], caminhoArquivo, 71)
JABA 30/06/2015 14:56:58
#448347
Eu acho que só dá para exibir arquivos com certas extensões, como por exemplo [Ô].chm[Ô]
ASHKATCHUP 30/06/2015 15:16:47
#448349
O botão de ajuda (vbMsgBoxHelpButton) só pode exibir dois tipos de arquivos:
-HTML <https://support.microsoft.com/en-us/kb/315988>
-CHM <https://msdn.microsoft.com/en-us/library/t419bf97(v=vs.90).aspx>

Para criar arquivos desse tipo, abra o programa Microsoft Help Workshop (ele é geralmente instalado junto com o VB6).
OMAR2011 30/06/2015 23:10:09
#448370
Tente assim.
If MsgBox([Ô]Deseja acessar arquivo de ajuda?[Ô], vbExclamation + vbDefaultButton2 + vbYesNo, [Ô]Aviso[Ô]) = vbYes Then
Shell [Ô]Notepad [Ô][Ô]C:\Users\JorgeSales\Dropbox\Files\Study\VB6\AgendaPlus\Meu\BKUP\BarradeProgresso\Contratos\CDC\Ajuda.txt[Ô][Ô][Ô], vbNormalFocus
End if
JORGESALES 14/08/2015 22:39:51
#450008
Pessoal este tópico não ouve resposta correta mas pontuei o JABA
por aproximação.
Tópico encerrado , respostas não são mais permitidas
Voltar