VB怎样才可以像QQ那样按Enter就可以发信息？

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Text2.Text = Text2.Text + vbCrLf + Text1.Text
End Sub
当然你的textbox2的muntiline要设为true才行。

如果是要发送消息就是设置按钮属性Default为TRUE
这样当焦点在TEXT时候可以直接触发按钮的事件

如果你要是要用ENTER把焦点切到另外个TEXT
则需要KEYPRESS事件
Private Sub Text1_KeyPress(Keycode As Integer)
If Keycode = 13 Then Text2.SetFocus
End Sub

这样就是焦点在TEXT1的状态下按ENTER后焦点切到TEXT2

设置窗体默认按钮

比如，窗体上面有一个“发送”按钮，在VB设计状态下，单击选中这个按钮，只要在右侧属性区域找到“Default”属性，设置为True就可以了。

当这个窗体运行后，你在textbox里面输入好内容以后直接按Enter回车键 自动就执行“发送”按钮的事件。

-------------------------------------------------------------

同时还有一个属性叫做：Cancel属性

如果你的窗体上面还有一个按钮叫做“取消”只要选中这个按钮，在属性区域找到“Cancel”属性，设置为True ， 程序运行后，按键盘的Esc键，就自动执行“取消”按钮事件。

这些课本上面都有啊？！............................囧

没分，哎~~~~还是匿了~

参照QQ的设置不就行了吗？