请教控件集合控制的代码

slhenry · 发表于 2005-3-12 15:05

各位VBA高手：

我想请教以下问题：

1、窗体中的Coup1 至Coup20文本框，我想在输入时都检查是否已输入了7个数字。当然这可以逐个写入判断，但这样代码太多了，应该可以做一个集合的吧，但我不会。 2、窗体中的Coup1 至Coup20文本框，我想在输入时都检查是否之前已输入过了这个号码（在G 列至Z列中找）当然这也可以逐个写入判断，但应该可以做一个集合的吧，但我也不会。请帮忙

X9W2svwV.rar (13.24 KB, 下载次数: 42)

[此贴子已经被作者于2005-3-12 16:16:32编辑过]

slhenry · 发表于 2005-3-12 15:37

对不起，我在窗体中的第一个文本框中写的是“赠券号码”，应改为“消费单号码”。

来生缘 · 发表于 2005-3-12 15:41

哈哈，如何实现下面一半隐藏，而在combobox 里选择了数据后，下面半又显示出来的呀？有趣

slhenry · 发表于 2005-3-12 16:12

以下是引用来生缘在2005-3-12 15:41:00的发言： 哈哈，如何实现下面一半隐藏，而在combobox 里选择了数据后，下面半又显示出来的呀？有趣

这是用Userform的Height的变化来设置的。

slhenry · 发表于 2005-3-12 16:33

由于用集合Coup_Change的方法不会写，只能暂时在点击“确定”按钮时检查是否文本框里的号码在表中已存在了。

For i = 1 To Val(Text6.Value) Set c = Range("G:Z").Find(Me.Controls("Coup" & i).Text) If Not c Is Nothing Then MsgBox "表中已有你输入的赠券号码,请检查输入是否有误.", vbInformation Me.Controls("Coup" & i).SetFocus Exit Sub End If Next i 但我仍想知道集合设置的方法，这样就能在输入时就能发现是否有重复了。

aurora · 发表于 2005-3-12 18:53

这时候就可用对象类别模块

PgqgURxJ.rar (22.41 KB, 下载次数: 57)

slhenry · 发表于 2005-3-14 09:13

文件打不开，显示“模块未找到”，可否重新上传文件？或其他朋友帮忙。

谢谢！

aurora · 发表于 2005-3-14 10:03

1. create a class and in the class module:

Option Explicit

Public WithEvents txtF As MSForms.TextBox

Private Sub txtF_Change() MsgBox Me.txtF.Name & " is changed!" End Sub

2. in userform1 module add the code below:

Dim coupCls(1 To 20) As New Class1 Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To 20 Set coupCls(i).txtF = Me.Controls("coup" & i) Next End Sub

jack.zhou · 发表于 2005-3-14 10:06

又一位高手

jack.zhou · 发表于 2005-3-14 10:25

做了个例子

lkmGKV4h.rar (18.43 KB, 下载次数: 142)

		自动登录	找回密码
密码			免费注册