重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
看样子应该是设置和读取某个物件的属性。。而这个属性就是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