VB 版 (精华区)

发信人: zhaowei (还珠格格), 信区: VisualBasic
标  题: 装扮你的VB应用程序3
发信站: 紫 丁 香 (Tue Jun  1 18:24:29 1999), 转信

         计数器（m-Pcounter）加1，然后向组件的m-Pages类中添加一
         个新成员。m-Pages类存储每个页按钮的标题、ToolTip（工具
         提示）文本以及各个页按钮的序号。然后它为新按钮装入新的
         图像和标签控件，并把它们按相对于前一个被选中的文件夹
         （图标页）的位置放在屏幕上。最后，它选中新加的页并调用
         redrawFolders方法显示它的内容（最初为空）：

         Public Function AddPage (pagename$,pagetip$) As Integer

         m-Pcounter = m-Pcounter + 1

         m-Pages.Add pagename$,pagetip$( m-Pcounter )

         Load imgPage (m-Pcounter)

         Load lblPage (m-Pcounter )

         With imgPage (m-Pcounter )

         .Move 0,imgPage (selfolder).Top - (.Height + 2 )

         .Visible = True

         End With

         With lblPage (m-Pcounter)

         .Caption = pagenames

         .Move lblpage (selfolder).Left,imgpage (m-Pcounter).Top
         + 3

         .Visible =True

         .Zorder 0

         End With

         selfolder = m-Pcounter

         redrawFolders

         AddPage = m-Pcounter

         End Function
--
----------------------
        %-%      身  人
      % * * %    不  在 
      %  .  % /   由 江
         \\--/     己湖              
-----------------------

※ 来源:．紫 丁 香 bbs.hit.edu.cn．[FROM: 202.118.243.47]