Visual Basic Commondialog

miyemut

Visual Basic 6 Cevaplanmış Soruları

4759

22/09/2011, 09:33 #3

Onursal Üye

Coskun0559

Bul

Onursal Üye

Adı Soyadı: Co.... ÇA....

Yaşı: 39

Konum: Tekirdağ

Ofis Versiyonu: -

Son Oturumu: 20/02/2024,18:22

Yorumları: 1.221

Konuları: 99

Kayıt Tarihi: 02/11/2008

Teşekkür Puanı: 519

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]

commondialog_cskn.rar (Dosya Boyutu: 1,36 KB | İndirme Sayısı: 6)

GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !

Cevapla