blsn.net
当前位置:首页 >> 怎么添加CmDok控件 >>

怎么添加CmDok控件

呵呵,在后面加上框架的名字呀.. 比如:Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1 看下面的示例: Private Sub Form_Load() Form1.Controls.Add "VB.CommandButton", "cmdOk", Picture1 With Form1!cmdOk .Visible = True .Width ...

vb6中可以动态添加控件,不用控件数组: object.add (progid, name, container) 参数说明: object:必需。一个对象表达式,其值是“应用于”列表中的一个对象。 progid:必需。一个标识控件的字符串。大多数控件的 progid 都可通过查看对象浏览器来...

vb6可以的,也不麻烦~ 比如在form1上添加一个name为"cmdok"的command按钮: Form1.Controls.Add "VB.CommandButton", "cmdOk", Form1 '此句就可以添加了 With Form1!cmdOk '不过要做些设置~ .Visible = True '首先是使其可见! .Width = 500 '宽度 ...

实例代码: //在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

object.Add (ProgID, name, container) 参数说明 Object 必需的。一个对象表达式,其值是“应用于”列表中的一个对象。 ProgID 必需的。一个标识控件的字符串。大多数控件的 ProgID 都可通过查看对象浏览器来决定。控件的 ProgID 是由控件的库和类...

实例代码://在picture1上面添加一个commandbuttonPrivateSubForm_Load()Form1.Controls.Add"VB.CommandButton","cmdOk",Picture1//动态添加控件WithForm1.cmdOk.Visible=True.Width=500.Caption="确认(&Y)"EndWithEndSub

Private Sub Form_Unload(Cancel As Integer) Dim ctl As Control Open app.path & "\controls.ini" For Output As #1 For Each ctl In Me With ctl Print #1, "[" & .Name & "]" '这个是name Print #1, "Size=" & .Width; "," & .Height ‘尺寸 ...

VBA显然是不支持数组控件的,但可以这样的,假如金额的textbox名称依次被命名为sum1,sum2,sum3........ private sub cmdOk_click()dim a as controlfor each a in me.controlsif left(a.name,3)="sum" and a.value ="" then a.value=0nextend sub

VBA显然是不支持数组控件的,但可以这样的,假如金额的textbox名称依次被命名为sum1,sum2,sum3........ private sub cmdOk_click()dim a as controlfor each a in me.controlsif left(a.name,3)="sum" and a.value ="" then a.value=0nextend sub

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