vb,文本框1的内容怎么像这个要求显示在文本框2?
文本框1的内容是这样的:编号1\编号2\编号3\编号4文本框2显示效果这样的:显示位置是在中间,不是左或右编号1编号2编号3编号4希望高手能列出代码.谢谢.方便学习...
文本框1的内容是这样的:
编号1\编号2\编号3\编号4
文本框2显示效果这样的:显示位置是在中间,不是左或右
编号1
编号2
编号3
编号4
希望高手能列出代码.谢谢.方便学习 展开
编号1\编号2\编号3\编号4
文本框2显示效果这样的:显示位置是在中间,不是左或右
编号1
编号2
编号3
编号4
希望高手能列出代码.谢谢.方便学习 展开
2个回答
展开全部
先将文本框2的.MultiLine属性设为True,然后使用如下代码:
Private Sub Command2_Click()
'Text2.MultiLine = True
Text2.Alignment = 2
Text2.Text = ""
Dim str() As String
Dim i As Long
str = Split(Text1.Text, "\")
For i = 0 To UBound(str)
Text2 = Text2 & str(i) & vbCrLf
Next
End Sub
Private Sub Command2_Click()
'Text2.MultiLine = True
Text2.Alignment = 2
Text2.Text = ""
Dim str() As String
Dim i As Long
str = Split(Text1.Text, "\")
For i = 0 To UBound(str)
Text2 = Text2 & str(i) & vbCrLf
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询