Pada VB 6.0
Di bagian '(Declaratios)' dari Form
ketikkan :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Untuk menggunakannya ketikkan
perintah kode :
SendMessage Me.hwnd, 274, 61760, 0
Pada VB.NET
Di bagian '(Declaratios)' dari Form
ketikkan :
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Untuk menggunakannya ketikkan
perintah kode :
SendMessage(Me.Handle.ToInt32, 274, 61760, 0)Semoga Bermanfaat bagi teman-teman :)
No comments:
Post a Comment