IT4X เทคนิคคอมพิวเตอร์ โน๊ตบุค ข่าว IT
ข่าวสาร / ความรู้ => คนเขียนโปรแกรม => ข้อความที่เริ่มโดย: ICheer_No0M ที่ เมษายน 11, 2010, 11:03:18
-
Option Explicit
Private Declare Function SendMessageByNum Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Const LB_SETHORIZONTALEXTENT = &H194
Private Sub Form_Load()
List1.Width = 1600
List1.AddItem "ICheer_No0M"
List1.AddItem "ITD-TEAM"
List1.AddItem "IT-DARK.ORG"
SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, 120, 0 ' เปลี่ยนตัวเลข 120 ตามความเหมาะสม
End Sub