用vb如何把两个文本框的内容按一定格式合并成一个文本框?
具体要求是;按行合并,两个文本框的行按冒号隔开?比如:text1有三行文字,内容是:北京上海天津…………text2也有三行文字,内容是:1号2号3号合并后的文本框text...
具体要求是;按行合并,两个文本框的行按冒号隔开?比如:text1有三行文字,内容是:
北京
上海
天津
…………
text2也有三行文字,内容是:
1号
2号
3号
合并后的文本框text3的内容应该是:
北京:1号
上海:2号
天津:3号
…………
问题补充:一定要用vb代码来实现
好代码将加分!!! 展开
北京
上海
天津
…………
text2也有三行文字,内容是:
1号
2号
3号
合并后的文本框text3的内容应该是:
北京:1号
上海:2号
天津:3号
…………
问题补充:一定要用vb代码来实现
好代码将加分!!! 展开
2个回答
展开全部
超级简单
1、添加三个text控件,text1 text2和text3,并且把MultiLine属性设为True,注意:三个都要设为true
2.添加一个command控件,command1
3、复制代码进去运行
Private Sub Command1_Click()
Dim temp1() As String
Dim temp2() As String
temp1() = Split(Text1.Text, vbCrLf)
temp2() = Split(Text2.Text, vbCrLf)
For i = 0 To UBound(temp1)
Text3.Text = Text3.Text & temp1(i) & ":" & temp2(i) & vbCrLf
Next i
End Sub
Private Sub Form_Load()
Text1.Text = "北京" & vbCrLf & "上海" & vbCrLf & "天津"
Text2.Text = "1号" & vbCrLf & "2号" & vbCrLf & "3号"
Command1.Caption = "合并"
End Sub
1、添加三个text控件,text1 text2和text3,并且把MultiLine属性设为True,注意:三个都要设为true
2.添加一个command控件,command1
3、复制代码进去运行
Private Sub Command1_Click()
Dim temp1() As String
Dim temp2() As String
temp1() = Split(Text1.Text, vbCrLf)
temp2() = Split(Text2.Text, vbCrLf)
For i = 0 To UBound(temp1)
Text3.Text = Text3.Text & temp1(i) & ":" & temp2(i) & vbCrLf
Next i
End Sub
Private Sub Form_Load()
Text1.Text = "北京" & vbCrLf & "上海" & vbCrLf & "天津"
Text2.Text = "1号" & vbCrLf & "2号" & vbCrLf & "3号"
Command1.Caption = "合并"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询