ผู้เขียน หัวข้อ: [VB6] การสร้างเมนูแบบ Drop Down บนปุ่มคำสั่ง (CommandButton)  (อ่าน 250 ครั้ง)

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
[VB6] การสร้างเมนูแบบ Drop Down บนปุ่มคำสั่ง (CommandButton)


เมื่อรันโปรแกรม


จากเมนู Tools --> Menu Editor... สร้างเมนูรายการหลัก และปกติเราจะปิดการมองเห็น (Visible) เอาไว้ก่อน แต่ตอนที่สร้างให้เปิดเอาไว้ก่อน พอตอนที่กลับไปที่หน้าจอฟอร์มหลัก เราจะสามารถสร้างเหตุการณ์ในการนำเมาส์ไปคลิ๊กได้ เช่น
Private Sub mnu1_Click()
    ' MsgBox "You select first menu."
End Sub


Sub Menu ตัวที่ 1 ก็เปิดการมองเห็น (Visible=True)


Sub Menu ตัวที่ 2 ก็เปิดการมองเห็น (Visible=True)

มาดูโค้ดกันเถอะ ...
Option Explicit

' เกิดเหตุการณ์คลิกเมาส์ซ้ายที่ปุ่มคำสั่ง (CommandButton)
Private Sub Command1_Click()
    Call PopupMenu(mnu, , Me.Command1.Left, Me.Command1.Top + Me.Command1.Height)
End Sub

Private Sub Form_Load()
    ' ปิดการมองเห็นเมนูหลัก เผื่อลืมปิดจากตอนที่ Deisgn Time
    mnu.Visible = False
End Sub

Private Sub mnu1_Click()
    MsgBox "You select first menu."
End Sub

Private Sub mnu2_Click()
    MsgBox "You select second menu."
End Sub

บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

ออฟไลน์ naien

  • Newbie
  • *
  • กระทู้: 36
Re: [VB6] การสร้างเมนูแบบ Drop Down บนปุ่มคำสั่ง (CommandButton)
« ตอบกลับ #1 เมื่อ: ธันวาคม 03, 2015, 09:10:06 am »
ขอบคุณครับ
อาจารย์ครับ รบกวนถามเพิ่มเติมครับ ที่ว่างๆ หน้าคำว่า "Menu First" ใช้สำหรับเพิ่มรูปไอคอนใช่ป่าวครับ ผมคุ้นๆ เคยเห็นโปรแกรมของอาจารย์ แต่ผมหาวิธีเพิ่มไม่ได้ เพิ่มได้แต่ไอคอนเมนูหลัก

บันทึกการเข้า

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
Re: [VB6] การสร้างเมนูแบบ Drop Down บนปุ่มคำสั่ง (CommandButton)
« ตอบกลับ #2 เมื่อ: ธันวาคม 03, 2015, 08:05:37 pm »
ขอบคุณครับ
อาจารย์ครับ รบกวนถามเพิ่มเติมครับ ที่ว่างๆ หน้าคำว่า "Menu First" ใช้สำหรับเพิ่มรูปไอคอนใช่ป่าวครับ ผมคุ้นๆ เคยเห็นโปรแกรมของอาจารย์ แต่ผมหาวิธีเพิ่มไม่ได้ เพิ่มได้แต่ไอคอนเมนูหลัก

หากเป็น VB6 เพียวๆ จะต้องใช้ API (Application Programming Interface) เข้าช่วยครับ ... แต่ที่เห็นว่ามีรูปบนเมนูนั่นมาจาก CodeJock eXtreme Suit Pro ครับ

บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

ออฟไลน์ naien

  • Newbie
  • *
  • กระทู้: 36
Re: [VB6] การสร้างเมนูแบบ Drop Down บนปุ่มคำสั่ง (CommandButton)
« ตอบกลับ #3 เมื่อ: ธันวาคม 03, 2015, 10:07:35 pm »
ครับ ขอบคุณครับ

บันทึกการเข้า