1,451
社区成员
发帖
与我相关
我的任务
分享关于listbox ，如何得到单个list的高度啊？
最近学用listbox
但是不知道用什么方法得到单个list的高度（Heigth)
只有listbox整个的高度
高手随便告诉我一下，估计也就一句话就解决了。
谢谢
但是不知道用什么方法得到单个list的高度（Heigth)
只有listbox整个的高度
高手随便告诉我一下，估计也就一句话就解决了。
谢谢
...全文
请发表友善的回复…
发表回复
fulcrumtian 2005-11-26
- 打赏
- 举报
多谢各位！
fulcrumtian 2005-11-25
- 打赏
- 举报
这个方法我试过
得到的 ITEMHEIGHT 明显不是以 “缇”为单位的，
请问它和缇之间是怎样的换算关系？
有没有非api的方法得到item的height？
谢谢关注
得到的 ITEMHEIGHT 明显不是以 “缇”为单位的，
请问它和缇之间是怎样的换算关系？
有没有非api的方法得到item的height？
谢谢关注
northwolves 2005-11-25
- 打赏
- 举报
to 缇: ITEMHEIGHT * Screen.TwipsPerPixelY
LuBingLin 2005-11-25
- 打赏
- 举报
哪是以象素为单位的!
fulcrumtian 2005-11-25
- 打赏
- 举报
有没有知道啊，告诉我一下啊
northwolves 2005-11-24
- 打赏
- 举报
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_GETITEMHEIGHT = &H1A1
Private Sub Command2_Click()
Dim ITEMHEIGHT As Integer
ITEMHEIGHT = SendMessage(List1.hwnd, LB_GETITEMHEIGHT, 0, 0)
MsgBox ITEMHEIGHT
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
Private Const LB_GETITEMHEIGHT = &H1A1
Private Sub Command2_Click()
Dim ITEMHEIGHT As Integer
ITEMHEIGHT = SendMessage(List1.hwnd, LB_GETITEMHEIGHT, 0, 0)
MsgBox ITEMHEIGHT
End Sub
Private Sub Form_Load()
For i = 1 To 10
List1.AddItem i
Next
End Sub
