Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.08.2008, 11:59   #1
ViNcHeStEr
Delphi
Форумчанин
 
Регистрация: 12.06.2008
Сообщений: 137
По умолчанию Программа на Visual Basic

Мне нужно, чтобы по нажатии на кнопку, случайным образом появлялась одна из 6-ти картинок. Картинки находятся в папке с прогой. Их названия: 1.jpg, 2.jpg,..., 6.jpg. Как это сделать?

Код:
Private Sub cmdRandomImage_Click() {нажатие на кнопку}
Dim n as Variant {n типа variant (наверное лучше byte или integer)}
Randomize
n=Fix(Rnd*6)+1 {n=1 или 2 или ... или 6}
picImage.Picture=LoadPicture("n.jpg") {загружаем картинку}
End Sub {конец}
Это не работает, не знаю как правильно описать название файла с использованием переменной.
ViNcHeStEr вне форума Ответить с цитированием
Старый 08.08.2008, 12:03   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Код:
picImage.Picture=LoadPicture(<Путь к картинкам> & CStr(n) & ".jpg")
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проект на Visual Basic Night_Omen Помощь студентам 7 23.07.2008 20:10
Visual Basic .Net (2005) Amdy Помощь студентам 4 11.06.2008 13:49
из Visual Basic в Delphi NeAlSe Помощь студентам 3 14.05.2008 16:25