Question

怎么用VB做聊天窗口的模拟？就是点击“发送”的命令按钮将text1的内容发送到text2中，并且t

怎么用VB做聊天窗口的模拟？就是点击“发送”的命令按钮将text1的内容发送到text2中，并且text2中出现“B：有事不在”的文本。我在代码中加了 chr(13) 的换行符，可是运行时并没有换行。而且text2setfocus不能用

Answer 1

我根据你的要求编了这个程序，你可以下载（复制到地址栏，把点改成.）：
http点//ys-m点ys168.com/2.0/336535591/V6SMhJi6F295L3I5PHT/回答%20夜雨街道%20的问题答案.rar

代码：
Private Sub Command1_Click()
Text2 = Text2 & "Me：" & Text1 & vbCrLf & "B：有事不在" & vbCrLf
End Sub
解释：chr(13)是回车符，chr(10)是换行符，只有13是不能实现换行功能的，必须两个都有：chr(13) + chr(10)才行，平常用vbcrlf这个常量就行，等价的。
还有，文本框的Muitiline属性要设置为“TRUE”才能换行，否则是单行文本框。

如果对您有帮助，请设为推荐答案，谢谢您！

追问

能再问个问题吗？我在做一个小球反弹的程序，可是不能反弹，不知道问题在哪。 其中的一段代码：if shape1.left>=form1.scalewidth-shape1.width then shape1.left=shape1.left-hv(hv是水平速度)

Answer 2

chr13不是换行的命令
换行命令是vbcrlf
如果还不行 那就是你空间掌握的不熟悉
要把文本框的可接受多行文本multiline设为真

追问

那么是在form_load里设text1.setfocus吗

哦，知道了