Nine MVP's Blog

27/03/2006

จะเปลี่ยนภาษาบน KeyBoard กะ .Net

Filed under: Computers and Internet — Nine MVP @ 6:08 pm
ใครที่บอกว่า VB6 นั้นเก่าโบราณ ผมคิดว่าเขาดูถูกบรรพบุรุษของ VB ค่อนข้างมาก เพราะว่าความรู้เก่าใน VB6 นั้นสามารถนำมาใช้งานกับ VB.NET ได้เป็นอย่างดี หุหุ (นอกเรื่องละ)

มาดูกันครับ ผมไปหา WIN API ผิดตัวตั้งนาน โชคดีที่ได้ผู้แนะนำ คุณ jib ต้องขอบคุณอีกครั้ง
 
Imports System.Runtime.InteropServices

‘ประกาศ API Function ไว้ใช้งาน

Private
Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

‘ที่นี้ตอนใช้ก็เรียก

Dim resultLanguageKeyBoard As Long

resultLanguageKeyBoard  = ActivateKeyboardLayout(1, 0&)

‘ตอนที่จะเทียบค่า

 8975933078306161694 ‘ค่าที่ return ออกมาว่าเป็น ThaiKeyBoard

 8975933078304785417 ‘ค่าที่ return ออกมาว่าเป็น EngKeyBoard

rrrrrrrrrrrrrr

Leave a Comment »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Leave a Reply

Please log in using one of these methods to post your comment:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Create a free website or blog at WordPress.com.

%d bloggers like this: