27 July 2014

VB6: HScrollBar dan VScrollBar Control


Property yang Umum Digunakan

PropertyKeterangan
EnabledJika true maka user dapat berinteraksi, jika false tidak.
HeightTinggi control dalam twips.
IndexNomor urut jika dijadikan control array.
LargeChangeStep perubahan jika menekan batang rel scroll bar.
LeftJarak control dari kiri dalam twips.
MaxNilai maksimum saat bar nilai berada di ujung kanan untuk HScrollBar,bawah untuk VScrollBar.
MinNilai minimum saat bar nilai berada di ujung kiri untuk HScrollBar,atas untuk VScrollBar.
MousePointerBentuk pointer saat mouse digerakan di atas control.
SmallChangeStep perubahan jika menekan panah kiri/kanan untuk HScrollBar, atas/bawah untuk VScrollBar.
TabIndexUrutan fokus aktif saat tombol Tab ditekan.
TabStopMenentukan apakah fokus akan aktif dengan tombol Tab.
TopJarak dari atas ke control dalam twips.
ValueStatus nilai dari scroll saat ini.
VisibleJika True maka user dapat melihat control didalamnya, sebaliknya jika false maka tersembunyi.
WidthLebar control dalam twips.

Event yang Umum Digunakan
Event Keterangan
Change Saat nilai status scroll berubah.
GotFocus Saat control menerima fokus aktif.
LostFocus Saat control kehilangan fokus aktif.

Method yang Umum Digunakan
MethodKeterangan
MoveMemindahkan posisi control.
SetFocusMemindahkan fokus aktif ke control.

Contoh Penggunaan Scroll Bar
UI:

Code:
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 100
VScroll1.Min = 0
VScroll1.Max = 100
HScroll1_Change
VScroll1_Change
End Sub

Private Sub HScroll1_Change()
Label1.Caption = HScroll1.Value
End Sub

Private Sub VScroll1_Change()
Label2.Caption = VScroll1.Value
End Sub


Runtime:




Click here if you like this article.


0 comments: