VPF::не знаю как написать кодом - Форум программистов

Cybor

Дата 17.5.2008, 07:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 17.5.2008

Репутация: нет
Всего: нет

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

iff

Дата 17.5.2008, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Администратор

Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16

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

Код


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

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

--------------------

DOS... Синей пеленой экран заполнил чистый DOS
Мышь... Стала вдруг квадратной, потеряла форму мышь...
Я разбил окно, девяностопятое мастдайное окно,
И поставил DOS, и тогда увидел: Это счастье, — вот оно.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »