Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Новое сообщение без темы Добавлено: 13.02.03 13:45  

Автор вопроса:  Silver Flamingo | ICQ: 116970115 

Как взять случайный пункт из ComboBox/ListBox и выдать его в сообщение. Чёто пробовал но не получилось. А вот с масивом нет проблем (но мне масив не нужен).

 

Public Function MyRnd%(i%)
    MyRnd = Int(i * Rnd) + 1
End Function

Private Sub Command1_Click()
mes = Combo1(MyRnd(Combo1.ListIndex))
MsgBox mes
End Sub

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 msv



Вопросов: 34
Ответов: 312
  Web-сайт: msvprogs.narod.ru
 Профиль | | #1 		Добавлено: 13.02.03 14:13

А если :

Dim Rand as Integer
Randomize Timer
Rand = Rnd * <кол-во пунктов>
Combo1.ListIndex = Rand
MsgBox Combo1.Text

И все! С ListBox-oм аналогично.

Ответить

Номер ответа: 2
Автор ответа:
 msv



Вопросов: 34
Ответов: 312
  Web-сайт: msvprogs.narod.ru
 Профиль | | #2 		Добавлено: 13.02.03 14:14

Ой нет, надо писать:

Rand = Int(Rnd * <кол-во пунктов>;)

Ответить

Номер ответа: 3
Автор ответа:
 Silver Flamingo



ICQ: 116970115 

Вопросов: 27
Ответов: 49
  Профиль | | #3 Добавлено: 13.02.03 16:32
Спасибо

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам