ListBox Frage!

    • ListBox Frage!

      Hi ,
      ich habe ein kleines Problem :(
      Ich fülle meine Listbox mit den Inhalten aus einer .txt Datei , klappt ohne Probleme.
      Ich möchte nun jedoch z.B. den ersten Listbox Eintrag in eine Textbox eintragen lassen und dann eine Aktion starten , danach soll dann der 2. Eintrag genommen werden.
      Ich glaube das versteht ihr oder?
      Ich stehe derzeit auf dem Schlauch und komme nicht weiter...

    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )

    • Public Class Form1

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      WebBrowser1.Document.GetElementById("login[username]").InnerText = TextBox1.Text
      WebBrowser1.Document.GetElementById("login[password]").InnerText = TextBox2.Text
      WebBrowser1.Document.GetElementById("login[password]").Focus()
      SendKeys.Send("{ENTER}")
      SendKeys.Send("{ENTER}")

      End Sub

      Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      Dim html As String = WebBrowser1.Document.All(1).OuterHtml

      If html.Contains("Nickname:") Then
      Label5.Text += 0.5
      WebBrowser1.Navigate("http://4story.de/user/login")
      Label11.ForeColor = Color.Green
      Label11.Text = "Account funktioniert!"
      End If

      If html.Contains("Bei der Anmeldung ist ein Fehler aufgetreten.") Then
      Label6.Text += 0.5
      Label11.ForeColor = Color.Red
      Label11.Text = "Account funktioniert nicht."
      End If
      End Sub
      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      WebBrowser1.Navigate("http://4story.de/user/login")
      End Sub

      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
      Dim Liste As New List(Of String)
      Liste.AddRange(IO.File.ReadAllLines("C:\username.txt"))
      For Each t As String In Liste
      ListBox1.Items.Add(t)
      Next
      End Sub

      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
      'pw liste import
      End Sub


      So , nachdem man seine Usernames importiert hat , möchte ich diese nacheinander in eine TextBox packen.
      Nur so z.B. , die Usernames werden in der listbox so angezeigt:
      peter
      pan
      1337

      so ich möchte nun , wenn man auf "check all" klickt , das er peter in die textbox einträgt und den vorgang durchführt , danach soll er pan eingeben und den vorgang wieder durchführen , dann 1337 . Jetzt verstanden ?
      Ach ja der obere Code ist nur fürs manuelle checken , ich sitze gerade am automatischen :)

    • internetfreak;118361 schrieb:

      [FONT="Comic Sans MS"][COLOR="DeepSkyBlue"][SIZE="3"]Glaube es liegt an dem "ich"
      Sollte denke ich each heißen
      vll klappts jetzt[/SIZE][/COLOR][/FONT]


      nene daran liegt es nicht ^^ man könnte auch

      For bla as String oder so machen und es ginge.

      For ich Str As String in listbox1.items
      txtbox.Text = Str
      Action()
      Next


      Eventuell geht es so.


      For ich Str As New String in listbox1.items
      txtbox.Text = Str
      Action()
      Next

      Sicher bin ich mir grade nicht.