PASSANDO CONDICAO PARA SELECT CASE

DANLEONHART 06/11/2011 08:16:49
#388567
Pessoal,

Dúvida de iniciante mesmo...
Como passo esta condição para o [Ô]Select Case[Ô] ?

    If MessageBox.Show([Ô]Deseja seguir ?[Ô], [Ô]Pergunta :[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            MsgBox([Ô]Sim ![Ô])
        Else
            MsgBox([Ô]Não.[Ô])
        End If


Fiz assim mas não deu certo:

MessageBox.Show([Ô]Deseja seguir ?[Ô], [Ô]Pergunta :[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        Select Case DialogResult
            Case Windows.Forms.DialogResult.Yes
                MsgBox([Ô]Sim ![Ô])
            Case Windows.Forms.DialogResult.No
                MsgBox([Ô]Não.[Ô])
        End Select
TECLA 06/11/2011 09:32:14
#388570
Qual é o erro que dá?
MARCOSLING 06/11/2011 11:56:13
#388573
vc tem que pegar o retorno de MessageBox.Show([Ô]Deseja seguir ?[Ô], [Ô]Pergunta :[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question)
para poder usar no select case
DANLEONHART 06/11/2011 16:12:00
#388579
TECLA: simplesmente não acontece nada...

MARCOSLING: o retorno não seria o Yes/No ???
RODRIGOFERRO 06/11/2011 16:52:58
#388580 Resposta escolhida
Boa tarde, sua lógica esta incoerente !

é como o Marcos falou tem que pegar o resultado do Messagebox !



        Dim NovoResultado As New DialogResult

        NovoResultado = MessageBox.Show([Ô]Deseja seguir ?[Ô], [Ô]Pergunta :[Ô], MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        Select Case NovoResultado
            Case Windows.Forms.DialogResult.Yes
                MsgBox([Ô]Sim ![Ô])
            Case Windows.Forms.DialogResult.No
                MsgBox([Ô]Não.[Ô])
        End Select
DANLEONHART 06/11/2011 19:35:35
#388584
Obrigado ZEROCAL...

Eu não sabia que até pra isso precisava setar uma variavel...
migrando do VB-6 para o NET...vicios de linguagem...
Tópico encerrado , respostas não são mais permitidas
Voltar