如何知道listbox中每一个item的高度

如何知道listbox中每一个item的高度 问题点数：20、回复次数：2Top

1 楼gump2000（阿甘）回复于 2002-04-18 16:47:05 得分 15

Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Integer,   ByVal   lParam   As   Any)   As   Long  
   
  Const   LB_GETITEMHEIGHT   =   &H1A1  
   
  dim   lll   as   long  
   
  lll=sendmessage(list1,hwnd,   lb_getitemheight,   0&,   byval   0&)  
  msgbox   lll  
   
  Top

2 楼gaoqi5037（高岐）回复于 2002-04-18 16:50:21 得分 5

me.font=listbox.font  
  ItemHeight=me.textheight(listbox.list(listbox.listindex))  
   
  得到值差不多。  
  要是用阿甘的方法吧。我这个是偷懒。呵呵～～Top

3 楼angle0（）回复于 2002-04-18 17:00:24 得分 0

thank   you    
  Top

相关问题

• listbox
• getitemheight
• byval
• 知道
• sendmessage
• lb
• 中每一个item
• hwnd
• long
• list

• 帖主：angle0
• gump2000
• gaoqi5037

• Visual Basic类图书
• Visual Basic类源码下载