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 ...

晕···这是人家自己定义的,cmdok意思就是(when ok then click cmd)cmd是command,懂了吧

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

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

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 的控件支持拖拽事件,假设我们已经在 Excel VBA 中添加了一个 UserForm 窗体和一个 CommandButton 按钮(更名为 cmdOK)。演示了如何在窗体内部拖拽一个按钮。

VBA 的控件支持拖拽事件,假设我们已经在 Excel VBA 中添加了一个 UserForm 窗体和一个 CommandButton 按钮(更名为 cmdOK)。下面的代码演示了如何在窗体内部拖拽一个按钮: Option ExplicitDim sngInsideButtonX As SingleDim sngInsideButton...

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