Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Rostik Ultra (2)
-
- Продвинутый пользователь
-
-
- Сообщения: 159
- Зарегистрирован: 10.05.2005 (Вт) 2:41
- Откуда: Антарктическая республика
-
Rostik Ultra (2) » 03.04.2006 (Пн) 3:15
Два варианта кода для слайд шоу рисунков
- Код: Выделить всё
Dim i As Long
Private Sub Form_Load()
File1.Path = "D:\1\"
File1.Pattern = "*.*"
End Sub
Private Sub Timer1_Timer()
i = i + 1
Image1.Picture = LoadPicture("D:\1\" & File1.List(i))
End Sub
или
- Код: Выделить всё
Dim picName As String
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If picName = "" Then picName = Dir("c:\1\*.*")
Image1.Picture = LoadPicture("c:\1\" & picName)
Form1.Caption = picName
picName = Dir
End Sub
В обоих случаях не все картинки из папок удаётся просмотреть - другие картинки не воспринимаются как будто их нет (все имена картинок состоят из цифр)
В чём проблема ?
-
Nicky
-
- Постоялец
-
-
- Сообщения: 519
- Зарегистрирован: 12.08.2004 (Чт) 12:14
Nicky » 03.04.2006 (Пн) 8:52
- Код: Выделить всё
Private Sub Timer1_Timer()
If picName = "" Then picName = Dir("c:\1\*.*")
Image1.Picture = LoadPicture("c:\1\" & picName)
И что ты предполагаешь увидеть?
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 191