Scroll Treeview Ketika Sedang Drag And Drop Sebuah Node

Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongDim mfX As SingleDim mfY As SingleDim moNode As nodeDim m_iScrollDir As IntegerDim...

READ MORE - Scroll Treeview Ketika Sedang Drag And Drop Sebuah Node

Apakah ScrollBar Visible Pada Sebuah Control?

Option ExplicitPrivate Const GWL_STYLE = (-16)Private Const WS_HSCROLL = &H100000Private Const WS_VSCROLL = &H200000Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate...

READ MORE - Apakah ScrollBar Visible Pada Sebuah Control?

Rename Node TreeView Seperti Pada Explorer

Option ExplicitDim sNodeText As StringPrivate Sub Form_Load() TreeView1.Nodes.Add , , , "test" TreeView1.Nodes.Add , , , "test 1" TreeView1.Nodes.Add , , , "test 2"End SubPrivate Sub Timer1_Timer() TreeView1.StartLabelEdit Timer1.Enabled...

READ MORE - Rename Node TreeView Seperti Pada Explorer

Mengubat BackGround TreeView Control

Option ExplicitPrivate Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As LongPrivate Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal...

READ MORE - Mengubat BackGround TreeView Control

Fungsi Mengubah Object LeftToRigth Menjadi RightToLeft

Di bawah ini merupakan fungsi untuk mengubah objek yang tidak memiliki properties LeftToRight agar seolah-olah memiliki properties tersebut. Melalui akal-akalan fungsi API, hal tersebut mungkin untuk dilakukan.Option Explicit Private Declare Function...

READ MORE - Fungsi Mengubah Object LeftToRigth Menjadi RightToLeft