vb点虐的set语句 vb中的set

vb点虐中set(Byval value as integer)有什么用

是一个属性,用于获取值用的

让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：国际域名空间、雅安服务器托管、营销软件、网站建设、滨江网站维护、网站推广。

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 即可。

^_^ 给分撒～

网页标题：vb点虐的set语句 vb中的set
文章来源：http://azwzsj.com/article/ddsjpgd.html