AccessTr.neT

Tam Versiyon: Visual Basic Commondialog
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
Visual Basic'te Commondialog'u dosya açmak için kullanırken action=1 veririz.
Bilmek istediğim gelen dosyaları nasıl küçük resim olarak görüntüleyebiliriz?
örnek ekleyebilirmisin
syn miyemut;
Formunuza 1 adet commandialog,1 adet buton ve 1 adet image(ve ya picture) nesnesi ekleyin)

butonun click yordamına;
Private Sub Command1_Click()
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
Image1.Picture = LoadPicture(filen)
End Sub
kodunu ekleyin.
Eğer image nesnesi değilde picturebox kullanacaksanız;
Private Sub Command1_Click()
CommonDialog1.Filter = "pictures(*.bmp;*.jpg)|*.bmp;*.jpg|"
CommonDialog1.ShowOpen
filen = CommonDialog1.FileName
Picture1.Picture = LoadPicture(filen)
End Sub
Şeklinde yazmanız gerekir,Resim ekledim örnekte ektedir
kolay gelsin.
[Resim: voq3nm.jpg]
commondialog1.action=1 kodu yazılı buton tıklandığında aç penceresi gelir, bu pencere içindeki dosyaların görünümü liste şeklindedir, ben liste görünümünde değilde küçük resim gelmesini istiyorum, resim güncelleme programında kullanacağım.
sorunda bunu belirtmişsin ama yeterince net değil istediğin şey farklı bişey.kullandığın işletim sistemi ile alakası var.ben vin7 kullanıyorum aç diyalog kutusu geldiği zaman bende küçük resim şeklinde gösteriyor.Alternatif bi çözüm olarak; resimlerin olduğu klasöre gir ve klasör seçeneklerinden ayarları resimdeki gibi yaparmısın
[Resim: 16ao329.jpg]
Teşekkürler, bu olabilir. Microsoft Office küçük resim eklerken son nasıl gösterildiyse öyle gösteriyor benim programında öyle olması için çalışıyordum. Ama bu da işimi görür.
Sayfalar: 1 2