VC对VB的优势之界面编程

 

一：继承

实例一：在属性页控件中显示不同属性页

 

VB

VC

控件

TabStrip

Tab Control

VB实现原理：

           将不同的属性页设计在一个Picture控件数组中，通过对数组元素的

Visible属性值的设置来在点击一个属性页标题时显示一个属性页。控件的

初始化和属性页的处理多很麻烦。

 

VB实现代码：

Function creattabs()                         ‘创建TabStrip控件
               Dim intX As Integer
               TEST.TabStrp.Tabs.Clear
               Set reftbs = TEST.TabStrp.Tabs.Add(, , "Results")
               reftbs.ToolTipText = "The results of the test"
               Set reftbs = TEST.TabStrp.Tabs.Add(, , "Passed")
               reftbs.ToolTipText = "The report of passed products"
               Set reftbs = TEST.TabStrp.Tabs.Add(, , "Failed")
               reftbs.ToolTipText = "The report of failed products"
               For intX = 0 To 3
               With TEST.Picture1(intX)
                        .BorderStyle = 0
                        .Left = TEST.TabStrp.ClientLeft
                        .Top = TEST.TabStrp.ClientTop
                        .Width = TEST.TabStrp.ClientWidth
                        .Height = TEST.TabStrp.ClientHeight
                        .Visible = False
               End With
               Next intX
         End Function
         Function selecttabs()
               If tab1 Then
                          TEST.Picture1(0).Visible = True
                          TEST.Picture1(1).Visible = False
                          TEST.Picture1(2).Visible = False
                          TEST.Picture1(3).Visible = False
               End If
               If tab2 Then
                          TEST.Picture1(0).Visible = False
                          TEST.Picture1(1).Visible = True
                          TEST.Picture1(2).Visible = False
                          TEST.Picture1(3).Visible = False
              End If
              If tab3 Then
                          TEST.Picture1(0).Visible = False
                          TEST.Picture1(1).Visible = False
                          TEST.Picture1(2).Visible = True
                          TEST.Picture1(3).Visible = False
              End If
              If tab4 Then
                          TEST.Picture1(0).Visible = False
                          TEST.Picture1(1).Visible = False
                          TEST.Picture1(2).Visible = False
                          TEST.Picture1(3).Visible = True
              End If
  End Function

  

VC实现原理：

           利用面向对象编程的继承原理，将Page页从已经设计好的Dialog继

承过来，控件初始化时只需将属性页的指针指向对应的Dialog即可，属性

页的处理有Dialog自己来完成，向普通的Dialog处理一样。

 

VC实现代码：

       在头文件(.h)中声明：

               CPage1 m_Page1; // 出勤页
            CPage2 m_Page2; // 加班页
            CPage3 m_Page3; // 请假页
            CPage4 m_Page4; // 出差页
            CPropertySheet m_Sheet;

          在初始化中加入如下代码：

                m_Sheet.AddPage(&m_Page1); // 加第1页
                m_Sheet.AddPage(&m_Page2); // 加第2页
                m_Sheet.AddPage(&m_Page3); // 加第3页
                m_Sheet.AddPage(&m_Page4); // 加第4页
                m_Sheet.Create(this, WS_CHILD | WS_VISIBLE, 0); // 创建窗口
                m_Sheet.ModifyStyleEx (0, WS_EX_CONTROLPARENT); 
                m_Sheet.ModifyStyle( 0, WS_TABSTOP ); // 修改风格
                // 设置窗口位置
                m_Sheet.SetWindowPos( NULL, 0, 100, 0, 0, 
            SWP_NOZORDER | SWP_NOSIZE | SWP_NOACTIVATE );