动态加载控件方法、事件与类模块

一指禅62

动态加载控件方法、事件与类模块.zip (15.37 KB, 下载次数: 768)

2014-2-15 14:31 上传

点击文件名下载附件

补充内容 (2014-3-30 14:52):
“移除控件”代码修改在 2 楼

一指禅62

增加一句代码：    Set co = Nothing

1. Private Sub 移除控件_Click()
   
2.     Dim i As Integer
   
3.     For i = 5 To 1 Step -1
   
4.         Me.Controls.Remove "Label" & i
   
5.         Me.Controls.Remove "Text" & i
   
6.         Me.Controls.Remove "TxtCount" & i
   
7.         Me.Controls.Remove "TxtSum" & i
   
8.     Next
   
9.     CmdSave.Enabled = False
   
10.     Set co = Nothing
    
11. End Sub

复制代码

wxhnr

你好，下面两行是不是效果一样?因为我删除其中一行没发现问题。
Private Sub 加载控件_Click()
....
....
            Set myTxt.iText = Me.Controls("Text" & i)
            myTxt.Attech txtBox
...
...
End Sub

一指禅62

wxhnr 发表于 2014-2-27 13:34
你好，下面两行是不是效果一样?因为我删除其中一行没发现问题。
Private Sub 加载控件_Click()
....

我也是才学类模块，囫囵吞枣的，对您的提醒我将慢慢消化。

请不吝赐教。

一指禅62

补充一个






类模块学习.zip (10.53 KB, 下载次数: 284)

2014-10-26 16:30 上传

点击文件名下载附件

一指禅62

1. Rem 类模块 Cls_Text 代码
   
2. 
   
3. Public WithEvents iText As msforms.TextBox
   
4. 
   
5. Public Sub Attech(myText As msforms.TextBox) '接受外部控件到iText中
   
6.    Set iText = myText
   
7. End Sub
   
8. 
   
9. Private Sub iText_Change() '文本框内容变化时，计算相应合计金额
   
10.    Dim myText As Control
    
11.    Dim S As Single, K As Single
    
12.    For Each myText In UserForm1.Controls
    
13.       If myText.Tag = "S" Then
    
14.          S = S + Val(myText.Text)
    
15.       ElseIf myText.Tag = "K" Then
    
16.          K = K + Val(myText.Text)
    
17.       End If
    
18.    Next
    
19.    If iText.Tag = "S" Then UserForm1.Label1.Caption = S
    
20.    If iText.Tag = "K" Then UserForm1.Label2.Caption = K
    
21.    UserForm1.Caption = "实发金额：" & S - K & "元"
    
22. End Sub

复制代码

一指禅62

1. 
   
2. rem 窗体代码
   
3. 
   
4. Dim t(1 To 11) As Cls_Text '声明文本框控件数组
   
5. 
   
6. Private Sub UserForm_Initialize()
   
7.    Dim Ctl As Control, n As Integer
   
8.    For Each Ctl In Me.Controls
   
9.       If Ctl.Name Like "TextBox*" Then '文本框加入数组，设置其属性
   
10.          n = n + 1
    
11.          Set t(n) = New Cls_Text
    
12.          t(n).Attech Ctl
    
13.       End If
    
14.    Next
    
15. End Sub
    

复制代码

tianyk

学习……学习

tianyk

学习……学习

yr1clx

根本就下载不到附件哦，鼠标移动过去就被挡住了，不能点！！怎么这样呢，这里是学习用的还是商业用的啊···新手求学习，希望得到大家帮助