入力ロケールの規定値 (ID:92086)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自己解決できました。 Const KLF_SUBSTITUTE_OK = &H2 Const SPIF_SENDCHANGE = &H2 Const SPI_SETDEFAULTINPUTLANG = 90 Dim lngRet As Long Dim lngLayout As Long '英語(U.S.)のキーボードレイアウトをロード lngLayout = LoadKeyboardLayout("00000409", KLF_SUBSTITUTE_OK) 'ロードしたレイアウトを入力ロケールの規定値に設定 lngRet = SystemParametersInfo(SPI_SETDEFAULTINPUTLANG, 0, lngLayout, SPIF_SENDCHANGE)