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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

25 มี.ค. 61 , 23:01:12
อ่าน 837 ครั้ง

kitisak

เปลี่ยนแป้นภาษาด้วย VB
« เมื่อ: 25 มี.ค. 61 , 23:01:12 »
เมื่อกดเครื่องหมาย * ใน textbox1 แล้วให้แป้นพิมพ์เปลี่ยนเป็นภาษาอังกฤษ เราต้องเขียนโค๊ต อย่างไรครับ

 
โพสต์นี้ได้รับคำขอบคุณจาก: mbbrid

26 มี.ค. 61 , 10:13:02
ตอบกลับ #1

UnKnown

> เปลี่ยนแป้นภาษาด้วย VB
« ตอบกลับ #1 เมื่อ: 26 มี.ค. 61 , 10:13:02 »
> คีย์บอร์ดไม่มีปุ่มเปลี่ยนภาษาเหรอครับ
> ตั้งค่าให้เมื่อมาใช้ textbox1 ให้เปลี่ยนภาษาตั้งต้นเป็นภาษาอังกฤษได้ตามรูป (ถ้าจะพิมพ์ไทยก็กดปุ่มเปลี่ยนภาษา~)


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

 
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

26 มี.ค. 61 , 12:17:28
ตอบกลับ #2

kitisak

> เปลี่ยนแป้นภาษาด้วย VB
« ตอบกลับ #2 เมื่อ: 26 มี.ค. 61 , 12:17:28 »
ผมได้ตั้งค่าแบบคุณUnKnown แล้วครับ แต่คือ
ถ้าคีย์ปกติ จะเป็น ภาษาไทย
แต่ถ้าคีย์ * ไปก่อน จะให้แป้นภาษามันเปลี่ยนเป็น ภาษาอังกฤษ อัตโนมัติ โดยที่เราไม่ต้องไปเสียเวลากดแป้น ~

 

26 มี.ค. 61 , 13:25:36
ตอบกลับ #3

ปิ่นณรงค์

> เปลี่ยนแป้นภาษาด้วย VB
« ตอบกลับ #3 เมื่อ: 26 มี.ค. 61 , 13:25:36 »
เมื่อกดเครื่องหมาย * ใน 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
ตัวอย่างการใช้งานด้านล่างครับ
« แก้ไขครั้งสุดท้าย: 26 มี.ค. 61 , 14:46:34 โดย Newbies »
:love: :grin:
 
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, kitisak

26 มี.ค. 61 , 14:45:14
ตอบกลับ #4

kitisak

> เปลี่ยนแป้นภาษาด้วย VB
« ตอบกลับ #4 เมื่อ: 26 มี.ค. 61 , 14:45:14 »
ตรงตามคามต้องการ ขอขอบพระคุณ คุณNewbies เป็นอย่างสูงครับ

 

26 มี.ค. 61 , 15:00:49
ตอบกลับ #5

ปิ่นณรงค์

> > เปลี่ยนแป้นภาษาด้วย VB
« ตอบกลับ #5 เมื่อ: 26 มี.ค. 61 , 15:00:49 »
ยินดีครับพี่ ผมใส่ ตัวเปลี่ยนภาษาไทยเอาไว้ให้พี่ด้วย ถ้าต้องการให้เป็นภาษาไทยก็ใช้

โค๊ด: [Select]
call KeyTh

ได้เลยนะครับ
« แก้ไขครั้งสุดท้าย: 27 มี.ค. 61 , 15:23:56 โดย Newbies »
:love: :grin:
 


บอร์ดเรียนรู้ Access สำหรับคนไทย