タイトル : Re: リッチテキストボックスの改行について 投稿日 : 2007/03/13(Tue) 19:04 投稿者 : 花ちゃん
> If e.KeyValue = Keys.Enter Then > Me.SelectNextControl(sender, True, True, True, True) > e.Handled = True > End If Ctr キーが押されているかどうかのチェックを付け加えればいいのでは。 Private Sub RichTextBox1_KeyDown(ByVal sender As Object, ByVal e As _ System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown If e.KeyCode = Keys.Enter And e.Control = False Then Me.SelectNextControl(sender, True, True, True, True) e.Handled = True End If End Sub |