qyhf.net
当前位置:首页 >> 如何vB中动态添加控件 >>

如何vB中动态添加控件

先在form上加两个Command按钮.Command1的Caption为添加控件;Command2的Caption为删除控件. 加入下面代码 Option Explicit Private WithEvents newbutton As CommandButton '通过使用WithEvents关键字声明一个对象变量为新的命

VB6有一个新功能,可以动态添加控件,不用控件数组: object.Add (ProgID, name, container) 参数说明 Object 必需的.一个对象表达式,其值是“应用于”列表中的一个对象. ProgID 必需的.一个标识控件的字符串.大多数控件的 ProgID

Option Explicit Private WithEvents NewTextBox As TextBox'通过使用WithEvents关键字声明一个对象变量为新的命令按钮 Private Sub Command1_Click() If NewTextBox Is Nothing Then Set NewTextBox = Controls.Add("VB.TextBox", "

用 Controls.Remove(控件) 动态删除控件.注意:在VB中只能动态删除那些动态添加的控件;不允许删除在窗体设计器上布置的控件!示例如下:(1)创建一个VB工程 (2)在Form1上布置两个Command (3)窗体代码 Option Explicit' 声明要

If i < 12 Then ' 创建新的Textbox控件 Set aa = Controls.Add("vb.textbox", "txtTotal" & i) aa.Width = 1000 aa.Height = 375 ' 将控件移动到你所需要的地方 If i >= 6 Then aa.Move (i - 6) * 1000, 600 Else aa.Move i * 1000, 200 End If ' 创建时,所有的控件都是不可见的 aa.Visible = True aa.Text = aa.Name i = i + 1 End If 这个是我在VB中试过,可以应用

无论想要创建何种类型的数据驱动窗体,必须知道如何在运行时动态地创建控件.可以通过控件数组做到这一点,但VB6的Controls集合所提供的Add方法,功能更强大,灵活性更高.使用该方法,不需要在设计时将控件的实例放在窗体上.实

'使用 select case 编程控件的事件.select case info.namecase "click"'这里处理 click 事件.'现在显示其他的 casecase else '未知事件'这里处理未知事件.end selectend sub 注意:不能把一个固有的控件指定给这个 vbcontrolextender

讲话要文明点,特别是问问题时 给你两种方法 Option Explicit Dim oCtrl As Object'使得控件可以响应事件 Dim WithEvents MyBtn As CommandButton Private Sub Form_Load() Dim i As Integer '先在窗体上加载个Label1(0)的标签控件 For i = 1 To

dim picturebox11(1) as picturebox '放在最前面dim i as integerform_load 设i=0动态添加:if i>picturebox11.ubound then load(picturebox11(i))picturebox11(i).loadpicture("图片地址")picture11(i).paintpicture picture11(i).picture, 0, 0, picture11(i).width, picture11(i).heightpicturebox11(i).visible=truei=i+1动态删除i=i-1unload picturebox11(i)

Sub CreateTextbox()Set txtTotal(0) = Controls.Add("VB.TextBox", "txtTotal")txtTotal(0).Move 1000, 800, 1200, 300txtTotal(0).Visible = TrueEnd SubPrivate Sub Command1_Click()CreateTextboxEnd SubPrivate Sub Command2_Click()Set

网站首页 | 网站地图
All rights reserved Powered by www.qyhf.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com