Set 语句 将对象引用赋给变量或属性。 语法 Set 语句中使用 New 关键字,那么实际上就会新建一个该对象的实例。
十多年建站经验, 做网站、网站设计客户的见证与正确选择。创新互联公司提供完善的营销型网页建站明细报价表。后期开发更加便捷高效,我们致力于追求更美、更快、更规范。
Set objA=objAA.getObjOfA()
Or
Set objA = new ObjOfA()
看样子应该是设置和读取某个物件的属性。。而这个属性就是sslStatus.Text的值。
在这里Get是将sslStatus.Text这个结果读取出来;而Set(ByVal value As String)是将value这个参数值赋值给sslStatus.Text,也即是让这个名为sslStatus的文本框显示value这个值。
设置属性的过程
你可以看成一个过程,
一般做属性会对应一个模块级的变量,比如下面的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
因为数据类型的不同,VB.NET调用系统API函数和VB6不太一样,VB6是这样:
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
在VB.NET中是这样调用:
DllImport("user32.dll", SetLastError:=True) _
Public Shared Function SetWindowPos(ByVal hWnd As IntPtr, ByVal hWndInsertAfter As IntPtr, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal uFlags As SetWindowPosFlags) As Boolean
End Function
参考:
【首发答案】 VB6 中才有Set,VB.net中没有了
直接 a = New a 即可。
^_^ 给分撒~