Menyembunyikan dan Menampilkan Pointer Mouse

Di bawah ini merupakan procedure untuk menyembunyikan dan menampilkan pointer mouse. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit 
 
Private Declare Function ShowCursor Lib "user32" ByVal bShow As Long) As Long 
 
Sub ShowMouseCursor(bShow As Boolean) 
    ShowCursor bShow 
End Sub 

Dua contoh penggunaan menyembunyikan dan menampilkan pointer mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
      ShowMouseCursor Check1.Value = 0) 
End Sub 
 
Private Sub Command1_Click() 
    ShowMouseCursor True 
End Sub 

READ MORE - Menyembunyikan dan Menampilkan Pointer Mouse

Menampilkan Vertical ScrollBar Pada TextBox Pada Saat Runtime

Di bawah ini merupakan fungsi untuk menampilkan Vertical ScrollBar pada TextBox.

Option Explicit 
 
Private Declare Function ShowScrollBar Lib "user32" ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long 
 
Public Function ShowScroll(obj As Control, bShow As Boolean) 
    ShowScrollBar obj.hwnd, 1, bShow 
    obj.Refresh 
End Function 

Contoh penggunaan kode di atas:

Public Sub Command1_Click()   
     ShowScroll Text1, True 
End Sub 

READ MORE - Menampilkan Vertical ScrollBar Pada TextBox Pada Saat Runtime

Menggerakan Pointer Mouse Pada Koordinat Tertentu

Di bawah ini merupakan fungsi untuk menggerakan pointer mouse pada koordinat tertentu.

Private Declare Function SetCursorPos Lib "User32" ByVal X As Long, ByVal Y As Long) As Long 
'Contoh penggunaan code untuk menggerakan pointer mouse pada koordinat tertentu 
Private Sub Command1_Click() 
    Call SetCursorPos(100, 200) 
End Sub   

READ MORE - Menggerakan Pointer Mouse Pada Koordinat Tertentu

Menukarkan Tombol Mouse

Di bawah ini merupakan procedure untuk menukarkan tombol mouse, dari kiri ke kanan dan sebaliknya. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit 
 
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long 
 
Public Sub SwapMouse(bSwap As Boolean) 
    SwapMouseButton bSwap 
End Sub 

Dua contoh penggunaan menukarkan tombol mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    SwapMouse (Check1.Value=0)   
End Sub 
 
Private Sub Command1_Click() 
    SwapMouse True 
End Sub  

READ MORE - Menukarkan Tombol Mouse