Inputbox, Msgbox

Status
Niet open voor verdere reacties.

Milenko81

Nieuwe gebruiker
Lid geworden
15 feb 2007
Berichten
2
Hallo, ik ben nieuw op dit forum en heb een vraag.
Ik ben pas begonnen met VB.NET en probeer een programma te maken waar ik niet uitkom.
Het is de bedoeling dat als er een bepaalde regel in een listbox wordt geklikt, er een inputbox verschijnt waar je een antwoord op een vraag kunt typen. Tot zover alles koek en ei.
Als er niks ingevoerd wordt in de inputbox, moet er een msgbox verschijnen met de tekst dat er een antwoord verwacht wordt enzo. ook dat lukt me nog wel, maar als de msgbox dan weggeklikt wordt, moet wederom de inputbox in beeld komen.
Hoe krijg ik dit voor elkaar?
Als iemand mij hiermee zou kunnen helpen stel ik dat zeer op prijs.
 
okee dat van die msgbox snap ik nu, ik heb alleen nog problemen om de tekst in de labels te krijgen.

Code:
  'set prompt
        message = "Please type your answer below:"
        'set title
        title = "Answerbox"
        Select Case ListBox1.SelectedIndex
            Case 0

                value = InputBox(message, title)
                While value = ""
                    If value = "" Then
                        MsgBox("You must type an answer!")
                        value = InputBox(message, title)

                    ElseIf value = "=, <>, >, <, >=, <=" Then
                        lblGreat.Text = "GREAT!"
                        PictureBox1.Visible = True
                        PictureBox2.Visible = True
                    Else
                        lblGreat.Text = "Type the answer exactly as in the program..."


                    End If

                End While

            Case 2
            Case 4
            Case 6
            Case 8
            Case 10
            Case 12
            Case Else






        End Select

    End Sub
End Class
 
Ik heb niet veel verstand van vb, maar is het net als c++ dat je een break; moet doen in een cas statement? Die zie ik nml bij jou niet terug. Hij valt dan in de volgende case statement.

Misschien moet je het scherm ook nog refreshen?
 
Bij VB moet je eigenlijk niets zelf doen :thumb: maw: Geen refresh en geen break.

Volgende punt en antwoord op uw vraag:

ElseIf value = "=, <>, >, <, >=, <=" Then
lblGreat.Text = "GREAT!"
PictureBox1.Visible = True
PictureBox2.Visible = True

Vervang dat door:

ElseIf value = "=" Or value = "<>" Or value =">" Then 'En zo verder natuurlijk You'll get the point ...
lblGreat.Text = "GREAT!"
PictureBox1.Visible = True
PictureBox2.Visible = True

ik veronderstel dat dit je probleem was??
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan