这期内容当中小编将会给大家带来有关VB语言中怎么用代码直接创建控件，文章内容丰富且以专业的角度为大家分析和叙述，阅读完这篇文章希望大家可以有所收获。
如何用代码直接创建控件
Withevents关键词
作用：可以直接声明一个控件，并且可以使用这个控件的事件
Controls.add方法
解释：
Controls控件
Add方法，有两个参数（参数1，参数2）
参数1：系统中已经存在的控件vb.timer vb.label 等控件类型来表示
参数2：控件的名称
变量控件的赋值
1、如果是普通的变量（integer,string,boolean等），声明使用dim ,可以直接赋值
2、如果是对象类型的变量，在赋值时，必须使用set关键字
Private关键词
这个关键词，指定当前的变量或者类等，只能在当前窗体或模块或类中使用，不能超过这个适用范围
本期界面：
本期源代码：
Private WithEvents label1 As Label '声明一个带事件的控件Private WithEvents timer1 As TimerDim d As Integer '0表示向右，1表示向左Private Sub Form_Load()AutoRedraw = True'对label控件进行实例化Set label1 = Controls.Add("vb.label", "label1")'开始配置控件label1.Caption = "刘金玉编程"label1.FontSize = 50label1.BackColor = vbRedlabel1.AutoSize = Truelabel1.ForeColor = vbWhitelabel1.Left = ScaleWidth / 2 - label1.Width / 2label1.Top = ScaleHeight / 2 - label1.Height / 2label1.Visible = True '显示控件Set timer1 = Controls.Add("vb.timer", "timer1")timer1.Interval = 10timer1.Enabled = TrueEnd SubPrivate Sub label1_Click()Shell "explorer http://ljy.kim"End SubPrivate Sub timer1_Timer()If label1.Left + label1.Width > ScaleWidth And d = 0 Thend = 1 '向左ElseIf label1.Left < 0 And d = 1 Thend = 0 '向右End IfIf d = 0 Then '向右label1.Left = label1.Left + 10Elselabel1.Left = label1.Left - 10End IfEnd Sub
上述就是小编为大家分享的VB语言中怎么用代码直接创建控件了，如果刚好有类似的疑惑，不妨参照上述分析进行理解。如果想知道更多相关知识，欢迎关注亿速云行业资讯频道。
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
