Hi ich habe folgendes Problem,
ich bekomm ich eine Textbox einen String gesendet, dieser soll ab einen bestimmten zeichen (Asc 13) abgeschnitten werden.
Mit meinen Quellcode bekomm ich immer die Meldung das der Wert nicht kleiner Null sein darf?
Was mache ist denn da verkehrt?
Dim b As Integer
Dim z As String
Dim a As String = TextBox2.Text
b = a.IndexOf("~")
z = Microsoft.VisualBasic.Left(a, b - 1)
TextBox2.Text = z
Danke
Charly Newbie
Anmeldedatum: 06.09.2010 Beiträge: 7
Verfasst am: 20.09.2010, 16:08
Hallo,
Wenn im String keine übereinstimmung gefunden wird gibt indexof -1 zurück.
Am besten mit einer if-Anweisung -1 abfangen.
Code:
If b = -1 Then
Exit Sub
Else
z = Microsoft.VisualBasic.Left(a, b)
TextBox2.Text = z
End If
Registrieren
Login
