MSGBOX COM SKINS PRECISANDO DE AJUDA

LEOBOCARDI 13/10/2010 21:22:53
#355030
Pessoal estou fazendo MsgBox para por Skins. Abaixo segue o código:
If cmd_incluir.Enabled = False Then
Set Msg = New RmCXMsg.CxMsg
Msg.AplicarSkin App.Path & [Ô]\skins\Fauxs.skn[Ô]
Msg.Abrir [Ô]Você Está Fazendo Uma Inclusão. Deseja Realmente Sair ?[Ô], SimNao, RmPergunta, [Ô]AVISO[Ô]
If Msg.RespSim Then


Else

End If
Set Msg = Nothing

Unload Me
Set frmcadfil = Nothing

End If
End Sub

O que eu preciso é o seguinte:
Quando eu clicar no SIM, sai da MsgBox e quando clicar em Não sai da MsgBox porém vá o foco para o campo camp_nome.

Me ajudam?
MILTONFILHO 13/10/2010 22:18:43
#355031
If Msg.RespSim Then


Else
camp_nome.SetFocus
End If
LEOBOCARDI 13/10/2010 22:21:16
#355032
Vou tentar rapidin...
LEOBOCARDI 13/10/2010 22:24:50
#355034
Tentei nao dão está fechando o form como antes :/...
LEOBOCARDI 13/10/2010 22:27:10
#355035
tentei tbm...

Else
frmcadfil.Show
frmcadfil.camp_nome.SetFocus
não deu...

=/ Sabe o que pode ser?
SAMUKA 13/10/2010 23:52:24
#355036 
  
    Unload Me
    Set frmcadfil = Nothing


Acho que vc nao precisa dessas linhas ... afinal são elas que estão fechando seu frmcadfil
ENGALEXANDRE 14/10/2010 01:16:24
#355038 Resposta escolhida
Seu código [txt-color=#e80000]corrigido[/txt-color]:

If cmd_incluir.Enabled = False Then
Set Msg = New RmCXMsg.CxMsg
Msg.AplicarSkin App.Path & [Ô]\skins\Fauxs.skn[Ô]
Msg.Abrir [Ô]Você Está Fazendo Uma Inclusão. Deseja Realmente Sair ?[Ô], SimNao, RmPergunta, [Ô]AVISO[Ô]
If Msg.RespSim Then


Else

[txt-color=#e80000]SEU CÓDIGO[/txt-color]

End If

Set Msg = Nothing

[txt-color=#e80000]Me[/txt-color].camp_nome.SetFocus

Unload Me
Set frmcadfil = Nothing

End If
End Sub

Alexandre
LEOBOCARDI 14/10/2010 12:47:57
#355064
Quase agora qndo eu coloko não fecha e manda o foco para o frm só que está acontecendo nos dois tanto na resposta SIM como NAO
NALDO 14/10/2010 15:28:56
#355087
Um código simples e rápido meu deu certo...

If MsgBox([Ô]Deseja sair?[Ô], vbExclamation + vbYesNo, [Ô]Mensagem[Ô]) = vbYes Then
Unload Me
Else
Unload Me
frm.Show
End If
[txt-color=#0000f0]
----------------------------------------------------------------------------------------------------------------------------[/txt-color]

Tenta colocar um parenteses na mensagem...

Ex 1:
If Msg.Abrir[txt-color=#e80000] ([/txt-color][Ô]Você Está Fazendo Uma Inclusão. Deseja Realmente Sair ?[Ô], SimNao, RmPergunta, [Ô]AVISO[Ô][txt-color=#e80000])[/txt-color] =RespSim then

Ex 2:
Msg.Abrir[txt-color=#e80000] ([/txt-color][Ô]Você Está Fazendo Uma Inclusão. Deseja Realmente Sair ?[Ô], SimNao, RmPergunta, [Ô]AVISO[Ô][txt-color=#e80000])[/txt-color]
If Msg.RespSim Then
LEOBOCARDI 14/10/2010 17:30:20
#355101
Opa consegui! =)

Agradeço pelas dicas me ajudaram bastante o código ficou assim:
Private Sub cmd_fechar_Click()
If cmd_incluir.Enabled = False Then
Set Msg = New RmCXMsg.CxMsg
Msg.AplicarSkin App.Path & [Ô]\skins\sirius2.skn[Ô]
If Msg.Abrir([Ô]Você Está Fazendo Uma Inclusão. Deseja Realmente Sair ?[Ô], SimNao, RmPergunta, [Ô]AVISO[Ô]) = Msg.RespSim Then
Set Msg = Nothing
Me.camp_nome.SetFocus
Else
Unload Me

End If
End If
End Sub



Ensinar os iniciantes, pois um dia você foi um deles.
Tópico encerrado , respostas não são mais permitidas
Voltar