VB:动态添加控件的示例

    在VB开发中,向窗口上添加控件有两种方法,一是设计阶段,一是运行阶段。比较简单的是在设计阶段完成的。但很多时候我们无法确定需要多少个控件,比如编写一个多页记事本,我们不可能在设计阶段就添加几十或上百个编辑框在窗口上,因为你不知道用户会打开多少个文件。

     在程序运行阶段用代码动态添加控件是一种常见的方法。如上面的例子中我们就需要动态添加编辑框,用户每打开一个文件,就动态添加一个编辑框。

     动态添加控件使用controls对象的add方法,格式:
     controls.add (添加控件的类名,控件的名称,所属的父窗体)

     下面是我写好的一个多页面记事本的框架。动态添加和引用部分我都已经写好了,没有写编辑功能的代码。如果你想拥有一个自己的记事本,可以下载后自己添加相关的代码,给自己打造一个适合自己的记事本。

 

 

动态添加、引用控件的相关代码

Private  Sub  mnuFileNew_Click ()     '新建
    Call  addtab
End  Sub

Private  Sub  addtab()      '新建时动态添加编辑控件
    Dim  a As MSWLess.WLText
    Dim  i As Integer
    Dim  hd As Long
    SSTab1.Tabs = SSTab1.Tabs + 1
    SSTab1.Tab = SSTab1.Tabs - 1
    i = SSTab1.Tabs
    SSTab1.TabsPerRow = i + 1
    Set  a = Me.Controls.Add("MSWLess.WLText""rtbox"  & CStr (i - 1), SSTab1)     '第3个参数指定了父窗体为SSTab1
    a.Move 60, 360, sw, sh
    a.Tag = i - 1
    Debug.Print  i, SSTab1.Tab, a.Tag, a.Name
    a.Text  = "新文件"  & CStr (i)
    SSTab1.Caption = "新文件"  & CStr (i)
    a.Visible = True
    a.MultiLine = True
    a.ScrollBars = wlVertical
    '  hd = SetParent(a.hWnd, SSTab1.hWnd)  ‘这里就可以不用指定父窗体了
End  Sub

Private  Sub  Form _Resize()  '同步缩放
    SSTab1.Width = Me.Width - 100
    SSTab1.Height = Me.ScaleHeight - 670
    sw = SSTab1.Width - 125
    sh = SSTab1.Height - 425
    sl = 60
    st = 360

    '---------------- 以下引用动态控件 ------------------------------
    Dim  i As Integer
    Dim  a As String
    i = SSTab1.Tab
    a = "rtbox"  & CStr (i)
    If  a = "rtbox0"  Then  a = "wltext1"
    Me.Controls(a).Move 60, 360, sw, sh

    '------也可以用下面的方法调整全部编辑框大小-------
    '    Dim b As Control
    '    For Each b In Me.Controls
    '      If TypeOf b Is WLText Then
    '         b.Move 60, 360, sw, sh
    '      End If
    '    Next
End  Sub

Private  Sub  SSTab1_Click (PreviousTab As Integer)
    Dim  i As Integer
    Dim  tb As WLText
    If  SSTab1.Tab = 0 Then
        WLText1.Move 60, 360, sw, sh
    End  If
    '--------------- 重要:根据名称引用动态控件 / 点击TAB标签时自动缩放当前页 -----------------
    Dim  a As Control
    For  Each  a In  Me.Controls
        If  TypeOf a Is  WLText Then
            If  a.Name = "rtbox"  & SSTab1.Tab Then
                a.Move 60, 360, sw, sh
            End  If
        End  If
    Next
End  Sub

Private  Sub  SSTab1_DblClick()     '双击隐藏当前文章
    Dim  i As Integer
    i = SSTab1.Tab
    If  i <> 0 Then  SSTab1.TabVisible(i) = False
End  Sub

Private  Sub  mnuFileOpen_Click ()         '打开文件
    Dim  sFile As String
    Dim  i As Integer
    Dim  a As String
    Dim  string1 As String

    With dlgCommonDialog
        .DialogTitle = "打开"
        .CancelError = False
        .Filter  = "所有文件 (*.*)|*.*"
        .ShowOpen
        If  Len (.FileName) = 0 Then
            Exit  Sub
        End  If
        sFile = .FileName
        Open dlgCommonDialog.FileName For  Input As #1
        string1 = StrConv(InputB$(LOF(1), 1), vbUnicode)
        '---------------- 以下引用动态控件 ------------------------------
        i = SSTab1.Tab
        a = "rtbox"  & CStr (i)
        If  a = "rtbox0"  Then  a = "wltext1"
        Me.Controls(a).Text  = string1
        '-------------------------------------------------------------------
        Close #1
    End  With
End  Sub


源码下载:

http://good.gd/762657.htm

展开阅读全文

没有更多推荐了,返回首页