机房收费系统——对象集合的使用

最新推荐文章于 2024-07-04 16:54:26 发布

最新推荐文章于 2024-07-04 16:54:26 发布 · 79 阅读

本文介绍在收费系统中通过使用窗体集合和控件集合来简化对象操作的方法，包括如何批量最小化非当前窗体、清空除特定文本框外的所有文本框。这些技巧有助于减少代码量，提升开发效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

由于机房收费系统的窗体和控件比较多，有时需要对多个对象进行操作，这时用到对象集合就会省很多代码量。代码就是时间，时间就是生命啊。越精简，效率越好。

1、窗体集合

在收费系统中要实现一个功能:一个窗体打开的时候，其他打开的窗体要最小化。实现如下：

Private Sub Form_Activate() '使除了当前窗体和主页之外的窗体最小化 Dim frmCurr As Form For Each frmCurr In Forms If frmCurr.Name <> "frmMain" And frmCurr.Name <> "frmMainshow" And frmCurr.Name <> Me.Name Then frmCurr.WindowState = 1 End If Next frmCurr End Sub
2、控件集合

例如实现除了卡号之外其他的文本框全部清空：（两种方法）

法一：

'除了卡号，清空所有文本框 Dim myControl As Control For Each myControl In Me.Controls If TypeOf myControl Is TextBox Then If myControl.Name <> "txtCardno" Then myControl.Text = "" End If End If Next
法二：

Dim myControl As Control For Each myControl In Me.Controls If TypeName(myControl) = "TextBox" Then myControl.Text = "" End If Next