PC'den Resim Çağıralım

[ßyMesMes]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Visual Basic aracılığı ile programımızda bilgisayarımızdan resim çağıralım.

Şimdi arkadaşlar, formumuza sırasıyla 1 tane drivelistbox, 1 tane dırlistbox, 1 tane filelistbox, 1 tane picturebox ekledikten sonra form kısmına çift tıklayarak şu kodu yazıyoruz...

Private Sub Form_Load()
File1.Pattern = "*.bmp;*.ico;*.jpg;*.gif"
Picture1.AutoSize = True
End Sub

Anlamı şu: file1 dosyası uzantısı bmp, ico, jpg, gif olan resim dosyalarını bize örnek olarak göstersin. Pattern (örnek,numune vs. )
picture1'e açılan resimlerin boyutları otomatik algılansın ve bu doğru olarak seçilsin. Eğer false seçilirse resim daha küçük boyutta görünür.

Sonra drivelistbox'a şu kodları yazalım:

Private Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub

Anlamı: drive1 sürücüsünü ch (change) değiştirdiğimiz zaman, yani C sürücüsünden resim değil de, D sürücüsünden resim seçmek istediğimiz zaman veya E sürücüsünden vs. sürücüye tıkladığımız zaman bize hangi sürücü yolu seçili ise, ona ait olan dirlistbox'lar (sarı sarı klasörleri) gösterilsin.

Sonra dirlistbox'a şu kodları yazıyoruz. Aslında mantık hep aynı, birbirlerine yol açıyoruz

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir (File1.Path)
End Sub

Anlamı: file1'in yolu (path) dirlistbox'ın yolu olsun, yani siz sarı sarı klasörlere tıkladığınız zaman, file1 de uzantısı bmp, ico, jpg, gif olanlar görünsün. Ve dirlistbox yolu değiştiği zaman (ch= change= değiştirmek) yani siz a klasöründen b klasörüne tıkladığınız zaman file1'in yolu o seçtiğiniz yolu göstersin. Biraz karışık oldu ama kendiniz de deneme yanılma yoluyla daha rahat kavrayabilirsiniz.

Son olarak filelistbox'a şunları yazıyoruz:

Private Sub File1_Click()
On Local Error GoTo hata
Picture1.Picture = LoadPicture(File1.FileName)
Exit Sub
hata:
MsgBox ("hatali bir resim açilamiyor")
Exit Sub
End Sub

Anlamı: Eğer bir hata olursa mesaj göstersin ve resim açılmıyor desin ve kaldığı yerden devam edebilsin. picture1'deki resim file1'de seçmiş olduğumuz uzantısı artık ne ise o resim dolsun ve picture1'de görünsün demektir.

Kodların tüm hali ise:

Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir (File1.Path)
End Sub

Private Sub Drive1_Change()
ChDrive Drive1.Drive
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
On Local Error GoTo hata
Picture1.Picture = LoadPicture(File1.FileName)
Exit Sub
hata:
MsgBox ("hatali bir resim açilamiyor")
Exit Sub

End Sub

Private Sub Form_Load()
File1.Pattern = "*.bmp;*.ico;*.jpg;*.gif"
Picture1.AutoSize = True
End Sub

Ayrıca form, dirlistbox, drivelistbox, filelistbox vs. vs. üzerine gelerek sağdaki özellikler penceresinden backclour özelliğine tıklayıp palette kısmını seçerek istediğiniz rengi verebilirsiniz...

Visual Basic 6 için derlenmiş olup siz de deneme yanılma yoluyla daha rahat öğrenebilirsiniz... Örneğin üzerinde küçük değişiklikler yapın ve çalıştırın. Bir örnek vermek gerekirse, autosize özelliğini false yapın, bakın bakalım ne oluyormuş?

Kolay gelsin.

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.