|
| |||||||
| Vb Paylaşımlar Genel paylaşımlar.. |
| |
| |
 |
| | LinkBack | Konu Araçları | Stil |
01-29-2011, 11:38
| #1 (permalink) |
| Kral   |  Bilgisayardan Resim Çağırmak 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...(bu arada drivebox&dırlistbox&filelistbox kullanımlarınıda öğreneceksiz. açıklayıcı birkonu hazırladım size iş yerindeyim can sıkıntısı ne yaparsınız. saygılar pro ) Kod: 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: Kod: 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 Kod: 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: Kod: Private Sub File1_Click()
On Local Error GoTo hata
Picture1.Picture = LoadPicture(File1.FileName)
Exit Sub
hata:
MsgBox ("hatalı veye desteklenmeyen dosya tipi, 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: Kod: 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. |
|  |
|
| Etiket |
| bilgisayardan, Çağırmak, resim |
| Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| Konu Araçları | |
| Stil | |
| |
Normal
