VB中文本框换行--------急!!!
我的问题就是
有一个text1的文本框
有check1、check2 复选框
其中check1.caption="您好" check2.caption="谢谢"
我想 单击check1后text1中显示出 您好
单击check2 后 文本框就换行显示 如:
您好
谢谢
------------------------------------
那位高手能给我解答下呀!小弟在这里谢谢了!!!
不,我这里是简写了的。还有很多选项呢! 你们写详细点吧。! 我现在头都大了,你们这些方法我都试了,不行,没有达到我想要的效果!
点一个check 后 就换行显示下一个check!! 展开
我本来是第一个回答的,为了把第二,三个问题也解决,修改答案后就成最下边一个了
1.--------------------------------------------------------------
把Text4的MultiLine属性设置成True
复制下边的代码:
Private Sub Form_Load()
Text4.Text = ""
End Sub
Private Sub Command1_Click()
Text4.Text = Text4.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
'下边是为了保障Text4的焦点处于最后,试着去掉下边这三行,观察一下效果,你会发现这三行也很重要
Private Sub Text4_Change()
Text4.SelStart = Len(Text4.Text)
End Sub
2.--------------------------------------------------------------
如果是用List也可以,下边就是双击复制该表项内容
Private Sub List1_DblClick()
Clipboard.Clear
Clipboard.SetText List1.List(List1.ListIndex)
MsgBox "该项内容已经复制到剪贴板,请用Ctrl+V粘贴"
End Sub
3.--------------------------------------------------------------
richtextbox比textbox好用,比如richtextbox还能每行字体颜色不同,显示图片等,不过你这里用不着它的这些复杂用法
首先点“工程”,“部件”,找到“Microsoft Rich textbox Contral 6.0”勾上,点“确定”,然后就可以在工具那里看到它了,在窗体上画RichTextBox1
RichTextBox1 就不用设置MultiLine了,代码的写法和用Text4差不多
复制下边的代码:
Private Sub Form_Load()
RichTextBox1 = ""
End Sub
Private Sub Command1_Click()
RichTextBox1.Text = RichTextBox1.Text + Text1.Text + Text2.Text + Text3.Text + vbCrLf
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1.SelStart = Len(RichTextBox1.Text) '保障RichTextBox1的焦点处于最后
End Sub
上边的代码我都测试过了,完全直接可用!! 看图片!
***,相当于按了一下回车。这个是可行的。
1、在设计界面的时候,选中文本框,在属性窗口中找到“多行性”(MultiLine)设置为“真”(True)
2、在代码编写里面,使用换行符(vbcrlf)。同时提醒你一个,就是可能这两个check选中没有先后(这点要考虑到)
代码如下:
Private Sub Check1_Click()
If Text1 <> "" Then Text1 = Text1 & vbCrLf '另一个已经选中了,就加换行符
Text1 = Text1 & Check1.Caption
Check1.Enabled = False '已经选过,就不能再选
End Sub
Private Sub Check2_Click()
If Text1 = "" Then Text1 = Text1 & vbCrLf
Text1 = Text1 & Check2.Caption
Check2.Enabled = False
End Sub
Private Sub Form_Load()
Text1 = ""
Check1.Caption = "你好"
Check2.Caption = "谢谢"
End Sub
Text1.MultiLine = True
Private Sub Check1_Click()
Text1.Text = Check1.Caption
End Sub
Private Sub Check2_Click()
Text1.Text = Text1.Text & vbCrLf & Check2.Caption
End Sub
vbCrLf是vb中的换行代码
例如:在文本中显示:
你好
谢谢
代码是:text1.text="你好" & "谢谢"