按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
optAmount。Value = False
txtRaise。Enabled = False
optPercent。Enabled = False
optAmount。Enabled = False
Frame2。Enabled = False
optHighlighted。Enabled = False
optAll。Enabled = False
223
… 页面 240…
cmdUpdate。Enabled = False
cmdDelete。Enabled = False
End Sub
当窗体启动时，UserForm_Initialize过程内部的语句只会激活需要的控件（见图11…3）。
图11…3 当窗体第一次启动时，UserForm_Initialize过程禁用某些控件
8。 输入下述过程cmdSave_Click将输入在窗体的数据转移到工作表：
Private Sub cmdSave_Click（）
If txtLastName。Value = 〃〃 Or txtFirstName。Value = 〃〃 Or _
txtSalary。Value = 〃〃 Then
MsgBox 〃Enter Last Name； First Name and Salary。〃
txtLastName。SetFocus
Exit Sub
End If
If Not IsNumeric（txtSalary） Then
MsgBox 〃You must enter a value for the Salary。〃
txtSalary。SetFocus
Exit Sub
End If
If txtSalary 《 0 Then
MsgBox 〃Salary cannot be a negative number。〃
Exit Sub
End If
Worksheets（〃Salaries〃）。Select
index = ActiveSheet。UsedRange。Rowsunt ＋ 1
lboxPeople。Enabled = True
'set and enter data into the CEmployees collection
With emp
Cells（index； 1）。Formula = emp。Id
。LastName = txtLastName
Cells（index； 2）。Formula = emp。LastName
。FirstName = txtFirstName
Cells（index； 3）。Formula = emp。FirstName
。Salary = CCur（txtSalary）
If 。Salary = 0 Then Exit Sub
Cells（index； 4）。Formula = emp。Salary
CEmployees。Add emp
End With
224
… 页面 241…
‘delete data from text boxes
txtLastName = 〃〃
txtFirstName = 〃〃
txtSalary = 〃〃
‘enable hidden controls
cmdEmployeeList。Value = True
cmdEmployeeList。Visible = True
cmdUpdate。Enabled = True
cmdDelete。Enabled = True
Frame1。Enabled = True
txtRaise。Enabled = True
optPercent。Enabled = True
optAmount。Enabled = True
Frame2。Enabled = True
optHighlighted。Enabled = True
optAll。Enabled = True
txtLastName。SetFocus
End Sub
cmdSave_Click过程以验证用户的姓、名和薪水文字框开始，如果用户输入了正确的数据，VBA
将当前工作表里的第一空白行赋予变量Index。下一条语句激活窗体的列表框控件。
当程序到达With emp结构时，类CEmployee的一个新示例便产生了。属性LastName，FirstName
和Salary的设置基于相应文字框里输入的数据，而ID属性则是由Class_Initialize事件过程
里的随机数语句产生的数字设置的。VBA每次看到对对象emp的引用时，它就会调用位于类模
块里的适当Property Let过程。
本章的最后部分示范如何一步一步地跟踪过程的运行，准确地查看什么时候运行属性过程。
设置完对象的属性值后，VBA将员工数据转移到工作表里。With emp结构里面的最后一条语句
将用户定义的对象emp添加到一个叫做CEmployee的自定义集合。
接着，VB将窗体文字框里的输入清除并且激活开始在UserForm_Initialize过程里关闭的命令
按钮。注意，本代码块的第一条指令：cmdEmployeeList。Value = True，该语句导致自动执
行cmdEmployeeList_Click过程，该过程附加于按钮Update List（顺便说一下，这是唯一用
户从未见到的控件）。该过程的代码如下所示。
9。 输入cmdEmployeeList_Click过程，如下所示：
Private Sub cmdEmployeeList_Click（）
lboxPeople。Clear
For Each emp In CEmployees
lboxPeople。AddItem emp。Id & 〃； 〃 & _
emp。LastName & 〃； 〃 & emp。FirstName & 〃； 〃 & _
Format（emp。Salary； 〃0。00〃）
Next emp
End Sub
cmdEmployeeList_Click过程附加在命令按钮Update List之上，该按钮由cmdSave_Click过程
控制，并且导致新的员工数据添加到列表框控件里。cmdEmployeeList_Click过程以清除列表
框的内容开始，然后用自定义集合CEmployees的成员来填充列表框。
225
… 页面 242…
图11…4 列表框控件显示员工数据，正如在自定义集合输入的一样
10。 输入下述过程cmdClose_Click：
Private Sub cmdClose_Click（）
Unload Me
End Sub
cmdClose_Click过程让你将用户窗体从屏幕上清除，并结束使用员工的自定义集合。当你再
次运行窗体，你输入的员工将会成为新集合CEmployees的成员。
11。 输入下述过程cmdDelete_Click：
Private Sub cmdDelete_Click（）
' make sure that an employee is highlighted in the
' list control
If lboxPeople。ListIndex 》 …1 Then
MsgBox 〃Selected item number： 〃 & lboxPeople。ListIndex
extract = CEmployees。Item（lboxPeople。ListIndex ＋ 1）。Id
MsgBox extract
Call FindId
MsgBox empLoc
Range（〃A〃 & empLoc）。Delete （3）
MsgBox 〃There are 〃 & CEmployeesunt & _
〃 items in the CEmployees collection。 〃
CEmployees。Remove lboxPeople。ListIndex ＋ 1
MsgBox 〃The CEmployees collection has now 〃 & _
CEmployeesunt & 〃 items。〃
cmdEmployeeList。Value = True
If CEmployeesunt = 0 Then
Call UserForm_Initialize
End If
Else
MsgBox 〃Click the item you want to remove。〃
End If
End Sub
过程cmdDelete_Click让你从自定义集合CEmployees里面清除员工。要删除员工的话，你必须
点击列表框的适当成员。当你点击一个列表成员（和按钮Delete Employee），
cmdEmployeeList_Click过程就自动执行。该过程确保更新列表框的内容。员工将同时从集合
和列表框里删除。如果列表框里面只有一个员工，那么VBA将调用过程UserForm_Initialize
在清除最后一个员工后将某些控件失活。cmdDelete_Click过程里有好几个MsgBox语句，让你
在做决定的时候检查列表框控件的内容。除了从自定义集合里删除员工之外，过程
226
… 页面 243…
cmdDelete_Click也必须从工作表的相应行删除员工信息。使用函数FindId可以很方便地在工
作表里找到员工数据（该过程的代码见下面的第12步）。该函数将要删除的行号返回到过程
cmdDelete_Click。
12。 输入下述函数过程：
Private Function FindId（）
Set ws = ActiveWorkbook。Sheets（〃Salaries〃）
startRow = ActiveSheet。UsedRange。Rowsunt ＋ _
1 … CEmployeesunt
endRow = ActiveSheet。UsedRange。Rowsunt
For Each cell In ws。Range（Cells（startRow； 1）； _
Cells（endRow； 1））
If cell。Value = extract Then
empLoc = cell。Row
FindId = empLoc
Exit Function
End If