VB语言中怎么用代码直接创建控件

这期内容当中小编将会给大家带来有关VB语言中怎么用代码直接创建控件,文章内容丰富且以专业的角度为大家分析和叙述,阅读完这篇文章希望大家可以有所收获。

成都创新互联公司专注为客户提供全方位的互联网综合服务,包含不限于成都网站设计、做网站、泗水网络推广、小程序定制开发、泗水网络营销、泗水企业策划、泗水品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等,从售前售中售后,我们都将竭诚为您服务,您的肯定,是我们最大的嘉奖;成都创新互联公司为所有大学生创业者提供泗水建站搭建服务,24小时服务热线:18982081108,官方网址:www.cdcxhl.com

如何用代码直接创建控件

Withevents关键词

作用:可以直接声明一个控件,并且可以使用这个控件的事件

Controls.add方法

解释:

Controls控件

Add方法,有两个参数(参数1,参数2)

参数1:系统中已经存在的控件vb.timer     vb.label  等控件类型来表示

参数2:控件的名称

变量控件的赋值

1、如果是普通的变量(integer,string,boolean等),声明使用dim  ,可以直接赋值

2、如果是对象类型的变量,在赋值时,必须使用set关键字

Private关键词

这个关键词,指定当前的变量或者类等,只能在当前窗体或模块或类中使用,不能超过这个适用范围

本期界面:

VB语言中怎么用代码直接创建控件VB语言中怎么用代码直接创建控件VB语言中怎么用代码直接创建控件VB语言中怎么用代码直接创建控件

本期源代码:

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 = True

End Sub
Private Sub label1_Click()Shell "explorer http://ljy.kim"End Sub
Private 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 If

If d = 0 Then '向右    label1.Left = label1.Left + 10Else    label1.Left = label1.Left - 10End If
End Sub

上述就是小编为大家分享的VB语言中怎么用代码直接创建控件了,如果刚好有类似的疑惑,不妨参照上述分析进行理解。如果想知道更多相关知识,欢迎关注创新互联行业资讯频道。


标题名称:VB语言中怎么用代码直接创建控件
网站网址:http://myzitong.com/article/ghjeoo.html