ListBox中的字符串超长显示的解决方法
2004-10-24 14:25
513 查看
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
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 5
List1.AddItem "ListItem字符串超长超长超长超长超长咯 " & i
Next
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lParam As Long
Dim lResult As Long
lParam = (CInt(Y / Screen.TwipsPerPixelY) * 2 ^ 16) + CInt(X / Screen.TwipsPerPixelX)
lResult = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal lParam)
If lResult < 0 Or lResult > 32767 Then
List1.ToolTipText = ""
Exit Sub
End If
Dim nIndex As Integer
nIndex = CInt(lResult)
List1.ToolTipText = List1.List(nIndex)
End Sub
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
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 5
List1.AddItem "ListItem字符串超长超长超长超长超长咯 " & i
Next
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lParam As Long
Dim lResult As Long
lParam = (CInt(Y / Screen.TwipsPerPixelY) * 2 ^ 16) + CInt(X / Screen.TwipsPerPixelX)
lResult = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal lParam)
If lResult < 0 Or lResult > 32767 Then
List1.ToolTipText = ""
Exit Sub
End If
Dim nIndex As Integer
nIndex = CInt(lResult)
List1.ToolTipText = List1.List(nIndex)
End Sub
相关文章推荐
- ListBox中的字符串超长显示的解决方法
- 使用javascript解决字符串超长显示的问题
- JZTK项目 驾照题库项目servlet层得到的json字符串在浏览器中 汉字部分出现问号?无法正常显示的解决方法
- 黄聪:python控制台无法正常显示中文字符串解决方法
- Vue.js 中取得后台原生HTML字符串 原样显示问题的解决方法
- android sax解析XML结点超长(大于1024)字符串取不全解决方法。
- jsp页面中EL表达式被当成字符串处理不显示值问题的解决方法
- 解决AndroidStudio的logcat显示超长字符串的问题
- 在使用Gson的toJson()方法转为json字符串的时候无法显示中文和符号的问题(已解决)
- ThinkPHP的截取字符串函数无法显示省略号的解决方法
- 长字符串显示引起的问题通用性解决方法
- MFC:文本内容显示到ListBox,顺序不正确的解决方法
- ThinkPHP的截取字符串函数无法显示省略号的解决方法
- 长字符串显示引起的问题通用性解决方法
- ThinkPHP的截取字符串函数无法显示省略号的解决方法
- 黄聪:python控制台无法正常显示中文字符串解决方法
- VC中CCheckListBox显示时崩溃的原因及解决方法
- c# 超长字符串截取固定长度后显示...(超长后面显示点点点) 通用方法
- Android自带播放器字符串显示乱码问题的一个解决方法
- JSP导出excle时类型字符串的数字不以科学计数法显示的解决方法