У меня есть в форме фотка (picture1), и есть кнопка (Command1). Как сделать, чтобы при нажатии кнопки менялась картинка на следующию (всего тридцать)? Помогите пожалуйсто!!!

..
Немного не понял проблемы..
Заводишь глобальную переменную, к-я хранит номер картинки. По нажатию кнопки показываешь картинку, к-я соответствует значению переменной и, если значение переменной меньше 30, увеличиваешь переменную на 1.
Или ты о чем-то другом спрашивал?

Код мультика
Dim a As Integer

Private Sub Command1_Click()
Timer1.Enabled = True
a = 19
Command1.Visible = False
End Sub

Private Sub Timer1_Timer()
a = a - 1

If a = 19 Then
Image1.Picture = img1.Picture
End If
If a = 18 Then
Image1.Picture = Img2.Picture
End If
If a = 17 Then
Image1.Picture = Img3.Picture
End If
If a = 16 Then
Image1.Picture = Img4.Picture
End If
If a = 15 Then
Image1.Picture = Img5.Picture
End If
If a = 14 Then
Image1.Picture = Img6.Picture
End If
If a = 13 Then
Image1.Picture = Img7.Picture
End If
If a = 12 Then
Image1.Picture = Img8.Picture
End If
If a = 11 Then
Image1.Picture = img9.Picture
End If
If a = 10 Then
Image1.Picture = img10.Picture
End If
If a = 9 Then
Image1.Picture = img11.Picture
End If
If a = 8 Then
Image1.Picture = img12.Picture
End If
If a = 7 Then
Image1.Picture = img13.Picture
End If
If a = 6 Then
Image1.Picture = img14.Picture
End If
If a = 5 Then
Image1.Picture = img15.Picture
End If
If a = 4 Then
Image1.Picture = img16.Picture
End If
If a = 3 Then
Image1.Picture = img17.Picture
End If
If a = 2 Then
Image1.Picture = img18.Picture
End If
If a = 1 Then
Image1.Picture = img19.Picture
End If
If a = 1 Then
a = 19
End If
End Sub

Можно расположить все картинки на форме, одну под другой.
Менять свойство Visible у картинок.
Видемой картинке выставить Visible = True, все остальные - False.
Код примерно такой:

Код

Private Sub ChangePic(By Val visPic as Integer) dim i as integer   for i = 0 to 29      if i = visPic Then        Pic(i).Visible = True      else        Pic(i).Visible = False      end if    next end sub

Можно и так:

Код

dim PicList() as string dim PicInd as long private sub Form_load() ReadList "C:\list.dat" picind=-1 end sub private sub Command1_click() 'След. картинка picind=picind+1 if picind>ubound(piclist) then picind=ubound(piclist) ShowPic PicInd end sub private sub Command2_click() 'Пред. картинка picind=picind-1 if picind<0 then picind=0 ShowPic PicInd end sub 'Загружает картинку из файла, путь и 'имя которого записано в массиве sub ShowPic(Ind as long) if ubound(piclist)=-1 then exit sub 'выход, если массив пустой Picture1.Picture=LoadPicture(PicList(Ind)) end sub 'Читает файл с именами файлов в массив PicList Sub ReadList(FileName as string) dim lfn as long dim tmp as string open FileName for binary access read as #lfn  tmp=space(lof(lfn))  get #lfn,1,tmp close #lfn PicList=split(tmp,vbcrlf) end sub

В файле записаны полные пути и имена файлов к картинкам. В каждой строке одна ссылка.
Например:
c:\folder1\pics\qwery.bmp
d:\mmm\room.gif
c:\dodo\rere\sasa\lolo\photos\we are.bmp

Удачи!!!

Мне кажется самое простое использовать счетчик.Сколько раз нажал такая картинка и открывается.

Вот такая фенька получилась

Код

Private Sub Form_Load() Text1.Visible = False Text2.Visible = False End Sub Private Sub Command1_Click() Text1.Text = Text1.Text + 1 Text2.Text = "C:\анима\" & Val(Text1.Text) & ".jpg" End Sub Private Sub Command2_Click() Picture1.Picture = LoadPicture("C:\анима\1.jpg") End Sub Private Sub Text2_Change() Dim v As String v = Text2.Text Picture1.Picture = LoadPicture(v) End Sub

Добавлено @ 21:42
Это не нужно забыла стереть

Код

Private Sub Command2_Click() Picture1.Picture = LoadPicture("C:\анима\1.jpg") End Sub

Сделай не img1...img19, а массив img(1...19)

тогда

Код

Private Sub Timer1_Timer() a = a - 1 if a<LBound(img) Then a=UBound(img) Image1.Picture = img(20-a).Picture End Sub

Этот код медленнее по исполнению, нежели размещение всех картинок и игра видимостью, но зато жрет меньше памяти на программу (ценой памяти системного кэша). Для видимости же

Код

Private Sub Timer1_Timer() Image(a).Visible=False a = a - 1 if a<LBound(Image) Then a=UBound(Image) Image(a).Visible=True End Sub

Я так поняла ему кнопкой изменять картинки надо - Раз картинка два - другая

Господа, а где вы берёте control (объект) Таймер (Timer1)?

Edd

Цитата

где вы берёте control (объект) Таймер (Timer1)?

Ты будешь смеяться, но на панели объектов. Включив предварительно референс на соотв. ActiveX есссно.


Это сообщение отредактировал(а) Akina - 7.9.2004, 08:34

Akina, я в шоке) Скажу больше - в ужасе)) А какой референс на него ведёт?

В шоке - это я. Akina, а что в "Референсах" подключать надо?

Для таймера ни какого "Референса" подключать не надо.
Открыть toolbox и найти иконку часиков, это и есть таймер.

Либо я забыл как выглядят часы, либо одно из двух... Нет, нету иконки.