LBLERROR.CAPTION [Ô]YOU NEED TO ANSWER YES OR NO

Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
    If strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô] Then
        lblError.Caption = [Ô]You need to answer Yes or No[Ô]
        Exit Do
    End If
    Beep
Loop
MsgBox [Ô]Answer: [Ô] & strAns

Citação:

TECLA escreveu:
Quanto à sua dúvida...

Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
    If strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô] Then
        lblError.Caption = [Ô]You need to answer Yes or No[Ô]
        Exit Do
    End If
    Beep
Loop
MsgBox [Ô]Answer: [Ô] & strAns

Citação:

MANCKENNA escreveu:
TECLA escreveu:
Quanto à sua dúvida...

Dim strAns As String
Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
    strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
    If strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô] Then
        lblError.Caption = [Ô]You need to answer Yes or No[Ô]
        Exit Do
    End If
    Beep
Loop
MsgBox [Ô]Answer: [Ô] & strAns

_____________________________________________________________________________________________________________


Option Explicit

Private Sub Command1_Click()
1 Dim strAns As String
2 Do While (strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô])
3 strAns = InputBox([Ô]Do You Want to Continue ([ô]Yes[ô] or [ô]No[ô]) ?[Ô], [Ô]Test[Ô])
4 If strAns <> [Ô]Yes[Ô] And strAns <> [Ô]No[Ô] Then
5 lblError.Caption = [Ô]You need to answer Yes or No[Ô] [ô]<<< Está dando erro nesta linha
6 Exit Do [ô][Ô] Compile Error Variable Not Defined [Ô]
7 End If
8 Beep
9 Loop
10 MsgBox [Ô]Answer: [Ô] & strAns
End Sub

Citação:

BARROS escreveu:
Pelo que pude perceber, este exercício é sobre [Ô]Estruturas de Decisão[Ô].

Vamos a uma pequena aulinha:

Estruturas de decisão são utilizadas para que o programa tome uma decisão baseada em algumas condiçoes. Neste caso, você está testando duas coisas:

1 - Que botão foi pressionado numa MSGBOX.

Prá isso, ele armazena a resposta em uma variável, nesse caso, strAns, que poderia ter qualquer nome, por exemplo, strResposta ou sResp...

2 - Depois de armazenar a resposta, o sistema verifica o valor que está armazenado ([Ô]Yes[Ô] or [Ô]No[Ô]) - Sim ou Não, e atualiza o conteúdo de uma ListBox, neste caso, chamada de LblError.

Esta label tem que existir em seu formulário, com este nome, senão o processamento não poderá continuar, pois não haverá ONDE armazenar essa informação.

Tome muito cuidado com os nomes de objetos ou variáveis, pois eles determinam como e onde as informações geradas pelo sistema serão armazenadas.

Citação:

MANCKENNA escreveu:
BARROS escreveu:
Pelo que pude perceber, este exercício é sobre [Ô]Estruturas de Decisão[Ô].

Vamos a uma pequena aulinha:

Estruturas de decisão são utilizadas para que o programa tome uma decisão baseada em algumas condiçoes. Neste caso, você está testando duas coisas:

1 - Que botão foi pressionado numa MSGBOX.

Prá isso, ele armazena a resposta em uma variável, nesse caso, strAns, que poderia ter qualquer nome, por exemplo, strResposta ou sResp...

2 - Depois de armazenar a resposta, o sistema verifica o valor que está armazenado ([Ô]Yes[Ô] or [Ô]No[Ô]) - Sim ou Não, e atualiza o conteúdo de uma ListBox, neste caso, chamada de LblError.

Esta label tem que existir em seu formulário, com este nome, senão o processamento não poderá continuar, pois não haverá ONDE armazenar essa informação.

Tome muito cuidado com os nomes de objetos ou variáveis, pois eles determinam como e onde as informações geradas pelo sistema serão armazenadas.



Quando eu crio o Label1 e o renomeio para Name: LblError , aparece o seguinte erro : [Ô]Not a Legal Object Name : [Ô] LblError[Ô]