Skip to main content

AccessTr.neT


Dosya resim ise pictureBox'ta göstersin

Dosya resim ise pictureBox'ta göstersin

Çözüldü #1
oluşturduğum bir formda görsellerden oluşan bir databaseden çağırdığım bilginin uzantısı resim ise pictureBox'ta göstersin video ise ekranda video yazsın Play Butonuyla video açsın. Buton olayını yaptım ama uzantısı resim ise picturebox'ta göstersin olayını yapamadım. Nasıl bir kod yazmalıyım.
If tbxgoryolu.Text = Image Then
resimbox.ImageLocation = tbxgoryolu.Text
resimbox.SizeMode = PictureBoxSizeMode.StretchImage
End If

dedim olmadı.
Cevapla
Çözüldü #2
(15/08/2009, 13:20)ancyra yazdı: If tbxgoryolu.Text = Image Then

Sizin projenizi görmediğimiz için tbxgoryolu içeriğini bilemiyoruz, ama eğer bu ilgili dosyanın tam adını veriyorsa aklıma ilk gelen alttak, gibi bir çözüm:

Kod:
Dim ResimUzanti() As Variant
ResimUzanti = Array("bmp", "jpg", "gif")
If Not IsError(Application.Match(tbxgoryolu.Text, ResimUzanti, 0)) Then
    MsgBox "Bu bir resim dosyasıdır"

    '**************************
End If

ResimUzanti dizisine benim örneğimdeki gibi alınıza gelen tüm resim uzantıları tanımlayın.
Cevapla
Çözüldü #3
teşekkür ederim aynen böyle birşeydi.
hafta sonu bende değişik bir çözüm yolu buldum. Şöyleki dosyaya tıkladığımda resim ise pictureboxta resim görülüyor eğer video ise picturebox hata resmini değiştirdim kendime göre değiştirdim hata resminde No- Resim Yes - Video Yazıyor. eğer dosya video ise tıkladığımda ekranda bu resim çıkıyor.
Son Düzenleme: 17/08/2009, 09:59, Düzenleyen: ancyra.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task