list如何完全显示里面的内容

来源：百度知道 编辑：UC知道 时间：2024/05/25 03:56:34
在VB编程中使用list控件显示某些数据，但是数据长度过长list无法在横向上完全显示，而且也没有横向的滚动条可以使用，请问如何才能在应用中能完整浏览到list中的全部内容呢？

1\加宽LIST的宽度,使其能容下最长的那个
2\使用list1.ToolTipText属性,当选中某个记录时,为list1.ToolTipText 属性赋值为这个记录的内容,这样鼠标移上去就会有一个说明,当然也可以用一个LABEL来显示.
3\用API函数
4\list控件一般只放比较短的字符串,您放这么长的干什么?调整您的程序设计.

API的使用

Option Explicit

Private Const LB_SETHORIZONTALEXTENT = &H194
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 Command1_Click()
Dim max As Long, f As Font, i As Integer

Me.ScaleMode = vbPixels
Set f = Me.Font
Set Me.Font = List1.Font

With List1
For i = 0 To .ListCount
If Me.TextWidth(.List(i)) > max