vb 文本框里问容回车
来源:百度知道 编辑:UC知道 时间:2024/06/08 10:44:11
Private Sub Command2_Click()
Dim Label1, Label2 As Double
Label1 = Rnd
Label2 = Rnd
If Label1 > Label2 Then
Text1.Text = "园园 胜 李娜" + " " + "裁判:园 哈哈!!"
ElseIf Label2 > Label1 Then
Text1.Text = "李 胜 园园" + " " + "裁判:园 哈哈!!"
Else
MsgBox "平局"
End If
Text1.Text = "李 胜 园园" + " " + "裁判:园 哈哈!!"
我想让 "李 胜 园园" + " 在第一行
" + "
裁判:园 哈哈!!"在第二行
急等啊
在线等 大虾们快点啊
Dim Label1, Label2 As Double
Label1 = Rnd
Label2 = Rnd
If Label1 > Label2 Then
Text1.Text = "园园 胜 李娜" + " " + "裁判:园 哈哈!!"
ElseIf Label2 > Label1 Then
Text1.Text = "李 胜 园园" + " " + "裁判:园 哈哈!!"
Else
MsgBox "平局"
End If
Text1.Text = "李 胜 园园" + " " + "裁判:园 哈哈!!"
我想让 "李 胜 园园" + " 在第一行
" + "
裁判:园 哈哈!!"在第二行
急等啊
在线等 大虾们快点啊
text的muitiline=true
即是支持多行
然后加chr(13)+chr(10) 就能换行
换行符 vbCrLf
加换行符chr(13)+chr(10)
Text1.Muitiline=True '或在窗体中设置
Text1.Text = "李 胜 园园" & vbCrLf & "裁判:园 哈哈!!"