|
楼主 |
发表于 2010-5-9 17:59
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这是VB中的程序的结果
程序如下.
Const LB_SETTABSTOPS = &H192
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long
Private Sub ListBoxSetTabStops(lb As ListBox, tabStops() As Long)
Dim numEls As Long
numEls = UBound(tabStops) - LBound(tabStops) + 1
SendMessage lb.hwnd, LB_SETTABSTOPS, numEls, tabStops(LBound(tabStops))
End Sub
Private Sub Command1_Click()
Dim Tabs(1) As Long
Tabs(0) = 60 ' 10*4
Tabs(1) = 72 ' 18*4
ListBoxSetTabStops List1, Tabs()
List1.AddItem "AAAAAAAAA" & vbTab & "BBBBBBB"
List1.AddItem "CCCCCCCCC" & vbTab & "EEEEEEE"
End Sub
不会用这种方法来实现这个简单的需求吧?
新建文件夹.rar
(1.67 KB, 下载次数: 21)
|
|