gokhanca

Picturebox nesnesinin önemli bir özelliği de PaintPicture özelliğidir. Bu özellik sayesinde picturebox nesnesi içerisine yerleştireceğimiz bir resmi istediğimiz gibi konumlandırabiliriz.

Bu özelliğin 10 tane parametresi vardır. Fakat bunlardan 3 tanesi yeterlidir. En gerekli parametreleri :

Picture : Kullanılacak resim kaynağı
X : Resmin, picturebox nesnesi içerisinde yatay konumu
Y : Resmin, picturebox nesnesi içerisinde düşey konumu

' imgCocuk adlı image nesnesi içeren bir resim alalım
Picture1.PaintPicture  imgCocuk.Picture , 580 , 240

width : Resim picturebox içine konurken ne kadarlık bir genişliğe sığsın.

height : Resim picturebox içine konurken ne kadarlık bir yüksekliğe sığsın.

' Resmin normal boyutları 1500 x 1800 'tür. Resmin yatayda 750 genişlikte olmasını isteyelim
Picture1.PaintPicture  imgCocuk.Picture , 580 , 240 , 750 , 1800

X2 : Okumayı belirtilen değer kadar yatay öteleyerek yapar.
Y2 : Okumayı belirtilen değer kadar düşey öteleyerek yapar.

' Resmin yatayda 400 lük parçasını almadan kullanmak.
Picture1.PaintPicture  imgCocuk.Picture , 580 , 240 ,  ,  , 400

width2 : Resim kaynağı içinde, belirtilen değer kadar bölgeyi alır.
height2 : Resim kaynağı içinde, belirtilen değer kadar bölgeyi alır.

' Resmin baştan yatayda 400 lük kısmını okumadan, 500 x 500 lük bir bölümünü alalım
' Bunu da 1000 x 1000 ebatında yapıştıralım.
Picture1.PaintPicture  imgCocuk.Picture 580 , 240 , 1000 , 1000 , 400 ,   ,  500 , 500

 

Minik Animasyon Yapalım

Yapacağımız animasyonda resim giderek büyüyecek. Bunun için form üzerine bir Image, bir PictureBox ve bir CommandButton yerleştirin. Resim kaynağı image nesnesi olacağı için Copy-Paste ile veya image.picture özelliğine atama yaparak bir resmi image nesnesine yükleyin. Command nesnesinin içine aşağıdaki komutları yazın.

Private Sub Command1_Click()
For i = 100 To 1000 Step 50
Picture1.PaintPicture Image1.Picture, 0, 0, 1500 + i, 1800 + i
For k = 1 To 1000
For t = 1 To 1000
Next
Next
DoEvents
Next
End Sub