当前位置 > vb用代码创建控件vb用代码创建控件怎么用
-
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性.\x0d\x0aPrivate Sub Form_Load()\x0d\x0a Dim i%\x0d\x0a For i = 1 To 3\x0d\x0a Load Option1(i) 这句是关键,,,,,\x0d\x0a Option1(i).Top = Option1(0).Top\x0d\x0a Option1(i).Left = Optio...
2024-08-28 网络 更多内容 276 ℃ 89 -
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为0 ,就创建了控件数组,设置你要创建控件数组的其它属性. Private Sub Form_Load() Dim i% For i = 1 To 3 Load Option1(i) ' 这句是关键,,,,, Option1(i).Top = Option1(0).Top Option1(i).Left = Option1(i 1).Left + Option1(i 1).Width + 200 Optio...
2024-08-28 网络 更多内容 655 ℃ 719 -
VB用代码创建控件数组?
以下程序能完成您的需求:Dim n As IntegerPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)n = n + 1Load Picture1(n) '加载第N个成员Picture1(n).Move X, Y '设置要显示的位置 mousedown事件的x 和yPicture1(n).Visible...
2024-08-28 网络 更多内容 435 ℃ 620 -
VB怎么用代码创建控件数组?
先定义一个控件(Option1),然后修改index值为zd0,就创回建了控件数组,设置你要创建控件数组的其它属性.PrivateSubForm_Load()Dimi%Fori=1To3LoadOption1(i)'这句是关键答,,,,,Option1(i).Top=Option1(0).TopOption1(i).Left=Option1(i1).Left+Option1(i1).Width+200Option1(i).Visible=T...
2024-08-28 网络 更多内容 377 ℃ 139 -
VB用代码在MDI窗口中增加一个控件
创建好mdi窗体使用以下代码可以动态创建一个名为pic1的Picturebox Set s = Me.Controls.Add("VB.PictureBox", "pic1") With s .Height = 2000 .Visible = True .Align = 1 End With 以下代码就可以在pic1控件上创建一个按钮,不过以下代码创建的控件不响应事件,必须...
2024-08-28 网络 更多内容 200 ℃ 222 -
vb怎么在窗体上创建菜单?代码创建,非控件创建?
Private Sub Form_Load() OldWindowProc = GetWindowLong(Form1.hwnd, GWL_WNDPROC) ' 取得窗口函数的地址 Call SetWindowLong(Form1.hwnd, GWL_WNDPROC, AddressOf SubClass1_WndMessage) ' 用SubClass1_WndMessage代替窗口函数处理消息 SysMenuHwnd = Ge...
2024-08-28 网络 更多内容 405 ℃ 905 -
vb 用命令创建控件
你可以利用LOAD命令来实现控件的装入(应该叫控件数组) 一般的控件都有Visible属性来控制可见不可见。 用TEXT控件说吧。 在form上建立一个TEXT控件。 text控件属性如下: index=0 name=text1 再建立一个COMMAND空间。CLICK事件中添加 For i = 1 To 20 Load Text1(i) Text1(i...
2024-08-28 网络 更多内容 545 ℃ 746 -
VB用代码创建的控件怎么接收事件?
在声明公共变量的位置加上这句就可以了 Dim WithEvents NewButton As CommandButton 全部代码如下: Option Explicit Dim WithEvents NewButton As CommandButton Private Sub Form_Load() Set NewButton = Controls.Add("VB.CommandButton", "cmdNew") NewButton.Move 500...
2024-08-28 网络 更多内容 371 ℃ 802 -
vb 用命令创建控件
你可以利用LOAD命令来实现控件的装入(应该叫控件数组)一般的控件都有Visible属性来控制可见不可见。用TEXT控件说吧。在form上建立一个TEXT控件。text控件属性如下:index=0name=text1再建立一个COMMAND空间。CLICK事件中添加For i = 1 To 20Load Text1(i)Text1(i).Top = ...
2024-08-28 网络 更多内容 264 ℃ 760 -
用VB创建activex控件
确保“ ActiveX 控件 和插件”的有关设置为: a. 对标记为可安全执行脚本的 ActiveX 控件执行脚本——启用; b. 对没有标记为可安全执行脚本的 ActiveX 控件进行初始化和脚本运行— —提示; c. 下载未签名的 ActiveX 控件——禁用; d. 下载已签名的 ActiveX 控件——提示; e. 运行 Ac...
2024-08-28 网络 更多内容 253 ℃ 725