Hoe regel ik dat als ik op button1 klik dat die de volgende proxy uit de listbox uitkiest?


vb.net

Liefde voor antwoord

---

C# Syntax zou het zo ongeveer zijn:"

//buiten event declaren. (zodat hij maar 1x aangeroepen word).
int lastIndex = 0;

//Button1_Click Event.
int newIndex;
if(lastIndex == 0)
{
  newIndex = lastIndex;
  ListBox1.SelectedIndex = newIndex;
  lastIndex += 1;
}else{
  newIndex = lastIndex+1;
  ListBox1.SelectedIndex = newIndex;
  lastIndex = newIndex;
}

#Niet getest, dit is beetje principe er achter.

---

Quote: Speedbird2
C# Syntax zou het zo ongeveer zijn:"

//buiten event declaren. (zodat hij maar 1x aangeroepen word).
int lastIndex = 0;

//Button1_Click Event.
int newIndex;
if(lastIndex == 0)
{
  newIndex = lastIndex;
  ListBox1.SelectedIndex = newIndex;
  lastIndex += 1;
}else{
  newIndex = lastIndex+1;
  ListBox1.SelectedIndex = newIndex;
  lastIndex = newIndex;
}

#Niet getest, dit is beetje principe er achter.

Ty,
Kheb nu dit gevonden

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    ListBox1.SelectedIndex += 1
  End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    TextBox1.Text = ListBox1.SelectedItem.ToString()
  End If
End Sub

Alleen hoe zorg ik dat die output ervan als proxy addres word gebruikt?

---

Quote: SoftCrack
[...]
Ty,
Kheb nu dit gevonden

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    ListBox1.SelectedIndex += 1
  End If
End Sub

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    TextBox1.Text = ListBox1.SelectedItem.ToString()
  End If
End Sub

Alleen hoe zorg ik dat die output ervan als proxy addres word gebruikt?

Zelfde functie weer aan roepen lijkt mij. RefreshIESettings(ListBox1.SelectedItem.ToString()) of RefreshIESettings( TextBox1.Text)

*Onder de event ListBoxSelectedIndexChanged.

---

Quote: Speedbird2
[...]

Zelfde functie weer aan roepen lijkt mij. RefreshIESettings(ListBox1.SelectedItem.ToString()) of RefreshIESettings( TextBox1.Text)

die hele code daar zetten

natuurlijk zonder de private sub

---

Quote: SoftCrack
[...]
die hele code daar zetten

Ja onder de event "ListBox1_SelectedIndexChanged"

en dan binnen de if statement.

---

Quote: Speedbird2
[...]

Ja onder de event "ListBox1_SelectedIndexChanged"

en dan binnen de if statement.

  Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
        If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
            TextBox1.Text = ListBox1.SelectedItem.ToString()
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Listboxselect As If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
        ListBox1.SelectedIndex += 1

        RefreshIESettings(Listboxselect)
        WebBrowser1.Navigate("http://www.whatsmyip.org")
    End Sub

Errors: http://prntscr.com/3p0e95
Heb je mischien skype is wat makkelijker praten? Skype naam: Gushoukoens

---

Kheb geen skype (meer).

Maar listboxselect = niet bestaand.

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    ListBox1.SelectedIndex += 1
  End If
End Sub
 
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    RefreshIESettings(ListBox1.SelectedItem.ToString())
  End If
End Sub

^ die code klopt.

---

Quote: Speedbird2
Kheb geen skype (meer).

Maar listboxselect = niet bestaand.

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    ListBox1.SelectedIndex += 1
  End If
End Sub
 
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles ListBox1.SelectedIndexChanged
  If ListBox1.SelectedIndex >= 0 AndAlso ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
    RefreshIESettings(ListBox1.SelectedItem.ToString())
  End If
End Sub

^ die code klopt.

Ja maar nu word die niet gebruikt als proxy

edit: nvm kzie al thanks!

---