VB DE RESIM ON IZLEME PROGRAMI (VB 6.0)

[ravmon]

Resim Önizleme Programı

VB'de resim izleme programı yapmak aslında çok basit bir iştir . İşin asıl zor olan kısmı her hangi bir yerde bulunan bir resmin kullanıcı tarafından tıklanmasıyla resmin bizim yapmış olduğumuz programla birlikte açılması.Bu o kadar da zor bir şey değil ama uğraşılması gereken bir hadise.Bunu yapabilmek için Api fonksiyonlarıyla iyi bir ahbap olmuş olmanız gerekiyor.
Şimdi VB'de resim izleme programı yapmak için gerekleri şeyleri anlatalım bakalım :

Şimdi ilk önce forma bir drive listbox,directorylistbox,filelistbox,image araçlarını koyun.

File1'in pattern özelliğine *.gif;*.jpg;*.bmp;*.ico;*.cur yazın.Böylece file1'de görünmesini istediğimiz uzantıları belirlemiş olduk.(ki bunların hepsi bize lazım olan resim dosyası uzantılarıdır.)

Şimdi drive1'e çift tıklayın ve şu kodları yazın :
chdrive drive1.drive
dir1.path=drive1.path

---------------------------------

Daha sonra Dir1 içerise şu kodları yazın :
file1.path=dir1.path
---------------------------------

Daha sonra file1 in click olayına şu kodları yazın :

image1.picture=loadpicture(dir1.path & "\" & file1.path)

Bu kod ile file1 de tıkladığımız resmi image1 de görebiliriz.
---------------------------------

Bu işin giriş kısmıydı.Şimdi de bir slayt denemesi yapalım.

Resim önizlemesi yaptığımız forma bir button koyun ve içine form2.show yazın.Böylece Slayt formuna ulaşabiliriz.

Aynı projeye bir form ekleyin ve form içine bir timer,bir image,iki commandbutton koyun ve şu kodları yazın.

form_load olayına:
time1.enabled=false
timer1.interval=1000

---------------------------------

Daha sonra command1(Slaytı Başlat) içine şu kodları yazın :

timer1.enabled=true
---------------------------------

Daha sonra command2(Slaytı Durdur) içine şu kodları yazın :

timer1.enabled=false
---------------------------------

Şimdi de timer1_timer'a şu kpdları yazın:

a=form1.file1.listindex
b=form1.dir1.path & "\" & form1.file1.list(a)
a=a+1'Fiel1'in indexi her seferinde artıyor böylece resimleri sırayla görebiliyoruz.
image1.picture=loadpicture(b)

if a=form1.file1.listcount-1 then
a=0 'Bu şekilde slaytın sürekliliği sağlanıyor.
end if

Slayt olayı da bu kadar.
------------------------------------