Выбрать случайный элемент в ListBox

@MACHOMAN · Регистрация: 15.01.2014

Author24 — интернет-сервис помощи студентам

VB.NET

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Randomize() 'инициализируем генератор
    End Sub
 
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        Dim i As Integer = CInt(Rnd() * Me.ListBox1.Items.Count - 1)
        ListBox1.SelectedIndex = i
    End Sub

Иногда появляется ошибка (на фото) как можно исправить?

@chumich · 27.09.2015, 08:19

Сообщение от MACHOMAN

как можно исправить?

MACHOMAN, у вас генерируются числа от -1, а такого индекса быть не может. Если я правильно понял вашу идею, то попробуйте так:

VB.NET

1	Dim i As Integer = CInt(Int(Rnd() * (Me.ListBox1.Items.Count - 1)))

Памирыч · 27.09.2015, 10:36

MACHOMAN, используйте Random

VB.NET

1 2	Dim R As New Random ListBox1.SelectedIndex = R.Next(0, ListBox1.Items.Count)

	27.09.2015, 10:36

Выбрать случайный элемент в ListBox

Решение