这个问题其实非常简单,我看到网上也有很多的例子,大家只要一搜就会明白。
但是我在这里试图比较详细的介绍自动生成控件的步骤
但是我在这里试图比较详细的介绍自动生成控件的步骤
'********************************************************************************
'作者:章鱼哥 QQ:3107073263 群:309816713
'自定义控件三步走:
' 1、定义一个该类型控件的实例对像
' 2、添加到父控件的Controls集合中(对于没有窗体界面的控件,2、3步可不要,如Timer控件)
' 3、定义该控件的属性,尤其是位置属性要定义
'*********************************************************************************
Public Class Form1
'窗体的load事件,中加载控件。(当然你可以在任意地方加载)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
My_Control_label() '生成label1标签控件函数
End Sub
'生成label1标签控件函数
'将标签控件添加到窗体中,然后定义标签的text属性、位置、颜色、字体等属性。并添加Click事件处理函数
Private Sub My_Control_label()
Dim label1 As New Label '定义一个标签控件对象
Me.Controls.Add(label1) '添加到窗体控件集中,你也可以添加到其他控件集中&