贝壳电子书 > 基础科学电子书 > excel_vba_编程教程(完整版) >

第69章

excel_vba_编程教程(完整版)-第69章

小说: excel_vba_编程教程(完整版) 字数: 每页4000字

按键盘上方向键 ← 或 → 可快速上下翻页,按键盘上的 Enter 键可回到本书目录页,按键盘上方向键 ↑ 可回到本页顶部!
————未阅读完?加入书签已便下次继续阅读!



设置TabStrip控件的最好方法是先添加它本身,然后放置其它的控件在里面。然而,如果已经有了 
控件在那里,那么你可以在它们上面画TabStrip控件,然后使用“移至底层”命令,将TabStrip 
控件放到Z…顺序的底层。  

                                                                                              
图10…17 外面的框架包含一个多页控件,而里面的框架则包含TabStrip控件  
Students and Exams自定义窗体允许你输入新数据,或者显示数据,就像在工作表里一样。图10…18 
显示了本窗体使用的工作表。  
1。 准备如图10…18所示的工作表  
2。 在工作表里添加按钮Display Form,并且给他指定宏DoStudents  
3。 在VB编辑器屏幕,在当前工程里添加新模块,并设置模块的Name属性为InfoStudents  
4。 在InfoStudents模块里输入下述过程DoStudents:  
    Sub DoStudents()   
         Students。Show   
    End Sub   

                                           207 

… 页面 224…

                                                                                                   
图10…18 Students and Exams应用程序的协助工作表  
5。 返回到工作表,并点击按钮Display Form,测试DoStudents过程  
6。 点击窗体右上角的关闭按钮,关闭窗体  

38。给窗体 Students and Exams 自定义窗体编写 VBA 过程  

自定义窗体Students and Exams包含很多VBA过程,显示在下面。这些过程的代码必须输入在窗体 
模块里面,双击窗体背景,激活窗体模块。  
1。 从代码窗口左上角的复合框里选择“(通用)”。右边的过程选择复合框应该显示“(声明)”,输 
    入下述变量声明:  
    'Declarations   
    Dim r As Integer   
    Dim nr As Integer   
    Dim indexPlus As Integer   
    Dim YesNo As Integer   
2。 输入过程UserForm_Initialize代码,初始化窗体  
    Private Sub UserForm_Initialize()   
          'select first page of the MultiPage control 选择多页控件的第一页  
          'page numbering begins from zero (0) 页码编号从0开始  
         Me。MultiPage1。Value = 0   
          'choose the New option button 选择New选项按钮  
         optNew。Value = True   
          'hide three controls on startup 启动时先隐藏三个控件  
          lblNames。Visible = False ‘前面应该将标签Name Range命名为lblNames(原文为 
          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。 输入过程TabSt

返回目录 上一页 下一页 回到顶部 0 0

你可能喜欢的