رویداد MouseMove ، MouseUp و MouseDown بر روی عنوان ستون های ListView

سلام
من خیلی جستجو کردم متأسفانه موردی رو پیدا نکردم که در هنگام ریسایز ستون های ListView وقتی که اشاره گر موس در بین دو ستون بصورت جهت دار تبدیل میشود در حالت راست کلیک کد خاصی اجرا شود
کدهای زیر رو امتحان کردم نتیجه نداد

Private Sub listView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

If Button = 0 Then

'If Button = acRightButton Then

   MsgBox "kkk"

End If

End Sub





Private Sub listView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

If Button = 1 Then

MsgBox "HHH"

End If

End Sub

یاد گذشته ها بخیر هیچ تاپیکی بیشتر از یک روز طول نمی کشید از طرف اساتید به آن پاسخ داده میشد .

نقل قول:

---

نوشته شده توسط atf1379

سلام
من خیلی جستجو کردم متأسفانه موردی رو پیدا نکردم که در هنگام ریسایز ستون های ListView وقتی که اشاره گر موس در بین دو ستون بصورت جهت دار تبدیل میشود در حالت راست کلیک کد خاصی اجرا شود
کدهای زیر رو امتحان کردم نتیجه نداد

Private Sub listView1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

If Button = 0 Then

'If Button = acRightButton Then

   MsgBox "kkk"

End If

End Sub





Private Sub listView1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Long, ByVal y As Long)

If Button = 1 Then

MsgBox "HHH"

End If

End Sub

---

پارامترهای ورودی متد MouseMove یا MouseUp لیست ویو در vb6 بصورت Button As Integer, Shift As Integer, X As Single, Y As Single میباشد .