User manual - Windows Mobile ソフトウェアマニュアルver.1.06(2011年3月11日)

134
サンプルプログラム（VB.NET）
F1,F2,F3,F4 キーをそれぞれ仮想キーコード VK_APP1(&HC1), VK_APP2(&HC2), VK_APP3(&HC3),
VK_APP4(&HC4)に割り当てて仮想キーコードをレジストリに登録する
Imports Microsoft.Win32
Module Module1
Public iUserDefineKeyBufF1() As Integer = {&H200 Or &HC1 Or &H20000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Public iUserDefineKeyBufF2() As Integer = {&H200 Or &HC2 Or &H20000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Public iUserDefineKeyBufF3() As Integer = {&H200 Or &HC3 Or &H20000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Public iUserDefineKeyBufF4() As Integer = {&H200 Or &HC4 Or &H20000, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
Sub Main()
SysSetUserDefineKey(KEY_MODE_NUM, KEYID_F1, iUserDefineKeyBufF1)
SysSetUserDefineKey(KEY_MODE_NUM, KEYID_F2, iUserDefineKeyBufF2)
SysSetUserDefineKey(KEY_MODE_NUM, KEYID_F3, iUserDefineKeyBufF3)
SysSetUserDefineKey(KEY_MODE_NUM, KEYID_F4, iUserDefineKeyBufF4)
SysSetUserDefineKeyState(True)
Dim key1 As RegistryKey
' ==== Registry write operation =====
key1 = Registry.LocalMachine
key1 = key1.CreateSubKey("Software¥Microsoft¥Shell¥Keys¥40C1")
key1.SetValue("Name", "F1")
key1.SetValue("Flags", 0)
key1.Close()
key1 = Registry.LocalMachine
key1 = key1.CreateSubKey("Software¥Microsoft¥Shell¥Keys¥40C2")
key1.SetValue("Name", "F
2")
key1.SetValue("Flags", 0)
key1.Close()
key1 = Registry.LocalMachine
key1 = key1.CreateSubKey("Software¥Microsoft¥Shell¥Keys¥40C3")
key1.SetValue("Name", "F3")
key1.SetValue("Flags", 0)
key1.Close()
key1 = Registry.LocalMachine
key1 = key1.CreateSubKey("Software¥Microsoft¥Shell¥Keys¥40C4")
key1.SetValue("Name", "F4")
key1.SetValue("Flags", 0)
key1.Close()
End Sub
End Module