[VB] Mengskala Object Dengan Metode Scale

Ada kalanya kita harus menghitung lebarnya dan tingginya suatu obyek untuk
keperluan programming seperti form, label, picturebox dll. Cara klasiknya adalah :

Object.ScaleWidth  :  Untuk mendapatkan lebar skala form
Object.ScaleHeight  :  Untuk mendapatkan tinggi skala form

Nilai kembalian dari property tersebut biasanya amat besar, bisa ratusan bahkan ribuan, tergantung besar
kecilnya obyek dan karena masih dalam satuan piksel.
Tetapi untuk mempermudahnya, VB memperbolehkan kita untuk mengskala lebar dan tinggi suatu object sesuai kemauan kita.
Layaknya atlas atau peta yang mempunyai skala, contoh 1:1000 artinya 1 cm dalam peta mewakili
1000 cm. Dalam VB untuk mengskalanya cukup mudah:

Scale (X1,Y1)-(X2,Y2)

Artinya nilai minimal untuk ScaleWidth adalah X1, nilai minimal untuk ScaleHeight
adalah Y1, nilai maksimal ScaleWidth adalah X2, nilai maksimal ScaleHeight adalah Y2

Untuk memperjelasnya, buatlah sebuah form, isikan source code dibawah ini:

Private Sub Form_Load()
Me.Scale (0, 0)-(10, 10)   'Mengskala lebar dan tinggi Form
For x = 0 To 10
   Line -(x, 10)      'Membuat garis horisontal
   Me.CurrentX = IIf(x + 1 > 10, 0, x + 1)
   Me.CurrentY = 0
Next x
For y = 0 To 10
  Line -(10, y)       'membuat garis vertikal
  Me.CurrentX = 0
  Me.CurrentY = IIf(y + 1 > 10, 0, y + 1)
Next y
End Sub

jalankan, apa yang anda lihat?



Form anda sekarang seperti peta yang mempunyai skala sendiri, lihat ada berapa kotakkah
pada horisontal dan vertikal?, ya benar 10! karena kita telah mengset skala form tersebut
yaitu Minimal 0 dan maksimal 10 pada horisontal dan vertikal. Bermainlah sejenak dengan memperbesar
ukuran form dan menjalankannya kembali. Sekarang kotak-kotak tersebut
menjadi lebih besar, tetapi ada berapa kotak pada horisontal dan vertikal?, ya benar tetap
ada 10, karena VB sudah mengskalanya sesuai keinginan anda.





Jangan Lupa Komentar Yaa..