在VB中动态添加可响应消息的控件

最新推荐文章于 2018-07-30 15:49:11 发布

原创

最新推荐文章于 2018-07-30 15:49:11 发布 · 681 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#vb #textbox #integer #扩展 #编程

本文介绍了一种在VB运行时动态添加和删除控件的方法，包括TextBox、CommandButton和TreeCtrl控件，并通过WithEvents关键字实现控件事件响应。示例代码详细展示了如何创建控件、设置其位置和大小、添加事件处理以及删除控件的操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在VB中动态添加可响应消息的控件
    在VB编程中，经常要根据不同的情况在运行时向窗口中添加或者删除控件，而各个控件还要
响应各种事件。在一般的情况下是首先在设计时将控件加入到窗口中，在它们的各个事件中写入
代码，然后将它们的Visible属性设置为False。在运行时再使控件显示出来，但是这样既不方便
同时也因为在设计时在窗口中加入太多的控件而使得程序的运行速度变慢。下面我向大家介绍一
种通过编程在运行时动态添加和删除控件的方法
    首先建立一个工程文件，然后在Form1中加入以下的代码：
    Dim WithEvents cmdMyCommand As VB.CommandButton
    Option Explicit
    '在下面的定义中，程序定义了一个TextBox控件、一个CommandButton控件
    '和一个附加控件。
    Dim WithEvents ctlDynamic As VBControlExtender
    Dim WithEvents ctlText As VB.TextBox
    Dim WithEvents ctlCommand As VB.CommandButton
    Dim WithEvents ctlCommandDel As VB.CommandButton
    Private Sub ctlCommandDel_Click()
        Dim i As Integer

        '将控件的许可证信息删除
        Licenses.Remove "MSComctlLib.TreeCtrl"
        If MsgBox("是否删除所有控件", vbYesNo) = vbYes Then
        For i = 1 To Form1.Controls.Count
            Controls.Remove 0
        Next i