按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
lblLast）
refNames。Visible = False
lboxStudents。Visible = False
'populate the Year bo box 填充Year复合框
With Me。cboxYear
。AddItem 〃1〃
。AddItem 〃2〃
。AddItem 〃3〃
。AddItem 〃4〃
End With
' populate the Major bo box 填充Major复合框
With Me。cboxMajor
。AddItem 〃English〃
。AddItem 〃Chemistry〃
。AddItem 〃Mathematics〃
。AddItem 〃Linguistics〃
。AddItem 〃puter Science〃
End With
' populate a bo box with grades 填充得分复合框
With Me。cboxGrade
208
… 页面 225…
。AddItem 〃A〃
。AddItem 〃B〃
。AddItem 〃C〃
。AddItem 〃D〃
。AddItem 〃F〃
End With
'display date in the lblDate label control 在lblDate标签里显示日期
Me。lblDate。Caption = Me。Calendar1。Value
'activate the first tab in the TabStrip control 激活TabStrip控件的第一页
Me。TabStrip1。Value = 0
'activate the SSN text box 激活SSN文字框
Me。txtSSN。SetFocus
End Sub
3。 输入两个过程来控制选项按钮（optNew_Click和optActive_Click）
Private Sub optNew_Click（）
lblNames。Visible = False
refNames。Visible = False
lboxStudents。Visible = False
Me。MultiPage1（1）。Enabled = False
If lboxStudents。RowSource 《 》 〃〃 Then
Me。txtSSN。Text = 〃〃
Me。txtLast。Text = 〃〃
Me。txtFirst。Text = 〃〃
Me。cboxYear。Text = 〃〃
Me。cboxMajor。Text = 〃〃
Me。txtSSN。SetFocus
End If
Me。txtSSN。SetFocus
End Sub
Private Sub optActive_Click（）
lblNames。Visible = True
refNames。Visible = True
refNames。SetFocus
If lboxStudents。RowSource 《 》 〃〃 Then
lboxStudents。Visible = True
Call lboxStudents_Change
End If
End Sub
4。 输入过程lboxStudents_Change和refNames_Change的代码，这些控制Students页上面的RefEdit
和列表框控件：
Private Sub lboxStudents_Change（）
indexPlus = lboxStudents。ListIndex ＋ 3
With ActiveWorkbook。Worksheets（〃Sheet2〃）
Me。txtSSN。Text = Range（〃A〃 & indexPlus）。Value
Me。txtLast。Text = Range（〃B〃 & indexPlus）。Value
Me。txtFirst。Text = Range（〃C〃 & indexPlus）。Value
Me。cboxYear。Text = Range（〃D〃 & indexPlus）。Value
Me。cboxMajor。Text = Range（〃E〃 & indexPlus）。Value
Call TabStrip1_Change
Me。MultiPage1（1）。Enabled = True
209
… 页面 226…
End With
End Sub
Private Sub refNames_Change（）
lboxStudents。RowSource = refNames。Value
lboxStudents。ListIndex = 0
lboxStudents。Visible = True
Call lboxStudents_Change
End Sub
5。 输入代码来控制命令按钮OK（cmdOK_Click）和Cancel（cmdCancel_Click）：
Private Sub cmdOK_Click（）
If Me。optNew。Value = True Then
Me。Hide
ActiveWorkbook。Sheets（〃Sheet2〃）。Select
r = ActiveSheet。UsedRange。Rowsunt
nr = r ＋ 1
Range（〃A〃 & nr）。Value = Me。txtSSN。Text
Range（〃B〃 & nr）。Value = Me。txtLast。Text
Range（〃C〃 & nr）。Value = Me。txtFirst。Text
Range（〃D〃 & nr）。Value = Me。cboxYear。Text
Range（〃E〃 & nr）。Value = Me。cboxMajor。Text
Me。txtSSN。Text = 〃〃
Me。txtLast。Text = 〃〃
Me。txtFirst。Text = 〃〃
Me。cboxYear。Text = 〃〃
Me。cboxMajor。Text = 〃〃
Me。txtSSN。SetFocus
'redisplay the form
Me。Show
Else
MsgBox 〃This control is currently unavailable。〃
End If
End Sub
Private Sub cmdCancel_Click（）
Unload Me
Set Students = Nothing
End Sub
6。 输入过程cboxGrade_Click来控制位于Exams页上的Grade复合框：
Private Sub cboxGrade_Click（）
YesNo = MsgBox（〃Enter the grade in the worksheet？〃； _
vbYesNo； 〃Modify Grade〃）
If YesNo = 6 Then
Me。lblGrade。Caption = cboxGrade。Value
Select Case TabStrip1。Value
Case 0
Range（〃F〃 & indexPlus）。Value = Me。lblGrade。Caption
Case 1
Range（〃H〃 & indexPlus）。Value = Me。lblGrade。Caption
Case 2
Range（〃J〃 & indexPlus）。Value = Me。lblGrade。Caption
Case 3
210
… 页面 227…
Range（〃L〃 & indexPlus）。Value = Me。lblGrade。Caption
End Select
cboxGrade。Value = 〃〃
End If
End Sub
7。 输入过程Calendar1_Click，如下所示：
Private Sub Calendar1_Click（）
YesNo = MsgBox（〃Enter the date in the worksheet？〃； vbYesNo； _
〃Modify Date〃）
If YesNo = 6 Then
Me。lblDate。Caption = Calendar1。Value
Select Case TabStrip1。Value
Case 0
Range（〃G〃 & indexPlus）。Value = Me。lblDate。Caption
Case 1
Range（〃I〃 & indexPlus）。Value = Me。lblDate。Caption
Case 2
Range（〃K〃 & indexPlus）。Value = Me。lblDate。Caption
Case 3
Range（〃M〃 & indexPlus）。Value = Me。lblDate。Caption
End Select
End If
End Sub
8。 输入过程TabStrip1_Change和MultiPage1_Change，如下所示：
Private Sub TabStrip1_Change（）
indexPlus = lboxStudents。ListIndex ＋ 3
With ActiveWorkbook。Worksheets（〃Sheet2〃）
Select Case TabStrip1。Value
Case 0
' English
Me。lblGrade。Caption = Range（〃F〃 & indexPlus）。Value
Me。lblDate。Caption = Range（〃G〃 & indexPlus）。Value
Case 1
'French
Me。lblGrade。Caption = Range（〃H〃 & indexPlus）。Value
Me。lblDate。Caption = Range（〃I〃 & indexPlus）。Value
Case 2
'Math
Me。lblGrade。Caption = Range（〃J〃 & indexPlus）。Value
Me。lblDate。Caption = Range（〃K〃 & indexPlus）。Value
Case 3
'Physics
Me。lblGrade。Caption = Range（〃L〃 &