请问一个listbox,高手请进，如能正确回答（能用）结帐时加足一百分以上

Question

http://www.csdn.net/expert/topic/1041/1041383.xml?temp=.6592371这样子有没有分的啊？

Answer 1

http://www.csdn.net/expert/topic/995/995241.xml?temp=4.369754E-02

Answer 2

Option ExplicitPrivate Const LB_ITEMFROMPOINT = &H1A9
private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim pos As Long, idx As Long
    
    pos = X / Screen.TwipsPerPixelX + Y / Screen.TwipsPerPixelY * 65536
    idx = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
    
    If idx < 65536 Then  list1.selected(idx)=true
End Sub
参考一下

Answer 3

学VB找王国荣：http://www.kj.com.tw/2001/qa/Adv/0004.htm我是否可以為 ListBox 的每一行資料設定不同的顏色及字型？
答案是：否。

Answer 4

最简单方法：
把ListBox的Style设为1
再拦截窗体的WM_DrawItem消息，再用绘图API画出不同颜色的项目就行了

Answer 5

同意楼上的，除了Hook好象没有什么好方法了

Answer 6

昏……Hook与子类是两个概念！