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ı.
Dosya resim ise pictureBox'ta göstersin
(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
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.
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.
Konuyu Okuyanlar: 1 Ziyaretçi