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

[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

[atf1379]

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

[eb_1345]

سلام
من خیلی جستجو کردم متأسفانه موردی رو پیدا نکردم که در هنگام ریسایز ستون های 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 میباشد .