タイトル : Re:解決しました。 投稿日 : 2008/05/26(Mon) 10:21 投稿者 : おじん
投稿では、VB_Key8 としているところをテストでは VK_NUMPAD8 を 使用していました。 ご迷惑をおかけしました。 > Private Sub Command3_Click() > 'SHIFT+文字を押す > Text1.SetFocus > VK_Key=vbKey8 <<<<<<<<ここの所をミスしていた。 > Call keybd_event(VK_SHIFT, 0, 0, 0) > Call keybd_event(VK_Key, 0, 0, 0) > Call keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0) |