Question

vb中关于标签和文本框的操作

如何将一段文字导入到几个文本框或者标签里面，要求文字上下两个文本框中可以连接起来

若以下回答无法解决问题，邀请你更新回答

Answer 1

用TextWidth函数：
添加一个控件数组，名称为Text1，数量自定。
Private Sub Form_Load()
ss = "中新网6月28日电(王忠会) 综合报道，2011年度菲美“海上联合战备训练演习”(CARAT)将于今日举行，演习将持续到7月8日，共11天。目前3艘美国海军舰艇已抵达菲律宾西南部岛屿省份巴拉望，菲律宾4艘海军舰艇将与这3艘美军舰艇一起参加演习。有分析称，菲律宾为在近期的南海争端中“壮胆”，积极寻求美国支持；而美国为给“重返亚洲”寻找契机，也采取了主动的态度。面对近来持续紧张的南海局势，菲律宾军方官员反复强调称，这次军演“与南海问题无关”。"
For i = 0 To Text1.Count - 1
For j = 1 To Len(ss)
If Me.TextWidth(Left(ss, j)) >= Text1(i).Width Then Exit For
Next
If j = 1 Then Exit For
Text1(i) = Left(ss, j - 1)
ss = Mid(ss, j)
Next
End Sub

追问

谢谢，不过我要做的那个效果不是用窗体装入事件，而是用一个按钮（问题中我给了个图片），点击按钮然后就能将存在电脑上的文本文件导入到文本框里（也就是用“打开对话框”及CommonDialog控件），文本框不是一个（不知道可不可以创建组）而是多个，而一个文本框只显示一行文字，超出部分显示在下一个文本框里。麻烦帮忙改一下。

追答

将Private Sub Form_Load()修改为Private Sub Command1_Click()即是在按钮单击
Text1为控件数组，可以为N个。上述代码实现的就是你所要的。
完整代码：添加一个Command、CommonDialog、Text（名为Text1，Index设为0，控件数组）
Private Sub Command1_Click()
CommonDialog1.ShowOpen
ff = CommonDialog1.FileName
If ff = "" Then Exit Sub
Open ff For Input As #1
Do While Not EOF(1)
Line Input #1, s
ss = ss & vbCrLf & s
Loop
Close #1
ss = Mid(ss, 3)
'以上为读取文件
'以下为显示内容
For i = 1 To Text1.Count - 1
Unload Text1(i)
Next
i = 1
Text1(0).Top = -240
Text1(0).Visible = False
Do While 1
For j = 1 To Len(ss)
If Me.TextWidth(Left(ss, j)) >= Text1(0).Width Then Exit For
Next
If j = 1 Then Exit Do
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 480
Text1(i).Visible = True
Text1(i) = Left(ss, j - 1)
ss = Mid(ss, j)
If ss = "" Then Exit Do
i = i + 1
Loop
Me.Height = Text1(i - 1).Top + Text1(i - 1).Height + 600
End Sub

追问

差不多可以了，但我还想问一下如果是想打开存在程序外的文件（也就是导入的文件不是在程序中预先写入的），我想个CommonDialog控件来打开外部文本框，不知道怎么结合起来用

追答

CommonDialog打开的就是外部文件