首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB 文本框数组有关问题

2012-03-31 
VB 文本框数组问题怎么点一下就把下面的内容显示到7个文本框内(文本框数组,多少个文本框需看下面有多少个

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

热点排行