Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > не знаю как написать кодом

Автор: Cybor 17.5.2008, 07:42

У же около месяца я делаю свою программу. В ней случайным образом выбирается цифра от 1 до 6. Этот код привязан к одной из кнопок У меня созданны 3 Textbox и я хочу чтобы случайные результаты выводились на эти Textbox, то есть после первого действия на 1 textbox, потом следущий результат на 2ой, и третий на третий. Как это написать? smile

Автор: iff 17.5.2008, 10:42

Код подходит для любого колличества текстбоксов

Код


Dim Nomer As Integer

Private Sub Command1_Click()
Nomer = Nomer + 1
If Nomer <= [Кол-во_Текстбоксов] Then Controls("Text" & CStr(Nomer)).Text = Int(6 * Rnd + 1)
End Sub

Вместо [Кол-во_Текстбоксов] ставится соответствующие число