. Private Sub RichTextBox1_KeyDown().... . If e.KeyCode = Keys.Enter Then . If e.KeyCode = Keys.Shift And e.KeyCode = Keys.Enter Then . '改行 . Else . '何もしない . e.Handled = True . End If . End If . End Sub
. Private Sub RichTextBox1_KeyDown().... . If e.KeyCode = Keys.Enter Then . If e.KeyCode = Keys.Shift And e.KeyCode = Keys.Enter Then . '改行 . Else . '何もしない . e.Handled = True . End If . End If . End Sub