ทำยังไงให้เปิดฟอร์มแล้วไม่ต้องกดเปลี่ยนให้เป็นภาษาไทย
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 346   2
URL.หัวข้อ / URL
ทำยังไงให้เปิดฟอร์มแล้วไม่ต้องกดเปลี่ยนให้เป็นภาษาไทย

ขอความกรุณาท่านผู้รู้ด้วยครับ

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03489
code นี้เป็นของอ.BADMan เคยให้เป็นตัวอย่างไว้
**********************************
อันนี้วางไว้ที่ โมดูลครับ ตั้งชื่ออะไรก็ได้เช่น ChangeKeyboardLanguage
Option Compare Database
Option Explicit

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
***********************************
อันนี้ผมนำมาไว้ที่ Form
Private Sub txtPassword_GotFocus()
Dim Res As Long 'การเปลี่ยนภาษา En
Res = LoadKeyboardLayout("0000041E", 1)

End Sub
...................................................................
Private Sub txtUserName_GotFocus()
Dim Res As Long 'การเปลี่ยนภาษาไทย
Res = LoadKeyboardLayout("00000409", 1)
End Sub
.............................................................
คุณ zam อาจจะนำไปใช้ตอนเป็น Form ได้
เช่น
Private Sub Form_Open(Cancel As Integer)
Dim Res As Long 'การเปลี่ยนภาษาไทย
Res = LoadKeyboardLayout("0000041E", 1)

End Sub
ขออนุญาติอ.BADMan ครับ เห็นอ.บอกว่าช่วงนี้กำลังติดงาน
2 @R03493
ขอบพระคุณอย่างสูงทำได้แล้ว เยี่ยมมาก!!
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0666s