PDA

Vollständige Version anzeigen : if-Bedingung funktioniert nicht mit Visual Basic 2005


Tinamausi
20.12.2007, 12:09
Hallo und zwar habe ich mal eine Frage. Ich habe folgende if-Bedingung mit Visual Basic 2005 aufgestellt:

Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click
If txt_Programm_eingeben.Text = "" Then
MsgBox("Bitte geben Sie ein Programm-Namen ein!", vbInformation)
Me.ActiveControl = txt_Programm_eingeben

Else
If txt_Anzahl_Lizenzen.Text = "" Then
MsgBox("Bitte geben Sie die Anzahl der verfügbaren Lizenzen dieses Programmes ein!", vbInformation)
Me.ActiveControl = txt_Anzahl_Lizenzen
Else
If IsNumeric(txt_Anzahl_Lizenzen) = False Then
MsgBox("Bitte geben Sie ausschließlich Zahlen bei den Lizenzen ein!", vbInformation)
Me.ActiveControl = txt_Anzahl_Lizenzen
Else

Form1.Show()
Me.Hide()

End If
End If
End If

End Sub

Irgend wie funktioniert sie aber nicht richtig. Egal was ich in das Feld txt_Anzahl_Lizenzen.Text eingebe, erscheint die MsgBox mit "Bitte Zahl eingeben". Warum?

Würde mich freuen wenn mir schnell einer antworten würde :)
Liebe Grüße

wincnc
20.12.2007, 14:20
Hallo, versuch´s mal so:
Private Sub btn_OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_OK.Click
If txt_Programm_eingeben.Text = "" Then
MsgBox("Bitte geben Sie einen Programm-Namen ein!", vbInformation)
txt_Programm_eingeben.Focus()
ElseIf txt_Anzahl_Lizenzen.Text = "" Then
MsgBox("Bitte geben Sie die Anzahl der verfügbaren Lizenzen des Programmes ein!", vbInformation)
txt_Anzahl_Lizenzen.Focus()
ElseIf Char.IsNumber(txt_Anzahl_Lizenzen.Text) = False Then
MsgBox("Bitte geben Sie ausschließlich Zahlen bei den Lizenzen ein!", vbInformation)
txt_Anzahl_Lizenzen.Focus()
txt_Anzahl_Lizenzen.SelectAll()
Else
Form1.Show()
Me.Hide()
End If
End Sub