KeyPreview=True時の日本語入力 (ID:122174)

名前

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

本文 Private test As Boolean Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF7 If test = True Then End Else test = True End If End Select End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode <> 118 Then test = False Else test = True End If End Sub 改善の予知はありますが なんとなく動きます。（TT)