急！！！如何在VB窗体中用代码添加控件？？

VB > VB基础类
收藏 回复
[问题点数：100分，结帖人fanswer2000]
更多帖子
私信 空间 博客
fanswer2000
等级
本版专家分：5
结帖率 100%
急！！！如何在VB窗体中用代码添加控件？？

想做一个画图程序!!
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
lihonggen0
等级
本版专家分：123367
勋章
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
在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
End If
End Sub
Private Sub ctlCommand_Click()
ctlText.Text = "你点击的是控制按钮"
End Sub
Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
'当点击树形控件的某一个条目后，在ctlText中显示条目。
If Info.Name = "Click" Then
ctlText.Text = "你点击的条目是 " & _
ctlDynamic.object.selecteditem.Text
End If
End Sub
Private Sub Form_Load()
Dim i As Integer
' 将树形控件的许可证信息加入到许可证集合中
' 如果许可证已经存在，则会返回错误信息732
Licenses.Add "MSComctlLib.TreeCtrl"
' 在Form中动态的加入一个树形控件，如果你想树形控件建立到不同的
'容器中，象一个Frame控件或者PictureBox控件，你只要将Controls.Add
'函数的第三个参数改为特定的容器名就可以了
Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", _
"myctl", Form1)
'设置树形控件的位置和尺寸
ctlDynamic.Move 1, 1, 2500, 3500
'在树形控件中加入10个节点
For i = 1 To 10
ctlDynamic.object.nodes.Add Key:="Test" & Str(i), _
Text:="Test" & Str(i)
ctlDynamic.object.nodes.Add Relative:="Test" & Str(i), _
Relationship:=4, Text:="TestChild" & Str(i)
Next i
'使树形控件可见
ctlDynamic.Visible = True
'加入一个TextBox
Set ctlText = Controls.Add("VB.TextBox", "ctlText1", Form1)
'设置TextBox的位置和尺寸
ctlText.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
1, 2500, 100
'将textBox的背景色设置为蓝色并将前景色设置为白色
ctlText.BackColor = vbBlue
ctlText.ForeColor = vbWhite
'使TextBox可见
ctlText.Visible = True
'加入一个CommandButton
Set ctlCommand = Controls.Add("VB.CommandButton", _
"ctlCommand1", Form1)
'设置CommandButton的位置和尺寸
ctlCommand.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
ctlText.Height + 50, 1500, 500
'设置CommandButton的标题
ctlCommand.Caption = "点击"
'使CommandButton可见
ctlCommand.Visible = True
'建立一个删除按钮
Set ctlCommandDel = Controls.Add("VB.CommandButton", _
"ctlCommand2", Form1)
ctlCommandDel.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
ctlText.Height + 650, 1500, 500
ctlCommandDel.Caption = "删除所有控件"
ctlCommandDel.Visible = True
End Sub
运行上面的程序，可以看到程序在窗口中加入了三个VB标准控件：一个TextBox和两个
CommandButton还加入了一个扩展的ActiveX控件：树形控件。这些控件还可以响应消息，
点击树形控件中的项目或者“点击”按钮就可以在文本框中显示相应的内容。点击“删除
所有控件”按钮就可以删除加入的所有控件了。
通过上面的程序可以看到，通过WithEvents可以定义带事件相应的控件，对于标准的VB
控件（例如CommandButton、TextBox等）可以通过VB.XXX来定义，其中XXX是控件的类的名称
，而对于扩展的ActiveX控件，可以通过VBControlExtender来定义，在装载扩展控件以前，
首先要使用Licenses对象加入控件的许可证信息。
只看TA 引用 举报 #1得分 50
更多帖子
私信 空间 博客
lihonggen0
等级
本版专家分：123367
勋章
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
'先有form1上加一个text1 (0)

Private Sub Form_Load()
    For i = 1 To 10
        Load Text1(i)
        Text1(i).Top = 400 * i + 200
        Text1(i).Left = 20
        Text1(i).Visible = True
    Next
End Sub
只看TA 引用 举报 #2得分 0
更多帖子
私信 空间 博客
lihonggen0
等级
本版专家分：123367
勋章
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
http://expert.csdn.net/Expert/FAQ/FAQ_Index.asp?id=68250
只看TA 引用 举报 #3得分 0
更多帖子
私信 空间 博客
cringer
等级
本版专家分：50
object.Add (ProgID, name, container)
====================================
参数说明：
Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。 
ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。
    例如，CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下，Visual Basic 
将显示一个包括正确 ProgId 的错误信息。 
name 必要的。一个字符串，用来标识集合的成员。 
container 可选的。一个对象引用，它指定控件的容器。如果没有指定或为NULL，缺省值为 Controls 集合所属的容器。通过指定该参数，可
    以把一个控件放置在任何现存的容器控件（如 Frame 控件）中。用户控件或 ActiveX 文档也可以作为一个容器。 
================================
举例： //在picture1上面添加一个commandbutton
Private Sub Form_Load()
   Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1
   With Form1!cmdOk
      .Visible = True
      .Width = 500
      .Caption = "确认(&Y)"
   End With
End Sub
只看TA 引用 举报 #4得分 50
更多帖子
私信 空间 博客
xionglibin
等级
本版专家分：449
上面的都能做到﹐
不過你用VBA 中的屬性也可以做到﹐
如使用 
set obj=CreateObject("VBA.commandbox") 等方法就能產生一個控件了
只看TA 引用 举报 #5得分 0
收起
收藏 回复
fanswer2000

等级：

关注 私信 TA的帖子
vb.net 类中属性中的事件 并向新加窗体中用代码添加控件

Public Class Form1 WithEvents s As New Student Dim ss As New Student Private Sub s_Fail(ByVal frm As Form, ByVal str As String) Handles s.Fail Dim g As Graphics = frm.CreateG

VB讲课笔记06：窗体与常用控件

VB讲课笔记06：窗体与常用控件 一、窗体设计 窗体是VB中最基本的对象，是应用程序的基本组成部分，是菜单栏、工具栏和控件等对象的容器，是应用程序与用户交互的窗口或对话框。窗体设计是整个VB应用程序设计的基础...

请问怎么给vb中作为启动的标准模块summain过程添加vb内置控件timer实现界面的双显？

请问怎么给vb中作为启动的标准模块summain过程添加vb内置控件timer实现界面的双显？说废话不解决问题的垃圾混混请绕道！

JAVA上百实例源码以及开源项目源代码

Java局域网通信——飞鸽传书源代码 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java...

vb.net 教程 3-10 窗体编程 datagridview控件 5 选择多行

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。 DataGridView.SelectionMode 属性指示如何选择单元格，值为 DataGridViewSelectionMode 值之一： 1、...

vb之窗体关闭事件

QueryUnload 事件  在一个窗体或应用程序...如果没有窗体取消 QueryUnload 事件，该 Unload 事件首先发生在所有其它窗体中，然后再发生在 MDI 窗体中。当一个子窗体或一个 Form 对象关闭时，在那个窗体中的 QueryUnloa

vb.net控件

vb.net 的 Label 控件 label(标签)控件用于显示文本，是设计应用程序界面时经常要用到的控件之一， 主要是用于显示其他控件名称，描述程序运行状态或标识程序运行的结果信息等 等，响应程序的事件或跟踪程序运行的...

C#基础教程-c#实例教程，适合初学者

C#基础教程-c#实例教程，适合初学者。 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。...

vb.net 教程 3-4 窗体编程 公共控件9 ListView 4

上一节谈到了如何编程一个类似于资源管理器显示“详细信息”时的窗口，代码中用了两个列标题“操作名称”和“操作说明”。 那么代码中ListViewItem的Text属性对应的是第一个列标题， 第一个ListViewSubItem的Text...

picturectrl控件中加载图片并显示_VBA窗体与控件(一)

第六章 窗体与控件6.1窗体基本知识6.1.1创建用户窗体创建用户窗体的方法是：在VBA编辑器窗口中执行“插入”-“用户窗体”，就可以插入一个默认名为UserForm1的用户窗体，同时弹出窗体控件工具箱，用户要以在窗体中...

VB控件属性大全

1.01、窗体(FORM)的常用属性... 21.02、标签控件(Lable)的常用属性... 71.03、文本框控件(TextBox)的常用属性... 91.04、框架控件(Frame)的常用属性... 131.05、命令按钮控件(CommandButton)的常用属性... 151.06、...

VB 单选按钮、复选按钮和框架控件

框架Frame控件可以用来对窗体上的控件进行分组。在同一框架下的单选按钮有且只能被选中一项，而复选按钮则可以选择多项，也可以一项都不选择。下面来介绍这3个控件的常用属性和基本用法。 单选按钮Option 单选按钮的...

如何在窗体之间通讯的几种方法 ？ VB.NET方案

在面向过程的程序中，我们可以通过窗体名来访问其他窗体中控件或者数据，但是在面向过程中却稍有不同，面向过程显示了它的优点。  假设一个Window解决方案中，有两个窗体Form1和Form2，Form1窗体中有一个...

窗体方法VB.NET设置控件和窗体的显示级别

常正情况下Mdi子窗体只能表现到父窗体的容器中，但是在设计时父窗体常常不能参加基本的互交控件，为了够能参加按钮、文本框等的基本控件我们常常在父窗体的容器内参加能作为容器的控件如Panel、PictureBox等的容器...

vb动态创建控件

熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有...

VB用户控件制作讲解与实例-----用户控件属性或函数的描述信息如何写入程序

[网摘]VB用户控件制作讲解与实例 发表:uu_ovo 阅读: 3185次 关键字：不详 字体:[大 中 小] 制作用户控件，主要就是进行以下三项代码编写工作：1.定义控件的属性、事件和方法，其中属性是最常使用的。2....

VB中用Oracle数据控件访问Oracle

系统环境： 　1、操作系统：Windows 2000 Server 　2、数据库：　Oracle 8i R2 (8.1.6) for NT 企业版 　3、开发工具：Visual Basic 6.0 中文版 　连接方法： 　一、安装 Oracle 8i R2 (8.1.6) ...

vb 新窗体执行原窗体函数_VB中的模块都有哪些？您知道吗

我们在VB开发环境中设计好用户界面后，就要开始编写程序代码以响应各种事件的发生并操作和控制程序中的各种对象，从而实现应用程序的各项功能。 事件驱动机制 Visual Basic是事件驱动的程序设计语言。其设计思想是...

VB 纯代码实现Timer控件的功能

方法1：　用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程...

VBA运行时窗体动态创建控件.xlsm

在VBA编写的程序中，如果可以在运行时动态创建控件无疑是非常有用的，因为有些控件是无法预先得知的，这样就更必须在运行时动态创建然后设置相应控件属性。控件的名称如下： Forms.Checkbox.1（复选框） Forms....

如何在窗体之间通讯的几种方法 ？ VB.NET方案 .

在面向过程的程序中，我们可以通过窗体名来访问其他窗体中控件或者数据，但是在面向过程中却稍有不同，面向过程显示了它的优点。  假设一个Window解决方案中，有两个窗体Form1和Form2，Form1窗体中有一个...

checkbox控件的checked属性作用是_VB常用控件属性讲解单选按钮、复选框总结

1单选按钮、复选框做为VB编程中的选择性控件，在实际程序中有着广泛的应用，所以熟练掌握其特殊属性的用法就很重要了！单选按钮、复选框的实际应用图复选框(CheckBox)控件属性说明Name复选框控件的名称Alignment设置...

关于VB中Data控件的使用

关于VB中Data控件的使用2008年04月30日 星期三 在控件箱中的Data控件是VB用于数据库操作的控件，双击Data控件或单击后在体上拖动出控件的大小，都可以看到Data控件的外观　1.Data控件的常用属性　（1）Connect属性　...

vb6.0中如何引用Microsoft Excel 16.0 Object Library？

Microsoft Excel 16.0 Object Library是什么？ 将程序中的表格数据导入到Excel的“工具” 为什么是添加时是“引用”而不是“部件”？... 在工具栏能看到控件图标 引用库文件内的函数，看不见 ...

在VB.NET中实现拖放操作

在VB.NET中实现拖放操作 　绪论 　Windows用户一般分为两类：一类习惯用键盘操作，一类习惯用鼠标操作。程序员们在编程时一般会提供快捷键(在命令或字母中加下划线)或快捷方式(用CTRL加字母的组合)来...

VS C# 怎样一次性给多个COMBOBOX控件添加ITEMS？

就像在VB6.0中应用控件数组给相同的控件赋值一样，VS中应该怎样写？

Activiti 工作流入门到大神

什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) 什么是流程、工作流作用、Activiti背景简介、Activiti流程设计器安装、Activity环境搭建、通过HelloWorld掌握 Activiti操作流程的步奏、常见API使用、流程部署管理(发布流程、查看流程定义、删除流程、查看流程附件)、流程实例管理(启动流程、查看任务、认领任务、办理任务、查看流程状态) QQ:362969068

奥特曼大全及关系明细.pdf

此文档有详细奥特曼大全及关系明细

抢茅台脚本以及使用方法

抢茅台的方法，里面有脚本文件和python的安装包，小白可以学习使用，大佬绕行吧，哈哈

2020美赛题目的ADE.zip

2020年2月份美赛发布的题目ADE，是原始文件，包含有原题目给的数据等。 pdf格式全英，需要的朋友们直接下载就可以啦，里面的东西没有动过，需要翻译可以看我的博客/

相关热词 c#调用java程序 疯狂c# c#多线程处理文本 c# 处理二进制数据类型 c# 如何写文件 c#如何判断程序已打开 c# 标题大小 c# socket 网卡 c#操作sql c#遍历tree