-
等级
本版专家分：0结帖率 100% -
在查寻数据记录时，我想把查询的多条记录实时在反应在动态创建的Lable控件上，VB如何动态创建动态控件！最好有代码参考展开阅读全文
-
等级
本版专家分：589 -
VB6有一个新功能，可以动态添加控件，不用控件数组：
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
-
等级
本版专家分：10925勋章
-
-
蓝花
2007年7月 VB大版内专家分月排行榜第三
2006年8月 VB大版内专家分月排行榜第三
-
-
Dim x As Object
Set x = Me.Controls.Add("vb.Label", "Label1")
x.Visible = True
x.Caption = "label1"
-
等级
本版专家分：1036 -
Private Sub Command1_Click()
Dim a As Label
Dim i As Integer
For i = 0 To 9
Set a = Form1.Controls.Add("VB.Label", "Label" & i)
a.Visible = True
a.Move i * 500, i * 400, 1000, 300
a.BackColor = RGB(100, 150, 200)
a.Caption = "Label" & i
Next
End Sub
-
等级
本版专家分：83
-
先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件
-
等级
本版专家分：6722 -
up
-
等级
本版专家分：19622
-
先在窗体上添加一个Lable(0),记住是控件数组
然后用
load Lable(i)
label(i).visible=true
来动态添加控件
-
等级
本版专家分：35
-
给你个动态使用VSflexgrid控件的。
object.Add (ProgID, name, container)
参数说明
Object 必需的。一个对象表达式，其值是“应用于”列表中的一个对象。
ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类组成的。
例如，CommandButton 控件的 ProgID 是 VB.CommandButton。在ProgID 与对象浏览器中所显示的不一样的情况下，Visual Basic
将显示一个包括正确 ProgId 的错误信息。
name 必要的。一个字符串，用来标识集合的成员。
container 可选的。一个对象引用，它指定控件的容器。如果没有指定或为NULL，缺省值为 Controls 集合所属的容器。通过指定该参数，可以把一个控件放置在任何现存的容器控件（如 Frame 控件）中。用户控件或 ActiveX 文档也可以作为一个容器。
例子：
Private WithEvents vsFlexGrid As VBControlExtender
Private Sub Form_Load()
On Error GoTo ErrorHandler
' Licenses.Add "VSFlexGrid8.VSFlexGridDAO.1", ""
Set vsFlexGrid = frmShowAreaInfo.Controls.Add("VSFlexGrid8.VSFlexGridDAO.1", "vsFlexGrid", vsTab)
vsFlexGrid.Visible = True
vsFlexGrid.AllowSelection = False
vsFlexGrid.SelectionMode = flexSelectionByRow
' vsFlexGrid.AutoSizeMode = flexAutoSizeColWidth
' vsFlexGrid.AutoResize = True
' 表題列を中央寄せ
vsFlexGrid.Cell(flexcpAlignment, 0, 0, 0, vsFlexGrid.Cols - 1) _
= flexAlignCenterCenter
Call vsTab_Click
Exit Sub
ErrorHandler:
Call ShowErrorMessage("frmShowAreaInfo.Form_Load")
End Sub
Private Sub vsTab_Click()
On Error GoTo ErrorHandler
。。。。。。。。。。
Exit Sub
ErrorHandler:
Call ShowErrorMessage("frmShowAreaInfo.vsTab_Click")
End Sub
-
等级
本版专家分：90
-
要说的都让人说完了。汗。
-
等级
本版专家分：1682
-
现在VB高手咋这么多啊.
- VB.NET中动态添加控件数组
项目的需求又变了，我必须要在我的窗口上根据读取的文件不同添加不同的checkbox，我本以为vb.net和vb一样一定会有控件数组呢，结果网上的高手们都说vb.net是没有控件数组这个概念的。不过可以自己写一个类来实现...
- VB.Net程序设计：动态添加按钮或者控件
由于程序需要，在一个窗体中，读取数据库的记录内容，然后在界面中添加相应的按钮，供用户点击，响应对应的事件。 谷歌一下很多，看到： http://developer.51cto.com/art/200910/155672.htm ...
- vb动态创建控件
熟悉VB的朋友对使用ActiveX控件一定不会陌生，众多控件极大地方便了编程，但唯一的缺陷是不能动态加载控件，必须在设计时通过引用，将控件放置在窗体上。VB6.0已能够解决该问题，只是帮助中没有明确说明，并且没有...
- 在VB中创建和使用动态数组控件的方法总结
在VB中,MSHFEXGRID不支持文本框,为了解决这个问题,一般的方法就是通过一个文本框的显示和隐藏,并获得表格单元的坐标,来实现向MSHFLEXGRID中录入数据的,具体方法我记得在本博中有,就不说了,自己搜一下 今天要说的是...
- VB 动态添加控件及磁盘、目录、文件控件
VB 动态添加控件及磁盘、目录、文件控件 '1.让您知道如何动态添加控件,并安排控件位置 '2.Drive1 Dir1 与 File1 三个控件的互动关系 '3.为何要使用appdisk与dirpath 这两个变量,因为这应该算是VB的一个...
- VB动态添加控件
共同进步，欢迎下载，这个只是演示动态控件的添加，只供参考 想找个好的归宿.
- 有关vb动态添加控件的问题
我用vb做了一个服务器客户端一对多连接的软件，服务器里面是动态添加sock picture和label。但是实现的时候只有sock和picture会动态添加，label添加不了，为什么啊 Private Sub Listener_ConnectionRequest(ByVal ...
- VB动态添加控件的问题
之前曾经写过关于在VB6动态添加可执行代码的文章 http://blog.csdn.net/prsniper/article/details/5811251 也有关于纯代码设计程序的文章 http://blog.csdn.net/prsniper/article/detai
- 学习笔记：VB.net动态添加控件数组并传递事件
学习笔记：VB.net动态添加控件数组并传递事件控件数组和事件“中间人”动态添加控件 控件数组和事件 新建一个用户窗体，在定义控件数组时，不能用Withevnets来定义数组 即使可以，为每一个数组成员编写事件也是非常...
- VB窗体动态创建控件及控件事件
VB窗体动态创建较少，今天，试着弄一个，专为解答之用。 首先创建一个空白窗体，调整大小，修改名称，双击窗体进入代码编辑界面： Public Class VB解答专用窗体 Dim 数据列表 As DataGridView Dim 输入框 As ...
- VB 控件数组的动态建立 随时添加控件
控件数组的动态建立 设计窗体时建立控件组的第一个元素，并将其INDEX值赋为0 程序运行中使用LOAD方法，定义新的控件组元素，语法： LOAD 对象名（INDEX）值 使用UNLOAD方法可去除控件组中的元素。 INDEX值为...
- VB6批量动态控件数组事件响应
内容见贴: http://bbs.csdn.net/topics/392012989
- 【原创】vb.net 动态控件 事件添加
【原创】vb.net 动态控件 事件添加 添加选项后： 为实现动态添加，所需代码如下(共三个函数)： Private selectcond1 As String = "" '厂家 Private selectcond2 As String = "" '工程队 Private selectcond3 ...
- VB.NET 添加控件方法
“工具箱”——“所有Windows窗体”中单击右键，选择“选择项”...将该组件添加到指定的工具箱选项卡中然后在工具箱里面找 Windows Media Player 控件拉到form里面拉出来的控件就是AxWindowsMediaPlayerAxWindowsMe...
- vb动态加载控件
Option Explicit Dim con As New ADODB.Connection ...Dim moveX As Long '动态添加控件时控件移到X点 Dim moveY As Long '动态添加控件时控件移到Y点 Const mWidth = 1500 Const ConCount = 4 '表中查询条件的数量
- VB动态加载数组控件
intCMD = intCMD + 1 Load Me.Command1(intCMD) Me.Command1(intCMD).Caption = "我是按钮" + CStr(intCMD) Me.Command1(intCMD).Top = Me.Height / 2 + intCMD Me.Command1(intCMD).Left = Me.Width /
- VB编写ActiveX控件时动态添加控件到顶层UserControl
自己琢磨了许久，还是写出来了 遇到奇葩问题
- VB添加menu控件/菜单栏/工具条
一个意思。 自己很久以前写的工程，今天要编辑一下菜单栏，类似这种： ... 费了好半天脑子，完全忘记了之前是怎么做的了。...切换到对象窗口，单击工具-菜单编辑器。...另外要查看属性的话，上面那个步骤也可以，另外...
- VB.NET 中动态添加按钮并添加点击事件
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click Dim btn(10) As Button Dim count1 As Int16 For count1 = 0 To 10 btn(count1) = New Button ...
- 在vb.net中如何动态添加控件ovalshape（求大神帮帮小弟）
控件button在vb.net中可以动态添加，但是ovalshape却不能，如:（button的动态添加） dim mybutton as new button ...... mybutton.text=" ..." mybutton.location=new point(,) .... me.controls.add(mybutton...
- VB 动态添加删除控件汇总
概述 <br />在使用 Visual Basic 进行程序设计的过程中，如果能在运行时刻动态地创建和删除控件，可以极大地丰富界面的处理和变化。本人在设计网络监控系统时，需要在原理图与实物示意图间切换。切换的过程...
- VB在components中添加MSComm控件
VB中在components添加mscomm控件时为什么会显示“……could not be loaded”？？求解。。。谢谢
- vb6.0如何批量动态创建用户控件？
我想在form1上添加70个usercontrol1，并如图排列下去。我该如何去做？（最好附带源码，新手上路，还请多多指教哦））
- VB.NET自定义控件怎么添加自定义属性？
VB新手被指定做一个继承自TreeView的自定义控件， 要求加上DataSource属性存放sql语句， 让这个自定义控件可以从数据库读取数据绑定， 请问怎么给它添加自定义属性？ 请大佬解释详细一下，VB新手有很多不懂，感谢！ ...
- 动态添加控件及删除
方法1： int i = 0; List<PhoneTextBox> list = new List<PhoneTextBox>(); private void btnAdd_Click(object sender, EventArgs e) { if (i &g...
- win7 下完美解决VB 动态添加的flash 控件 fscommand 消息未触发的方法
Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash//一定要放到外边声明 Private Sub Form_Load() 'Set tmpCtl = Me.Contro
- VB运行时动态注册添加控件的方法
其实我不想写关于此类方法的文章，但是提问者还是不少，...VB中的控件都是指ActiveX DLL或OCX，这些都是COM组件，如果熟悉API可以调用这个文件输出的注册函数即可。 这个函数是DllRegisterServer，相关的反注册函数是D
- vb动态添加和删除PictureBox控件
Option Explicit Private WithEvents NewPicture As PictureBox '通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() '这个按钮用来添加新控件 If ...
- VB6 动态创建用户控件
VB6有一个新功能，可以动态添加控件，不用控件数组： <br />object.Add (ProgID, name, container) ==================================== 参数说明： Object 必需的。一个对象表达式，其...