USANDO O COMPONENTE RMCXMSG

DANLEONHART 07/06/2011 21:19:46
#376120
Como faço para exibir com a opção vbYesNo ???

Tipo:

If MsgBox([Ô]Deseja seguir?[Ô], vbQuetion + vbYesNo) = vbYes Then
...script...
End If


Fazer este script com o componente RmCxMsg
DANLEONHART 07/06/2011 21:55:27
#376123
Conseguí com Select Case...

Msg.AplicarSkin mSkin [ô] <= Variavel com o caminho da skin
Msg.Abrir [Ô]Esta mensagem é um teste ?[Ô], [2 But], RmPergunta
Select Case Msg.ButClick
 Case 0
   Msg.Abrir [Ô]Você escolheu Sim ![Ô]
 Case 1
   Msg.Abrir [Ô]Você escolheu Não ![Ô]
End Select


será que rola com o If ?
JPAULO101 08/06/2011 07:44:13
#376138
USA DA SEGUINTE MANEIRA

Set Msg = New RmCXMsg.CxMsg
Msg.AplicarSkin App.Path & [Ô]\SimileBlue.skn[Ô]
Msg.Abrir [Ô]Deseja realmente sair do programa ?[Ô], SimNao, RmPergunta, [Ô]SAIR DO SISTEMA[Ô]
If Msg.RespSim Then

TEM QUE FAZER A REFERENCIA DO RmCXMsg
ROBIU 08/06/2011 08:27:18
#376140 Resposta escolhida
Obrigado por usar a RmMsgbox. Acabei de enviar a nova versão para o site. Nesta versão inclui o parametro SkinSetHue. Este parâmetro muda a cor do Skin e se encontra no método abrir. Desta forma você pode ter um mesmo skin em cores diferentes. Uma boa prática é colocar a configuração da RmMsgbox em um módulo para que seja usado por todos os forms. No arquivo enviado há um módulo com as configurações básicas.
DANLEONHART 08/06/2011 19:14:59
#376205
Deixa link...
ROBIU 10/06/2011 07:53:09
#376375
Tópico encerrado , respostas não são mais permitidas
Voltar