MouseUp Event Procedure Button Argument and how to use them?

जब हम MouseUp Event के साथ किसी जरूरत को पूरा करना चाहते हैं, तब MouseUp Event Procedure में हमेंशा चार Arguments दिखाई देते हैं। इन चारों Arguments में एक Button नाम का Argument होता है। इस Argument में उन Mouse Button की Information होता है, जिससे Event से Associated Control पर Click किया गया है।

• यदि हम Mouse के Left Button से Click करते हैं, तो इस Argument में vbLeftButton नाम का Visual Basic Constant मान होता है, जो कि Visual Basic का Default Mouse Button है।
• यदि हम Mouse के Right Left Button से Click करते हैं, तो इस Argument में vbRightButton नाम का Visual Basic Constant मान होता है। और
• यदि हम Mouse के Middle Button से Click करते हैं, तो इस Argument में vbMiddleButton नाम का Visual Basic Constant मान होता है।

हम MouseUp Event Procedure के इस Button Argument में Stored मान को Check करके ये पता लगा सकते हैं कि Mouse के किस Button से Click किया गया है। ये काम करने के लिए हमें If Control Statement का प्रयोग करना होता है। If Control Statement का प्रयोग यदि हम पिछले Procedure में करें, तो हम पिछले Procedure को निम्नानुसार Modify कर सकते हैं:

Private Sub Form_MouseUp _
 (Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Button = vbRightButton Then
  Form1.PopupMenu mnuPopup
 End If

End Sub

इस MouseUp Procedure में हम Mouse द्वारा Associated Control पर किस Location पर Click कर रहे हैं, उस Location की X व Y Position की जानकारी MouseUp Event Procedure के X व Y नाम के Argument में होती है। यदि हम चाहें, तो Mouse के Click होने की Position की जानकारी को भी Print Method का प्रयोग करके Form पर Display कर सकते हैं, जिसके लिए हमें पिछले Procedure को निम्नानुसार Modify करना होगाः

Private Sub Form_MouseUp _
 (Button As Integer, Shift As Integer, X As Single, Y As Single)

 If Button = vbRightButton Then
  Form1.PopupMenu mnuPopup
 End If
 Print X, Y
End Sub