网页功能: 加入收藏 设为首页 网站搜索  
ListBox中的字符串超长显示的解决方法
发表日期:2003-07-10作者:40Star[] 出处:  

使用ToolTip来解决超长文字的显示问题是不错的方案,下面给出了例子的代码。

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

在 Win2000 + VB6 中调试通过

我来说两句】 【加入收藏】 【返加顶部】 【打印本页】 【关闭窗口
中搜索 ListBox中的字符串超长显示的解决方法
本类热点文章
  用VB制作软键盘
  让messagebox自动消失
  制作半透明窗体
  给Listview做个背景
  VB程序实现WindowsXP效果的界面
  VB打造超酷个性化菜单
  用VB实现“百叶窗”的图形特效
  用VB绘制正弦动画曲线
  获取所有打印纸张格式的方法
  如何使Form的背景图随Form大小改变
  VB实现立体文字
  使用文字做为窗体的形状
最新分类信息我要发布 
最新招聘信息

关于我们 / 合作推广 / 给我留言 / 版权举报 / 意见建议 / 广告投放  
Copyright ©2003-2019 Lihuasoft.net webmaster(at)lihuasoft.net
网站编程QQ群   京ICP备05001064号 页面生成时间:0.00441