Selamün Aleyküm Arkadaşlar;
Uzun Zaman Aradan Sonra Derslere Başladık.Buyrun "Pc'den Resim Çağırma"
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.
Uzun Zaman Aradan Sonra Derslere Başladık.Buyrun "Pc'den Resim Çağırma"
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.
