Sunday, May 27, 2012

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