在過程中用 SELECT CASE INDEX CASE 0 CASE 1 ... END SELECT
To ljren_t(立志) : 大哥举个例子,谢谢!
可以把程序分割成不同功能模塊,做成ACTIVEX或COM,在主程序中調用
TO Bardo(巴顿) : 我知道控件的问题,但我必须用这么多,可能会超过1K,有别的办法吗?
有些是不一定要 的 你可以 把他们拷下来 一图片的方式显示 比如label 动态加入Private Sub command1_click() '放一个 text1 设置他的 Index=0 Dim i As Integer For i = 1 To 100 Load Text1(i) '装入 Text1(i).Visible = True Text1(i).Top = i * 300 Next i End Sub Private Sub Command2_Click() Dim i As Integer For i = 5 To 100 Unload Text1(i) '卸装 Next i End Sub
每个控件都有index属性,把相同类型的控件起一样的名字,然后index不同就可以生成控件数组了,而且它们的事件过程是一个,只不过参数多了一个index.
SELECT CASE INDEX
CASE 0 CASE 1 ...
END SELECT
大哥举个例子,谢谢!
我知道控件的问题,但我必须用这么多,可能会超过1K,有别的办法吗?
比如label
动态加入Private Sub command1_click()
'放一个 text1 设置他的 Index=0
Dim i As Integer
For i = 1 To 100
Load Text1(i) '装入
Text1(i).Visible = True
Text1(i).Top = i * 300
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 5 To 100
Unload Text1(i) '卸装
Next i
End Sub
我不知道如何给分?如何结贴? 晕,点贴子边上的管理,右边那个