MouseUp Event Procedure Button Argument and how to use them?

Visual Basic 6 in Hindiये Article इस वेबसाईट पर Selling हेतु उपलब्‍ध EBook Visual Basic 6 in Hindi से लिया गया है। इसलिए यदि ये Article आपके लिए उपयोगी रहा, तो निश्चित रूप से ये पुस्तक भी आपके लिए काफी उपयोगी साबित होगी। 

Visual Basic 6 in Hindi | Page: 175 | Format: PDF

BUY NOW DOWNLOAD READ ONLINE

जब हम 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
How to Add Popup Menu on the Form? - Adding Popup Menu
What is MouseUp Event Procedure Shift Arguments and How to use them properly?

******

ये पोस्‍ट Useful लगा हो, तो Like कर दीजिए।

Visual Basic 6 in Hindiये Article इस वेबसाईट पर Selling हेतु उपलब्‍ध EBook Visual Basic 6 in Hindi से लिया गया है। इसलिए यदि ये Article आपके लिए उपयोगी रहा, तो निश्चित रूप से ये पुस्तक भी आपके लिए काफी उपयोगी साबित होगी। 

Visual Basic 6 in Hindi | Page: 175 | Format: PDF

BUY NOW DOWNLOAD READ ONLINE

Download All Hindi EBooks

सभी हिन्दी EBooks C, C++, Java, C#, ASP.NET, Oracle, Data Structure, VB6, PHP, HTML5, JavaScript, jQuery, WordPress, etc... के DOWNLOAD LINKS प्राप्‍त करें, अपने EMail पर।

Register करके Login करें। इस Popup से छुटकारा पाएें।