タイトル : Re^3: ListBoxのToolTipText表示 投稿日 : 2009/07/14(Tue) 14:57 投稿者 : 花ちゃん
> 「現在のマウスの位置」とアドバイスをいただき、ありがとうございます。 > リンク先ではマウスをクリックしたときの座標を取得するようですが、 > 私がしたいのは、マウスはクリックせずにマウスのポインターが重なった > 位置のリストを取得したいのです。 コードをご覧になって試されたのでしょうか? Private Sub List1_MouseMove(Button As Integer, _ Shift As Integer, x As Single, y As Single) Dim MPos As POINTAPI Dim Ind As Long GetCursorPos MPos '現在のマウス座標を取得 'そのマウス座標から行位置を取得 Ind = LBItemFromPt(List1.hWnd, MPos.x, MPos.y, False) If Ind <> -1 Then Debug.Print Ind, List1.List(Ind) End If End Sub |