用代码是可以实现的,但是也还要求机器里,有相关的注册 ocx
解决方案 »
- VB如何声明数字变量
- 急!!!!求vb+access的图书管理系统源码+文档
- 做一个插入SQL操作,会自动把我语句间的“,”删掉,why?
- ActiveReports中纸张大小的问题,请大学帮忙
- 用vb做的登录窗体连接access提示为发现数据源并且未指定默认驱动程序,小弟做毕业设计,跪求如何解决?
- 那位高手能解决这一个问题?
- installshield中怎样重新载入我的工程,因为我又加了控件进去.
- 怎样在Form_Load()中带参数 ,在线等待
- 关于WaitForSingleObject()
- 求教:请问谁能告诉我如何制作一个报表浏览程序。
- 好高兴,再送一次
- 如何在VB.NET中完全卸载窗体?
Option Explicit Dim WithEvents ctlDynamic As VBControlExtender
Dim WithEvents ctlText As VB.TextBox
Dim WithEvents ctlCommand As VB.CommandButton
Dim WithEvents ctlCommandDel As VB.CommandButton
Private Sub ctlCommandDel_Click()
Dim i As Integer
Licenses.Remove "MSComctlLib.TreeCtrl"
If MsgBox("是否删除所有控件", vbYesNo) = vbYes Then
For i = 1 To Form1.Controls.Count
Controls.Remove 0
Next i
End If
End Sub
Private Sub ctlCommand_Click()
ctlText.Text = "你点击的是控制按钮"
End Sub Private Sub ctlDynamic_ObjectEvent(Info As EventInfo)
If Info.Name = "Click" Then
ctlText.Text = "你点击的条目是 " & _
ctlDynamic.object.selecteditem.Text
End If
End Sub Private Sub Form_Load()
Dim i As Integer
Licenses.Add "MSComctlLib.TreeCtrl" Set ctlDynamic = Controls.Add("MSComctlLib.TreeCtrl", _
"myctl", Form1)
ctlDynamic.Move 1, 1, 2500, 3500
For i = 1 To 10
ctlDynamic.object.nodes.Add Key:="Test" & Str(i), _
Text:="Test" & Str(i)
ctlDynamic.object.nodes.Add Relative:="Test" & Str(i), _
Relationship:=4, Text:="TestChild" & Str(i)
Next i
ctlDynamic.Visible = True Set ctlText = Controls.Add("VB.TextBox", "ctlText1", Form1)
ctlText.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
1, 2500, 100
ctlText.BackColor = vbBlue
ctlText.ForeColor = vbWhite
ctlText.Visible = True Set ctlCommand = Controls.Add("VB.CommandButton", _
"ctlCommand1", Form1)
ctlCommand.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
ctlText.Height + 50, 1500, 500
ctlCommand.Caption = "点击"
ctlCommand.Visible = True
Set ctlCommandDel = Controls.Add("VB.CommandButton", _
"ctlCommand2", Form1)
ctlCommandDel.Move (ctlDynamic.Left + ctlDynamic.Width + 50), _
ctlText.Height + 650, 1500, 500
ctlCommandDel.Caption = "删除所有控件"
ctlCommandDel.Visible = True
End Sub
参考 http://www.applevb.com/art/dyn_control.txt
也可以用控制数组的方法
如果单纯用代码呢?呵呵……就像C那样。2;T2(無藥可救)
一个OCX里只用1至2个组件,而一个OCX又有多大?如果有办法把一个组件从OCX里抽出来再和另外几个组合到一块儿,应该很好玩:)
能夠高效的出好的應用程序這是關鍵﹐編程序并不是來表現你的技朮水平有多高的。
在這里我并不是說讓你大量用控件,但是CommandButton你是不是應該用啊(無特殊要求情況下)?