文本转成字符串

jp0077777 2009-08-10 12:40:03
有text1 text2...text50个文本框
我想把他们全部整合到成一个字符串,并且用空格分隔
就像是 s=text1.text & " " & text2.text & " " &..... & text50.text

但是我不想一个个text的输 那样要打50次text.text
有好的办法吗?
谢了
...全文
150 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
supergreenbean 2009-08-10
  • 打赏
  • 举报
回复
    Dim s As String
Dim i As Long
s = ""
For i = 1 To 50
s = s & Form1.Controls("Text" & CStr(i)).Text
Next

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧