怎么用VB做聊天窗口的模拟？就是点击“发送”的命令按钮将text1的内容发送到text2中，并且t
怎么用VB做聊天窗口的模拟？就是点击“发送”的命令按钮将text1的内容发送到text2中，并且text2中出现“B：有事不在”的文本。我在代码中加了chr(13)的换行...
怎么用VB做聊天窗口的模拟？就是点击“发送”的命令按钮将text1的内容发送到text2中，并且text2中出现“B：有事不在”的文本。我在代码中加了 chr(13) 的换行符，可是运行时并没有换行。而且text2setfocus不能用
展开
展开全部
我根据你的要求编了这个程序，你可以下载（复制到地址栏，把点改成.）：
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”才能换行，否则是单行文本框。
如果对您有帮助，请设为推荐答案，谢谢您！
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是水平速度)
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
