سوال: رویداد MouseMove ، MouseUp و MouseDown بر روی عنوان ستون های ListView [بایگانی]

atf1379

یک شنبه 09 آذر 1399, 02:41 صبح

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

دوشنبه 10 آذر 1399, 08:51 صبح

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

eb_1345

پنج شنبه 13 آذر 1399, 19:02 عصر

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