เมนูจากด้านขวาใน Visual Basic 6

แบบฟอร์ม Visual Basic 6 ไม่ natively มีความสามารถในการเปิดใช้งานเมนูบริบทเมื่อคุณกดปุ่มขวาของเมาส์ตัวเลือกที่มีประโยชน์สำหรับนักพัฒนาและผู้ใช้ของซอฟต์แวร์ภายใต้สถานการณ์บางอย่าง

VB6 มีเหตุการณ์ MouseUp ที่สามารถเชื่อมโยงกับองค์ประกอบของฟอร์มผ่านทางไวยากรณ์คลาสสิกของภาษาขับเคลื่อนเหตุการณ์

ลองมาเป็นตัวอย่างเบื้องต้น

เราสร้างรูปแบบใหม่ด้วยการเปิดสำเนาของ Visual Basic 6 ดับเบิลคลิกที่ใดก็ได้ในแบบฟอร์มเพื่อให้การแก้ไขจาก VB6 เรากลับไปที่ขั้นตอน Form_Load

Posizioniamoci ด้วยเคอร์เซอร์ในเหตุการณ์ (เมื่อข้อความ : Form_Load) และเปิดตัวจัดการเหตุการณ์เพื่อเลือก MouseUp :

ณ จุดนี้การแก้ไขจะแสดง Form_MouseUp ประจำใหม่ที่มีพารามิเตอร์ทั้งหมด : นอกจากนี้ยังมีขั้นตอนด้วยตนเองลบ Form_Load

แน่นอนคุณสามารถเชื่อมโยงเหตุการณ์นี้กับองค์ประกอบของรูปแบบใด ๆ เพียงแค่โดยการดับเบิลคลิกและรหัสโดยการดำเนินการลำดับเดียวกันของการดำเนินงาน

ภายในงานประจำใหม่ที่จะเขียนเช็คเช่นนี้ :

 Form_MouseUp ย่อยภาคเอกชน (ปุ่ม As Integer, Shift As Integer, x เป็น Single, Y เป็นโสด)



    



 ถ้าปุ่ม = v​​bRightButton แล้​​ว



        



 MsgBox""



    



 End If







 ย่อยสิ้นสุด

ปุ่มเป็นพารามิเตอร์ตัวแรกของขั้นตอนการพิมพ์ภายในในขณะที่ผลตอบแทนคงที่ vbRightButton ค่าบูลีนจากศูนย์ (0) มีค่าเป็นเท็จหากมีเหตุการณ์หรือการหนึ่ง (1) ถ้าเหตุการณ์นี้เป็นจริง

พยายามที่จะคลิกขวาบนรูปแบบการทำงานจะกลับกล่องข้อความว่างเปล่า

สร้างเมนูจากด้านขวาให้สำหรับการควบรวมตัวอย่างง่ายๆนี้ด้วยปกติของ การสร้างเมนูใน VB6 ตามที่อธิบายไว้ในบทความที่เชื่อมโยงเพียง

ขึ้นอยู่กับเพียงแค่คำอธิบายบทความที่เชื่อมโยงเราสร้างเมนูที่มีลักษณะดังต่อไปนี้

• เมนูหลัก (คำอธิบาย :"เมนูของฉัน"-- ชื่อ :"MyMenu")
• 1 เมนูย่อย (คำอธิบาย :"Item 1"-- ชื่อ :"V1")
• 2 เมนูย่อย (คำอธิบาย :"Item 2"-- ชื่อ :"V2")

ในระหว่างการก่อสร้างที่เมนูแล้วจะมีลักษณะดังต่อไปนี้ คำเตือน : ดังแสดงในภาพที่จำเพื่อยกเลิกการ"เห็น"ไปยังเมนูหลักเนื่องจากโดยค่าเริ่มต้นของเมนูจะมองไม่เห็นเพราะมันสามารถใช้งานได้โดยคลิกปุ่มขวาของเมาส์

• <<
• 1
• 2
• >>