按要求完成 你拿去看看 已经测试过没问题。。Private Sub Form_Load()Text1.Text = "123" & vbCrLf & "456" & vbCrLf & "789" & vbCrLf & "987"Me.KeyPreview = TrueEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then
Dim a()
Dim b()
Dim n As Integer
Dim bb As String...
以下是一个示例：已测试！ 创建一个文本框，复制几行文本进去，试试看！！ 注意：下面代码屏蔽了文本框中按回车换行的功能，也就是说，按回车后只显示该行的内容，而文本不会换行！！ Private Sub Text1_KeyPress(KeyAscii As Integer)Dim p1 As Integer, p2 As Integer, p3...
