这期内容当中小编将会给大家带来有关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 Then d = 1 '向左ElseIf label1.Left < 0 And d = 1 Then d = 0 '向右End IfIf d = 0 Then '向右 label1.Left = label1.Left + 10Else label1.Left = label1.Left - 10End IfEnd Sub上述就是小编为大家分享的VB语言中怎么用代码直接创建控件了，如果刚好有类似的疑惑，不妨参照上述分析进行理解。如果想知道更多相关知识，欢迎关注亿速云行业资讯频道。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
原文链接：https://my.oschina.net/u/4581662/blog/4374449
