UC知道我想用VB实现以下功能，代码该怎么写，高手指教！！
来源：百度知道 编辑：UC知道 时间：2024/06/19 03:20:25
我想从一个文件中读出数据，然后按照读出的数据数设置多个复选按钮，其caption属性显示的是读出的数据内容，该怎么实现？？
比方说有个文件里面有如下内容 a b c 我想把a、b、c一个一个读出来然后建立3个复选按钮它们的captian分别为a、b、c该如何编写代码啊？？
我的代码是这样的，能看看有什么问题吗？谢谢
Dim i As Integer
Dim DataSel() As CheckBox
Dim AttrName As String
i = 1
Open App.Path & "\datas\" & DeleteData.Combo1.Text & "AN.txt" For Input As #1
Do Until EOF(1)
Line Input #1, AttrName
DataSel(i).Caption = AttrName
i = i + 1
Loop
Close 1
比方说有个文件里面有如下内容 a b c 我想把a、b、c一个一个读出来然后建立3个复选按钮它们的captian分别为a、b、c该如何编写代码啊？？
我的代码是这样的，能看看有什么问题吗？谢谢
Dim i As Integer
Dim DataSel() As CheckBox
Dim AttrName As String
i = 1
Open App.Path & "\datas\" & DeleteData.Combo1.Text & "AN.txt" For Input As #1
Do Until EOF(1)
Line Input #1, AttrName
DataSel(i).Caption = AttrName
i = i + 1
Loop
Close 1
很简单。
其核心是在设计界面要建立控件数组。
然后才是代码。
答案补充：
1、代码部分：Dim DataSel() As CheckBox 不要。因为创建控件数组应该是在设计时创建。
2、创建控件数组。A、先绘制一个CheckBox，默认名称为Check1。B、按下ctrl-c按钮，再按下ctrl-v按钮。会弹出对话框，问你是不是要建立控件数组，选“是”。C、这时两个CheckBox的名称分别成为check1（0）和check1（1）。
3、实现动态。
A、取得标题存入数组
Dim i As Integer
Dim 标题（） As String
Open App.Path & "\datas\" & DeleteData.Combo1.Text & "AN.txt" For Input As #1
i = 0
Do Until EOF(1)
ReDim Preserve 标题（i）
Line Input #1, 标题（i）
i = i + 1
Loop
Close 1
B、按照标题的数量来装载checkbox
for i=0 to ubound（标题）
if i>1 then load check1（i）
check1（i）.Visible=True
check1（i）.move 500，500*（i+1）
check1（i）.Caption=标题(i)
next i
有一个简单的办法
先创建一个多选按钮数组，在窗口上一一画好
然后，根据数据的个数，改变多选按钮 的 visible 属性即可