重新生成,控件工具栏,会出现【解决方案名称】组件,如hb_test组件,里面有当前解决方案自定义的控件,如果没有,以下方法可以使控件在编辑状态出现在窗体上。
丰台网站制作公司哪家好,找创新互联!从网页设计、网站建设、微信开发、APP开发、自适应网站建设等网站项目制作,到程序开发,运营维护。创新互联成立与2013年到现在10年的时间,我们拥有了丰富的建站经验和运维经验,来保证我们的工作的顺利进行。专注于网站建设就选创新互联。
打开form1.designer。vb
在Partial Class Form1类中的最后添加:
Friend WithEvents MergeColumn1 As WindowsApplication1.MergeColumn’定义控件的全局变量
找到public sub InitializeComponent过程,在里面添加:
Me.MergeColumn1 = New WindowsApplication1.Datavip()‘初始化。
Me.MergeColumn1.Location = New System.Drawing.Point(0, 0)‘控件在窗体中的位置。
Me.daMergeColumn1ame = "daMergeColumn1"’控件名
Me.MergeColumn1.Size = New System.Drawing.Size(140, 150)‘必需,控件大小。
Me.MergeColumn1.TabIndex = 0’
Me.Controls.Add(Me.daMergeColumn1)‘必需,将控件添加到窗体。
如果是可视化控件,可以点图中右下角的“浏览”,找到emodelview.dll就可以添加到工具箱
如果是类库,要在项目属性的“引用”中添加。
Dim ConnTemp As New ADODB.Connection
Dim RSTemp As New ADODB.Recordset
ConnTemp.open "DATA" 'DATA --- 数据源名称
RSTemp.Open "Select * from Model Order By Model", ConnTemp, adOpenStatic, adLockReadOnly
MaxNumber = RSTemp.RecordCount
For i = 1 To MaxNumber
COMBOBOX.AddItem RSTemp.Fields(0).Value
RSTemp.MoveNext
Next i
RSTemp.Close
在代码编辑窗口中就是这样的。在窗体设计的时候那些东西才会显示。
在Visio里面启用宏,用录制宏的方式进行你要的操作,然后看看宏里面是怎么写,然后通过改写,就可以实现在VB.net里面对Visio进行二次开发了。宏里面的很多VBA代码都可以直接在VB.net里面使用的