แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - aung

หน้า: [1]
1
ตามไฟล์ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: aung

2
ใช้32 bitจึงได้ ขอบคุณครับ
ถ้าท่านจะใช้ 64Bit ในอนาคต ที่โค๊ดท่านสามารถเพิ่ม
ptrsafe เพิ่มเข้าไปคำสั่งก็จะสามารถทำงานได้ปกติ
จากคำสั่ง
Declare Function

ให้เพิ่มเป็น Declare PtrSafe Function
ประมาณนี้นะครับ
ถ้าท่านจะสลับกันเพื่อให้คำสั่งสามารถใช้ได้กับ Window ทั้ง 64 และ 32
สามารถกำหนดเงื่อนไขประมาณนี้

โค๊ด: [Select]
#if Win64 then
   Declare PtrSafe Function MyFunc Lib "User32" (ByVal N As LongLong) As LongLong
#else 'ส่วนด้านล่างนี้จะใช้ 32Bit ครับ
   Declare Function MyFunc Lib "User32" (ByVal N As Long) As Long
#end if
โพสต์นี้ได้รับคำขอบคุณจาก: aung

3
ลองดูครับ
อุตส่าห์อธิบายโจทย์ขนาดนี้พยายามทำให้ละกัน  :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: aung

4
คือกรณีนี้ หากต้องการแสดงสถานะภาษาคีย์ พอเรากำหนดให้ปุ่ม (~ tilde) เป็นปุ่มเปลี่ยนภาษาจะทำให้ปุ่มมันไม่สามารถ Active กับโปรแกรมอื่นๆได้ โปรแกรมอย่าง MS Access ให้การรันโค้ดที่เหตุการณ์เป็นหลัก Event-Driven แต่เมื่อกดปุ่มตัวหนอนแล้วไม่เกิดเหตุการณ์ใดๆ จึงไม่สามารถรันโค้ดที่ต้องการให้แสดงสถานะคีย์ได้ จึงต้องใช้เหตุการณ์ On Time แทนครับ แล้วก็ให้รันโค้ดที่ On Time แทน ถึงจะแสดงได้แบบ Real Time โดยไม่ต้องพึ่งเหตุการณ์ใดๆ ลองดูไฟล์ต้วอย่างที่นี่ครับ กดโหลดไฟล์ตัวอย่าง
โพสต์นี้ได้รับคำขอบคุณจาก: aung

หน้า: [1]