高考问答dnf各职业白金徽章换装:VB代码的换行问题
来源：百度文库 编辑：高考问答 时间：2024/04/28 08:59:46
代码：
------------------------------------------------
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
TextBox1.Text = "剪不断，理还乱，是离愁，别是一般滋味在心头。 ——李煜 努力爱春华， 莫忘欢乐时， 生当复来归， 死当长相思。 ——苏武"
End Sub
-------------------------------------------------
我想让“李煜”和“努力”之间换行（不是顶格后自动换行，是显示成：
剪不断，理还乱，是离愁，别是一般滋味在心头。 ——李煜
努力爱春华， 莫忘欢乐时， 生当复来归， 死当长相思。 ——苏武
的样子）。你们明白我的意思吧。
请问怎么实现？最好提供代码！！
另外换行符是什么东西？怎么用？
另外我希望代码也能换行。不要这么长的句子急在一行上~
修改如下:
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
TextBox1.Text = "剪不断，理还乱，是离愁，"_
& "别是一般滋味在心头。 ——李煜" &chr(10) & chr(13) _
& " 努力爱春华， 莫忘欢乐时， 生当复来归， 死当长相思。"_
& " ——苏武" &chr(10) & chr(13)
End Sub
TextBox1.Text ="剪不断，理还乱，是离愁，别是一般滋味在心头。 ——李煜"& vbcrlf &" 努力爱春华， 莫忘欢乐时， 生当复来归， 死当长相思。 ——苏武"
在字符串中要换行处插入& vbcrlf &
我记得不是很难，应该是shift+回车，或是ctrl+回车，记不清楚了，具体实现方法比如这样：
让李煜那句为字符串1
……
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
dim str1 as string
dim str2 as string
str1="剪不断，理还乱，是离愁，别是一般滋味在心头。 ——李煜"
str2="努力爱春华， 莫忘欢乐时， 生当复来归， 死当长相思。 ——苏武"
textbox1.text=str1 & asc(23) & asc(31) & str2
end sub
看明白没？具体意思就是在第一个和第二个字符串中间加一个强制回车符，其构成就是shift键的asc ii代码+回车键的asc ii代码，具体是多少我忘了，有一个是23，另一个是多少我忘了，自己用button控件的keypress方法测试一下就知道了。
换行符是载要换行的地方，先按出一个空格，再输出一个“_”，即可
例如：
a+b+c _
+d=e
中间在需要换行地方加上chr(13)
text1.text="asdf"&chr(13)&"adsf"