Soru İmage sırayla gösterme

[xemdarx]

Selamlar,
Elimdeki kod için resim dosyadan alınıyordu. Ben resimleri userforma yükledim (image1, image2, image3 , image4 ) ve buradan sırayla göstersin istiyorum .Yardımcı olur musuz? Teşekkürler

Private Sub CommandButton5_Click()

'While kriter1 < 1
    For j = 1 To 4
      Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\picture" & j & ".gif")
      sayac1 = j
      For a = 1 To 5000
      sayac1 = a
      DoEvents
       Next a
    Next j
'   Wend

End Sub

 

[askm]

Örnek dosyanızı eklerseniz yardımcı olmaya çalışalım.

 

[FERAZ]

Selamlar,
Elimdeki kod için resim dosyadan alınıyordu. Ben resimleri userforma yükledim (image1, image2, image3 , image4 ) ve buradan sırayla göstersin istiyorum .Yardımcı olur musuz? Teşekkürler

Private Sub CommandButton5_Click()

'While kriter1 < 1
    For j = 1 To 4
      Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\picture" & j & ".gif")
      sayac1 = j
      For a = 1 To 5000
      sayac1 = a
      DoEvents
       Next a
    Next j
'   Wend

End Sub

Selamlar,
Elimdeki kod için resim dosyadan alınıyordu. Ben resimleri userforma yükledim (image1, image2, image3 , image4 ) ve buradan sırayla göstersin istiyorum .Yardımcı olur musuz? Teşekkürler

Private Sub CommandButton5_Click()

'While kriter1 < 1
    For j = 1 To 4
      Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\picture" & j & ".gif")
      sayac1 = j
      For a = 1 To 5000
      sayac1 = a
      DoEvents
       Next a
    Next j
'   Wend

End Sub

Image1 yerine Image(j)
Eklenebilir.Hızlı değişirse resimlerde kod bekletme ile 1 yada iki saniyede resimler değişir.

 

[xemdarx]

Denedim olmadı.

 

[xemdarx]

Controls("Image" & j).ZOrder 0
bu şekilde oldu gibi.

 

[FERAZ]

Evet hocam o şekilde olmalı.
Mobilden acele ile o şekilde yazmıştım.

 

[xemdarx]

Benim yaptığım sırayla en üste getiriyor. Aslında olması gereken sırayla görünür yapmak.

 

[FERAZ]

Bunuda deneyin olmazsa dosya eklersiniz.
Yoksa varsayımlarla yazar dururuz

Private Sub CommandButton5_Click()

'While kriter1 < 1
    For j = 1 To 4
    
      Me.Image1.Picture = LoadPicture(ThisWorkbook.Path & "\picture" & j & ".gif")
      Application.Wait (Now + TimeValue("00:00:02"))
      sayac1 = j
      For a = 1 To 5000
      sayac1 = a
      DoEvents
       Next a

    Next j
'   Wend

End Sub

 

[xemdarx]

Zafer Bey,
Resimleri dosyadan değil de userformda kayıtlı olan resimler sırayla görünsün istemiştim.

 

[xemdarx]

Örnek dosya

 

[Ömer BARAN]

Merhaba.

Ben biraz farklı düşündüm ama hatırlatmak istediğim husus;
resimlerin değişmesinin ne zaman duracağının belli olmadığı .
Bunun için userform'a bir adet daha CommandButton ekleyin (adındaki sayı 6 olsun)

Mevcut kodların tümünü silip aşağıdakini yapıştırın.

-- CommandButton5'in kodları, Image1 nesnesiyle işlem yapmıyor,
sırayla nesneleri gizliyor (mavi kısım), sırası gelen Image nesnesini Image1'le aynı konuma getirilip, boyutlandırılıyor (kırmızı kısım).
-- CommanButton6 ise işlemin sonlanmasını sağlıyor.
-- Aşağıdaki kod blokunda, en üstteki Dim..... satırını da yapıştırmayı unutmayın

Dim kriter As Integer

Private Sub CommandButton5_Click()

kriter = 0
While kriter1 < 1
    For j = 2 To 6
        For gj = 1 To 6
            If gj <> j Then Controls("Image" & gj).Visible = False
        Next
      With Controls("Image" & j)
        .Visible = True
        .Height = Me.Image1.Height: .Width = Me.Image1.Width
        .Top = Me.Image1.Top: .Left = Me.Image1.Left
      End With
      sayac1 = j
      For a = 1 To 5000
      sayac1 = a
      DoEvents
      If kriter = 1 Then Exit Sub
       Next a
    Next j
Wend

End Sub

Private Sub CommandButton6_Click()
    kriter = 1
End Sub

 

[Ömer BARAN]

Bir önceki cevabımı yeniden düzenledim.
Sayfayı yenileyerek güncellenmiş halini okuyunuz.

 

[xemdarx]

Teşekkürler.

 

[Ömer BARAN]

Kolay gelsin.