7,762
社区成员
发帖
与我相关
我的任务
分享listbox的最大长度问题
我给LISTBOX加了一个水平滚动条
但是有一个字符串的长度为860
但是在这个LISTBOX中还是不能完全的显示出来。
我查了一下原因。
好像LISTBOX的长度没问题是足够的。
但是不知道为什么好像只能输出到TEXT的最大长度后就不能输出了。
谁能帮我解决一下？
谢了。
Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object)
' 加横向滚动条
Dim nRet As Long
Dim nNewWidth As Integer
nNewWidth = refControlListBox.Width + 1000 ' 新宽度，以像素为单位。
nRet = SendMessage(refControlListBox.hwnd, _
LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)
End Sub
但是有一个字符串的长度为860
但是在这个LISTBOX中还是不能完全的显示出来。
我查了一下原因。
好像LISTBOX的长度没问题是足够的。
但是不知道为什么好像只能输出到TEXT的最大长度后就不能输出了。
谁能帮我解决一下？
谢了。
Public Sub addHorScrlBarListBox(ByVal refControlListBox As Object)
' 加横向滚动条
Dim nRet As Long
Dim nNewWidth As Integer
nNewWidth = refControlListBox.Width + 1000 ' 新宽度，以像素为单位。
nRet = SendMessage(refControlListBox.hwnd, _
LB_SETHORIZONTALEXTENT, nNewWidth, ByVal 0&)
End Sub
...全文
请发表友善的回复…
发表回复
jp4321 2005-09-07
- 打赏
- 举报
不好意思我搞错了
那个字符串的长度是8400
还是显示不完全。
那个字符串的长度是8400
还是显示不完全。
northwolves 2005-09-07
- 打赏
- 举报
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 Form_Load()
SendMessage List1.hwnd, &H194, 10000, ByVal 0&
List1.AddItem String(1000, "X") & "abc"
End Sub
Private Sub Form_Load()
SendMessage List1.hwnd, &H194, 10000, ByVal 0&
List1.AddItem String(1000, "X") & "abc"
End Sub
jp4321 2005-09-07
- 打赏
- 举报
listbox定义的长度应该是足够了。
