[已解决]好几个文本模式执行同一代码，如何使用变量统一执行

蝶·舞

我在窗体中加载4个文本框（textbox1,textbox2,textbox3,textbox4），我想对这个文本框的change事件执行一个事件，能否实现只需一个change事件（然后对文本框序号利用变量）
变量文本框同一代码.zip (6.67 KB, 下载次数: 5)

2016-4-28 15:15 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-28 17:01

蝶·舞 发表于 2016-4-28 16:38
这样说吧，我四个文本框都是输入数值，label1是显示这四个文本框内数值的实时合计。
我正常的是每个文本 ...

'类模块代码
Public WithEvents myEvent As MSForms.TextBox
Private Sub myEvent_Change()
    Dim s As Double, ctl
    For Each ctl In UserForm1.Controls
        If ctl.Name Like "*TextBox*" Then s = s + Val(ctl.Text)
    Next
    UserForm1.Label1.Caption = s
End Sub

变量文本框同一代码3.rar (10.01 KB, 下载次数: 14)

2016-4-28 16:58 上传

点击文件名下载附件



因为类模块自己没学好，所以这应该是不规范的做法。
等学习好了。

跳转到最佳答案楼层

爱疯

'窗体代码
Dim txbs(1 To 4) As New 类1
Private Sub UserForm_Initialize()
    Dim i
    For i = 1 To UBound(txbs)
        Set txbs(i).myEvent = Me.Controls("Textbox" & i)
    Next i
End Sub


'类模块代码
Public WithEvents myEvent As MSForms.TextBox
Private Sub myEvent_Change()
    UserForm1.Label1.Caption = Me.myEvent.Text
End Sub

变量文本框同一代码2.rar (9.37 KB, 下载次数: 8)

2016-4-28 15:37 上传

点击文件名下载附件

爱疯

然后对文本框序号利用变量，不知是做啥

蝶·舞

爱疯 发表于 2016-4-28 15:39
然后对文本框序号利用变量，不知是做啥

这样说吧，我四个文本框都是输入数值，label1是显示这四个文本框内数值的实时合计。
我正常的是每个文本框设定一个事件，把4个文本框的和赋值给label1。四个文本框就是设了四个change事件，但实际上每个change里的代码应该是完全一致的，因此我想这四个change事件合并成一个。因为毕竟就四个文本框时，重复代码只要写四次，但如果我想汇总一二十的文本框时，感觉就有点烦琐了，所以想把所有的change事件整合在一起

爱疯

蝶·舞 发表于 2016-4-28 16:38
这样说吧，我四个文本框都是输入数值，label1是显示这四个文本框内数值的实时合计。
我正常的是每个文本 ...

'类模块代码
Public WithEvents myEvent As MSForms.TextBox
Private Sub myEvent_Change()
    Dim s As Double, ctl
    For Each ctl In UserForm1.Controls
        If ctl.Name Like "*TextBox*" Then s = s + Val(ctl.Text)
    Next
    UserForm1.Label1.Caption = s
End Sub

变量文本框同一代码3.rar (10.01 KB, 下载次数: 14)

2016-4-28 16:58 上传

点击文件名下载附件



因为类模块自己没学好，所以这应该是不规范的做法。
等学习好了。