在使用列表框（LISTBOX）中經(jīng)常碰到的問題是， 用戶使用時在其中添加的條目（Item）長短不一，由于界面所限，只能將列表框調(diào)整到能滿足顯示大部分條目的寬度。如果其中有比較長的條目則不能完全顯示，而LISTBOX沒有水平滾動條，這給用戶的使用造成一些不便，可以通過為列表框加上一個水平滾動條的方法來解決，但這需要使用API函數(shù)，比較麻煩。使用VB5.0的用戶可能發(fā)現(xiàn)一個有趣的現(xiàn)象：在聯(lián)機(jī)手冊的使用中，如果條目過長，當(dāng)鼠標(biāo)指針移到其上時，將自動彈出包含完整信息的提示框，類似于流行的按鈕提示信息。筆者經(jīng)過分析，找到了實現(xiàn)這個功能的兩種方法。
第一種方法的思路是：監(jiān)視列表框中的鼠標(biāo)移動事件，當(dāng)鼠標(biāo)移動到列表框的條目上時，利用SendMessage函數(shù)的LB_ITEMFROMPOINT參數(shù)獲得條目的索引號，然后再判斷條目的長度是否比列表框的寬度長，如果大于列表框?qū)挾葎t將此索引號的條目內(nèi)容賦予列表框的.ToolTipText屬性。下面是一個例子，將演示此具有智能的列表框。
在窗體中添加一個列表框List1，在總體聲明部分聲明API函數(shù)如下：
Option Explicit
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 Const LB_ITEMFROMPOINT = &H1A9
編寫列表框的鼠標(biāo)移動事件代碼如下：
Private Sub List1_MouseMove(Button As Integer,
Shift As Integer, _X As Single, Y As Single)
Dim lXPoint As Long
Dim lYPoint As Long
Dim lIndex As Long
If Button = 0 Then
lXPoint = CLng(X / Screen.TwipsPerPixelX)
lYPoint = CLng(Y / Screen.TwipsPerPixelY)
With List1
’獲得當(dāng)前條目的索引號
lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, _
ByVal ((lYPoint * 65536) + lXPoint))
If (lIndex >= 0) And (lIndex < = .ListCount) Then
’判斷條目的長度是否大于列表框?qū)挾?BR> If TextWidth(.List(lIndex)) > .Width Then
.ToolTipText = .List(lIndex)
Else
.ToolTipText = ""
End If
End If
End With
End If
End Sub
在Form_Load事件中為列表框添加
幾個條目供驗證使用：
Private Sub Form_Load()
With List1
.AddItem "智能列表框Listbox"
.AddItem "這是一個長條目信息，將鼠標(biāo)移到其上，
你就能看到完整信息"
End With
End Sub
第二種方法的思路和第一種是基本類似的，但直接使用字體的大小屬性來判斷，不需要使用API函數(shù)，看一下下面的代碼就明白了。可以使用下面的代碼來替換上面的列表框鼠標(biāo)移動事件代碼：
Private Sub List1_MouseMove
(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim Ypos As Integer, iOldFontSize As Integer
iOldFontSize = Me.Font.Size
Me.Font.Size = List1.Font.Size
Ypos = Y \ Me.TextHeight("Xyz") + List1.TopIndex
Me.Font.Size = iOldFontSize
If Ypos < List1.ListCount Then
List1.ToolTipText = List1.List(Ypos)
Else
List1.ToolTipText = ""
End If
End Sub
程序運行環(huán)境：中文VB 5.0專業(yè)版，中文WIN95。
第一種方法的思路是：監(jiān)視列表框中的鼠標(biāo)移動事件，當(dāng)鼠標(biāo)移動到列表框的條目上時，利用SendMessage函數(shù)的LB_ITEMFROMPOINT參數(shù)獲得條目的索引號，然后再判斷條目的長度是否比列表框的寬度長，如果大于列表框?qū)挾葎t將此索引號的條目內(nèi)容賦予列表框的.ToolTipText屬性。下面是一個例子，將演示此具有智能的列表框。
在窗體中添加一個列表框List1，在總體聲明部分聲明API函數(shù)如下：
Option Explicit
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 Const LB_ITEMFROMPOINT = &H1A9
編寫列表框的鼠標(biāo)移動事件代碼如下：
Private Sub List1_MouseMove(Button As Integer,
Shift As Integer, _X As Single, Y As Single)
Dim lXPoint As Long
Dim lYPoint As Long
Dim lIndex As Long
If Button = 0 Then
lXPoint = CLng(X / Screen.TwipsPerPixelX)
lYPoint = CLng(Y / Screen.TwipsPerPixelY)
With List1
’獲得當(dāng)前條目的索引號
lIndex = SendMessage(.hwnd, LB_ITEMFROMPOINT, 0, _
ByVal ((lYPoint * 65536) + lXPoint))
If (lIndex >= 0) And (lIndex < = .ListCount) Then
’判斷條目的長度是否大于列表框?qū)挾?BR> If TextWidth(.List(lIndex)) > .Width Then
.ToolTipText = .List(lIndex)
Else
.ToolTipText = ""
End If
End If
End With
End If
End Sub
在Form_Load事件中為列表框添加
幾個條目供驗證使用：
Private Sub Form_Load()
With List1
.AddItem "智能列表框Listbox"
.AddItem "這是一個長條目信息，將鼠標(biāo)移到其上，
你就能看到完整信息"
End With
End Sub
第二種方法的思路和第一種是基本類似的，但直接使用字體的大小屬性來判斷，不需要使用API函數(shù)，看一下下面的代碼就明白了。可以使用下面的代碼來替換上面的列表框鼠標(biāo)移動事件代碼：
Private Sub List1_MouseMove
(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Dim Ypos As Integer, iOldFontSize As Integer
iOldFontSize = Me.Font.Size
Me.Font.Size = List1.Font.Size
Ypos = Y \ Me.TextHeight("Xyz") + List1.TopIndex
Me.Font.Size = iOldFontSize
If Ypos < List1.ListCount Then
List1.ToolTipText = List1.List(Ypos)
Else
List1.ToolTipText = ""
End If
End Sub
程序運行環(huán)境：中文VB 5.0專業(yè)版，中文WIN95。