Mengecek Scrool Bar Apakah Aktif atau Tidak Aktif Pada Sebuah Control di VB6

Pada kesempatan artikel hari ini Admin akan membagikan sebuah trik bagaimana cara  membuat kode untuk mengecek sebuah control, apakah control tersebut mempunyai scrool bar yang aktif atau tidak.

Dalam artikel ini saya memberikan contoh dengan menggunakan control TreeView untuk mengecek apakah control TreeView tersebut mempunyai scrool yang aktif atau tidak.

Untuk lebih jelasnya perhatikan pada gambar dibawah ini :

Cara Membuat Form Untuk Mengecek apakah Scrool Bar Aktif atau Tidak Aktif di VB6 :

1. Buka Form VB6 Standar Exe

2. Tanamkan 2 Commandbutton dan 1 TreeView

• Cara mengaktifkan TreeView : CTRL+T >>Microsoft Windows Common Control 6.0 >> klik icon TreeView pada ToolBox

3. Desainlah Form seperti gambar dibawah ini :

Desain Form

4. Lalu Copy-Paste kode dibawah ini :

Option Explicit

Private Const GWL_STYLE = (-16)

Private Const WS_HSCROLL = &H100000

Private Const WS_VSCROLL = &H200000

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Sub Command1_Click()

    Dim wndStyle As Long

    wndStyle = GetWindowLong(TreeView1.hwnd, GWL_STYLE)

    If (wndStyle And WS_HSCROLL) <> 0 Then

        MsgBox "Horizontal Scroll Bar Aktif.", vbOKOnly, "Info"

    Else

        MsgBox "Horizontal Scroll Bar Tidak Aktif.", vbOKOnly, "Info"

    End If

    If (wndStyle And WS_VSCROLL) <> 0 Then

        MsgBox "Vertical Scroll Bar Aktif.", vbOKOnly, "Info"

    Else

        MsgBox "Vertical Scroll Bar Tidak Aktif.", vbOKOnly, "Info"

    End If

End Sub

Private Sub Command2_Click()

If Command2.Caption = "Aktifkan Scrool Bar" Then

    TreeView1.Move 250, 900, 1000, 1000

    Command2.Caption = "NonAktifkan Scrool Bar"

Else

If Command2.Caption = "NonAktifkan Scrool Bar" Then

Command2.Caption = "Aktifkan Scrool Bar"

    TreeView1.Move 250, 900, 3000, 1500

    End If

   End If

   

End Sub

Private Sub Form_Load()

    Form1.ScaleMode = 1

    Form1.Move 0, 0, 5100, 5040

    Command1.Caption = "Cek Scroll Bar"

    Command1.Move 120, 120, 1700, 500

    Command2.Caption = "Aktifkan Scrool Bar"

    Command2.Move 2000, 120, 2000, 500

    TreeView1.Move 250, 900, 3000, 1500

    TreeView1.Nodes.Add , , , "1: Menu1"

    TreeView1.Nodes.Add , , , "2: Menu2"

    TreeView1.Nodes.Add , , , "3: Menu3"

    TreeView1.Nodes.Add , , , "4: Menu4"

End Sub

6. Jalan Project, jika tidak ada error maka hasilnya akan tampak pada gambar diatas.

Demikian trik kali tentang Mengecek Scrool Bar Apakah Aktif atau Tidak Aktif Pada Sebuah Control di VB6.

Semoga artikel ini bemanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: HScrollBar-VScrollBar