Listenbox und Textbox

[cooper111]

Hallo,
ich hoffe jemand kann mir helfen da ich ein Anfänger bin.
Ich habe eine Listenbox in der ca 30 Jpg Namen stehen die ich aus einem Verzeichnis einlesen habe.

In eine Textbox gebe ich ein jpg Namen eine nun möchte ich das eine Überprüfung zwischen der
listenbox und dem inhalt der textbox stattfindet falls der eingegebene Name nicht in der Listenbox sich befindet soll eine Fehlermeldung angezeigt werden


hoffentlich kann mir jemand helfen da ich es seit stunden bereits versuche :-((((


hier ist das was ich hingekriegt habe leider geht es nur mit Zahlen

Dim Artikel As String
Artikel = 1
If Single.TryParse(TextBox1.Text, Artikel) = False Then
MessageBox.Show("Artikel Nr: " & TextBox1.Text & " existiert nicht!! Bitte neu eingeben")
TextBox1.Text = ""

End If

PictureBox1.Image = Nothing

TextBox2.Text = Artikel

If TextBox1.Text = Artikel Then
PictureBox1.Image = Image.FromFile("C:\bilder\" & Artikel & ".jpg")
TextBox1.Text = ""
TextBox2.Text = Artikel
End If

End Sub

 

[DrSoong]

Geht ganz einfach mit

If ListBox1.Items.IndexOf(TextBox1.Text) > 1 Then
  'Existiert schon in der Liste
Else
  'Existiert noch nicht
End If

Der Doc!

PS: Bitte Groß-/Kleinschreibung beachten.

 

[cooper111]

danke für deine Hilfe funktioniert super.
Leider habe ich nun ein anderes Problem.
In der Listbox werden meine jpg Namen so angezeigt (test.jpg)

wie kann ich den Cod änder das ohne .jpg in der Listbox angezeigt wird

hier der Cod.

Const Verz = "C:\Bilder"
Dim Datei
Dim Ordner
Dim FSO As Object
FSO = CreateObject("Scripting.filesystemobject")
ListBox1.Items.Clear()
For Each Datei In FSO.getfolder(Verz).Files
ListBox1.Items.Add(Datei.name)
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
ListBox1.Items.Add(Ordner.name)
Next

 

[DrSoong]

Geht, indem du beim schreiben in die Listbox einfach die Endung abschneidest.

Const Verz = "C:\Bilder"
Dim Datei
Dim Ordner
Dim FSO As Object
FSO = CreateObject("Scripting.filesystemobject")
ListBox1.Items.Clear()
For Each Datei In FSO.getfolder(Verz).Files
  ListBox1.Items.Add(Replace(Datei.name, ".jpg", ""))
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
  ListBox1.Items.Add(Ordner.name)
Next

Mit Replace kannst du Teile in einem String durch andere Stings (und auch durch nichts) ersetzen.


Der Doc!

Nochmals PS: Verwende doch die Code-Tags, da sieht der Code viel lesbarer aus. Im Fall von VB wären das [vb] und [/vb].

 

[cooper111]

viel dank für deine Hilfe

es funktioniert richtig gut