从品牌网站建设到网络营销策划,从策略到执行的一站式服务
是一个属性,用于获取值用的
让客户满意是我们工作的目标,不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户,将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴,公司提供的服务项目有:国际域名空间、雅安服务器托管、营销软件、网站建设、滨江网站维护、网站推广。
eg:
property text as string
get
return ""'在这里就是获取 text 属性时 返回 ""
end get
set (value as string)
'这里看你让别人给有值放到那里,传进来时 就在 value 这个参数里
textbox1.text=value
end set
end property
当你这样写完时,你写这个属性的对象就会有了 Text 属性 如果 原来有这个属性 会提示你 重载
看样子应该是设置和读取某个物件的属性。。而这个属性就是sslStatus.Text的值。
在这里Get是将sslStatus.Text这个结果读取出来;而Set(ByVal value As String)是将value这个参数值赋值给sslStatus.Text,也即是让这个名为sslStatus的文本框显示value这个值。
Set就是给对象变量赋值。
如:
Dim MyLabel As Object '定义一个对象变量MyLabel
Set MyLabel = Label1 '给MyLabel赋值(要注意Label1是窗体中实际存在的控件)
MsgBox MyLabel.Caption '显示MyLabel的Caption属性值(相当于Label1.Caption)
一般用法,先有这个对象,或者先定义变量。
Dim i As string '定义一个对象变量i,字符型
Set i = "8" '变量i 为8
MsgBox i ‘显示就是8字符串
【首发答案】 VB6 中才有Set,VB点虐 中没有了
直接 a = New a 即可。
^_^ 给分撒~
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图