VB中文本框换行--------急!!!
我本来是第一个回答的,为了把第二,三个问题也解决,修改答案后就成最下边一个了
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
上边的代码我都测试过了,完全直接可用!! 看图片!
把文本框的MultiLine属性设为True就可以换行了。如果你想用代码在文本框中显示多行文字,可以把字符串和vbCrLf连起来。比如Text1.Text = "abc" & vbCrLf & "123",这样abc和123就会显示成2行了。
我本来是第一个回答的,为了把第二,三个问题也解决,修改答案后就成最下边一个了
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
上边的代码我都测试过了,完全直接可用!! 看图片!
我给个比较笨的一种头绪吧,单机check(准确说应该是选择)后,send
***,相当于按了一下回车。这个是可行的。
这个问题有两点要注意的:
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的属性得设置成多行显示。如果需要滚动条,设置ScrollBars。其他看楼上的就好
前提是你要把文本框的MultiLine 属性设置为 True,例如:
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="你好" & "谢谢"
VB中文本框换行--------急!!!视频
相关评论:
席宙苏把textbox控件的mutiline属性设为true text1.text = a & vbcrlf & b & vbcrlf & c vbcrlf就是回车换行
席宙苏end if if ((i mod 2 <> 0)and (i mod 3 <> 0)and (i mod 5 <> 0)and (i mod 7 <> 0))then text1.text = text1.text & str(i)& ""’这里是凡是不能被2357整除的数就显示出来 end if 注意这里没有使用换行,所以 11 13 会在同一行 next i 所以程序的大致功能就是 ...
席宙苏首先把你的文本框的MutiLine属性为true 然后你需要根据你的内容拆分,在每个要换行的地方插入VBCrLf或者chr(13)就可以。
席宙苏其次,如果文本框无法显示全部文字,还应该设置滚动条,即把ScrollBars属性设为2(纵向滚动条,如果是1则是横向滚动条,3则是横向纵向都有滚动条);如果要在文字中手动插入回车换行符,可以用常量vbCrLf,比如:Text1.Text = "第一行" & vbCrLf & "第二行" & vbCrLf & "第三行"...
席宙苏把文本框设置成多行,修改这个文本框的MultiLine 属性为true 您说是提示vbcrlf 错误 那把VBCRLF 换成 CHR(10)& CHR(13) 试试看 分别是回车符和换行符 TextDisplay6.text = "您最大的按键次数是10" & CHR(10)& CHR(13) & "您此轮的次数是15"...
席宙苏重复问题,VB文本框中的换行是两个字符chr(13) & chr(10),编程读取其中的每一个字符,直到有换行的时候,在后边加数需要的空格数量的可以了。下面的程序我已经调试通过(窗体中放置一个文本框和一个命令按钮):Private Sub Command1_Click()Dim CR As String, Strout As String, Tmp As String,...
席宙苏..回车键本来就是换行的 Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then '按下回车 KeyAscii = 0 '去处按下 Text1.Text = Text1.Text & vbCrLf Text1.SelStart = Len(Text1.Text)-1 End If End Sub
席宙苏Private Sub Command1_Click()Text1.SetFocus a = InStr(Text1.SelStart, Text1.Text, vbCrLf)Text1.SelStart = a + 1 End Sub
席宙苏将文本框的MultiLine的属性设为True,再将ScrollBars的属性设为2-Vertical就可以了。
席宙苏把你的text6的属性改一下,允许多行就好了。mutiline=true