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...
ListBox Frage!
-
-
Kein wort verstanden ._.
Poste doch mal den Code und dan nochmal dein vorhaben -
ZitatAlles anzeigen
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).OuterHtmlIf html.Contains("Nickname:") Then
Label5.Text += 0.5
WebBrowser1.Navigate("http://4story.de/user/login")
Label11.ForeColor = Color.Green
Label11.Text = "Account funktioniert!"
End IfIf 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 SubPrivate 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 SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'pw liste import
End SubSo , 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
1337so 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 :) -
For ich Str As String in listbox1.items
txtbox.Text = Str
Action()
Next -
Mhm , jetzt kommt Syntaxfehler...
-
[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] -
Zitat von internetfreak;118361
[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.
ZitatFor ich Str As String in listbox1.items
txtbox.Text = Str
Action()
NextEventuell geht es so.
For ich Str As New String in listbox1.items
txtbox.Text = Str
Action()
NextSicher bin ich mir grade nicht.
-
Sry heist each
-
Ok , danke :)
Geht aber immer noch nicht ...

-
Action musst du mit dem was er tun soll ersetzen
und losch dir Klammer hinter Str -
Ouh man i Failed :D
Danke
Jetzt mitmachen!
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!