เปลี่ยนแป้นภาษาด้วย VB

[kitisak]

เมื่อกดเครื่องหมาย * ใน textbox1 แล้วให้แป้นพิมพ์เปลี่ยนเป็นภาษาอังกฤษ เราต้องเขียนโค๊ต อย่างไรครับ

[UnKnown]

> คีย์บอร์ดไม่มีปุ่มเปลี่ยนภาษาเหรอครับ
> ตั้งค่าให้เมื่อมาใช้ textbox1 ให้เปลี่ยนภาษาตั้งต้นเป็นภาษาอังกฤษได้ตามรูป (ถ้าจะพิมพ์ไทยก็กดปุ่มเปลี่ยนภาษา~)


> เขียนฟังก์ชั่นให้ "*" เป็นปุ่มเปลี่ยนภาษาแล้วให้ textbox1 เรียกใช้งานฟังก์ชั่นนั้นอีกที (ได้หรือไม่,ทำอย่างไรรอดูกันต่อไปครับ )

[kitisak]

ผมได้ตั้งค่าแบบคุณUnKnown แล้วครับ แต่คือ
ถ้าคีย์ปกติ จะเป็น ภาษาไทย
แต่ถ้าคีย์ * ไปก่อน จะให้แป้นภาษามันเปลี่ยนเป็น ภาษาอังกฤษ อัตโนมัติ โดยที่เราไม่ต้องไปเสียเวลากดแป้น ~

[ปิ่นณรงค์]

เมื่อกดเครื่องหมาย * ใน textbox1 แล้วให้แป้นพิมพ์เปลี่ยนเป็นภาษาอังกฤษ เราต้องเขียนโค๊ต อย่างไรครับ

สามารถทำได้ครับ กรณีที่เรากดปุ่ม * แล้วให้เปลี่ยนภาษาตามที่เรากำหนดไว้สามารถทำได้ดังนี้
ผมกำหนด textbox ชื่อ text1

คำสั่งบน Module

โค๊ด: [Select]

Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, Flag As Boolean) As Long
Private Const Eng = 1033 
Private Const Th = 1054
Sub keyEng()
Call ActivateKeyboardLayout(Eng, True)
End Sub
Sub KeyTh()
Call ActivateKeyboardLayout(Th, True)
End Sub

คำสั่ง Event ที่ Text1

โค๊ด: [Select]

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyMultiply Then
Call keyEng
End If
End Subตัวอย่างการใช้งานด้านล่างครับ

[kitisak]

ตรงตามคามต้องการ ขอขอบพระคุณ คุณNewbies เป็นอย่างสูงครับ

[ปิ่นณรงค์]

ยินดีครับพี่ ผมใส่ ตัวเปลี่ยนภาษาไทยเอาไว้ให้พี่ด้วย ถ้าต้องการให้เป็นภาษาไทยก็ใช้

โค๊ด: [Select]

call KeyTh

ได้เลยนะครับ