从品牌网站建设到网络营销策划,从策略到执行的一站式服务
看样子应该是设置和读取某个物件的属性。。而这个属性就是sslStatus.Text的值。
创新互联公司是一家集网站建设,平阴企业网站建设,平阴品牌网站建设,网站定制,平阴网站建设报价,网络营销,网络优化,平阴网站推广为一体的创新建站企业,帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿,时刻以成就客户成长自我,坚持不断学习、思考、沉淀、净化自己,让我们为更多的企业打造出实用型网站。
在这里Get是将sslStatus.Text这个结果读取出来;而Set(ByVal value As String)是将value这个参数值赋值给sslStatus.Text,也即是让这个名为sslStatus的文本框显示value这个值。
Private Sub Form_Load()
Me.Show
Text1.SetFocus
End Sub
注:要使得窗体先显示出来,再设置Text1的焦点,不然会出错的。
Set 语句 将对象引用赋给变量或属性。 语法 Set 语句中使用 New 关键字,那么实际上就会新建一个该对象的实例。
Set objA=objAA.getObjOfA()
Or
Set objA = new ObjOfA()
设置属性的过程
你可以看成一个过程,
一般做属性会对应一个模块级的变量,比如下面的USERID,
Dim
varID
As
Integer
Dim
varName
As
String
Property
UserID
As
Integer
Get
'返回用户ID
Return
varID
End
Get
Set(ByVal
value
As
Integer)
'保存用户ID
varID
=
value
'其他操作
varName
=
"从数据库里读取用户名等操作"
End
Set
End
Property
ReadOnly
Property
UserName
As
String
Get
Return
varName
End
Get
End
Property
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图