VB 文本框数组问题
怎么点一下就把下面的内容显示到7个文本框内(文本框数组,多少个文本框需看下面有多少个站点),每个文本框显示一个站名,如‘白湖亭’、‘桥南(福州市二医院)’。
白湖亭 - 三盛实业 - 三叉街新村 - 三叉街 - 汇达广场(南台路) - 桥南(福州市二医院) - 台江步行街
其实就是怎么隔开两个空格和一个‘-’,让每个站点名显示在一个文本内,站点数是可变的,也许10个也许40个
[解决办法]
dim b() as string
dim s as string
s="白湖亭 - 三盛实业 - 三叉街新村 - 三叉街 - 汇达广场(南台路) - 桥南(福州市二医院) - 台江步行街"
b=split(s," - ")
dim i as long
for i=0 to ubound(b)
text1(i)=trim(bi)
next
[解决办法]
假定你已经加载了足够多的文本框。
Dim s As String, b() As String, i as long
s = "白湖亭 - 三盛实业 - 三叉街新村 - 三叉街 - 汇达广场(南台路) - 桥南(福州市二医院) - 台江步行街"
b = Split(s, " - ")
For i = 0 To Ubound(b)
Text1(i) = b(i)
Text1(i).Visible = True
Next i
For i = Ubound(b) + 1 To Text1.Count
Text1(i).Visible = False
Next i