ผู้เขียน หัวข้อ: แสดงรายการใน Combobox  (อ่าน 202 ครั้ง)

ออฟไลน์ Ware69

  • Newbie
  • *
  • กระทู้: 5
แสดงรายการใน Combobox
« เมื่อ: มีนาคม 01, 2016, 10:58:33 am »
จะเขียนโค้ดยังไงใน VB6 ให้แสดงรายการในลิสต์เลย โดยไม่ต้องไปคลิกที่ปุ่ม 3 เหลี่ยมด้านขวามือ
คือเมื่อเคอเซอร์อยู่ที่ ComboText แล้ว ให้แสดงรายการใน List โดยอัตโนมัติเลยครับ

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

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

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
Re: แสดงรายการใน Combobox
« ตอบกลับ #1 เมื่อ: มีนาคม 04, 2016, 10:32:36 pm »


หาก ComboBox ถูก Focus ก็ส่ง SendKeys ด้วยการกด F4 ไปให้เหตุการณ์ GotFocus เลยครับ

Private Sub Combo1_GotFocus()
    Sendkeys "{F4}"
End Sub

Private Sub Form_Load()
    Combo1.AddItem "Apple"
    Combo1.AddItem "Chery"
    Combo1.AddItem "Orange"
    Combo1.AddItem "Matun"
    Combo1.ListIndex = 0
End Sub

' / -----------------------------------------------------------------------------------------------------
' / แก้ปัญหาเรื่อง SendKeys ใน Windows 8 64 บิท

Public Sub Sendkeys(Text As String, Optional Wait As Boolean = False)
' / -----------------------------------------------------------------------------------------------------
    Dim WshShell As Object
    Set WshShell = CreateObject("Wscript.shell")
    WshShell.Sendkeys Text, Wait
    Set WshShell = Nothing
End Sub

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

ออฟไลน์ Ware69

  • Newbie
  • *
  • กระทู้: 5
Re: แสดงรายการใน Combobox
« ตอบกลับ #2 เมื่อ: มีนาคม 09, 2016, 01:43:03 am »
ขอบคุณครับ

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

ออฟไลน์ Mr.Den

  • Jr. Member
  • **
  • กระทู้: 73
  • เพศ: ชาย
Re: แสดงรายการใน Combobox
« ตอบกลับ #3 เมื่อ: มีนาคม 15, 2016, 10:42:46 pm »
ขอบคุณครับผม

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