Hallo ihr Profis.
Ich hänge an einem Punkt fest und weiß als ursprünglicher VBA in excel Nutzer gerade nicht weiter und hoffe,
dass ihr mir den entscheidenden Hinweis geben könnt.
ich habe im Grunde diese Ausgangslage
Es kam jetzt eine Textbox dazu, in der ich einen Wert eintrage. Um sicher zu gehen, dass da kein Unfug passiert,
sieht das Textfeld im Code so aus:
Jetzt soll dieser Wert die x-letzten Eingaben vorgeben,
die in der zweiten Listbox ausgewertet werden sollen. und da hänge ich,
denn trotz Option Strict On bekomme ich einen Fehler, wie im Screenshot zu sehen ist.
Was ist an diesem Code denn jetzt falsch, und wie bekomm ich das richtig hin?
Vielen lieben Dank im Voraus
MacPiet
Ich hänge an einem Punkt fest und weiß als ursprünglicher VBA in excel Nutzer gerade nicht weiter und hoffe,
dass ihr mir den entscheidenden Hinweis geben könnt.
ich habe im Grunde diese Ausgangslage
Es kam jetzt eine Textbox dazu, in der ich einen Wert eintrage. Um sicher zu gehen, dass da kein Unfug passiert,
sieht das Textfeld im Code so aus:
VB.NET-Quellcode
- 'FilterBox
- Private Sub TBFilter_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbFilter.KeyPress
- Select Case Asc(e.KeyChar)
- Case 48 To 57, 8
- ' Zahlen, Backspace zulassen / für space -> ,32
- Case Else
- ' alle anderen Eingaben unterdrücken
- e.Handled = True
- End Select
- End Sub
Jetzt soll dieser Wert die x-letzten Eingaben vorgeben,
die in der zweiten Listbox ausgewertet werden sollen. und da hänge ich,
denn trotz Option Strict On bekomme ich einen Fehler, wie im Screenshot zu sehen ist.
Was ist an diesem Code denn jetzt falsch, und wie bekomm ich das richtig hin?
VB.NET-Quellcode
- Private Sub BtnReload_Click(sender As Object, e As EventArgs) Handles BtnReload.Click
- If ListBox1.Items.Count.ToString <= tbFilter.Text Then
- FilterRunden = ListBox1.Items.Count
- Else
- FilterRunden = CInt(tbFilter.Text.ToString)
- End If
- Do While ListBox1.Items.Count >= FilterRunden
- OriginalListe.RemoveAt(OriginalListe.Count -1)
- Loop
- End Sub
Vielen lieben Dank im Voraus
MacPiet
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „MacPiet“ ()