对VBS类有兴趣的进来！有分！

[YJBOLD]

这几天研究了VBS类，搞不懂这条语句：
property set ...
property get 是取属性值，property let 是给属性赋值，那这个property set是干什么的？

[tigerhu76]

我也没弄懂 get,set,let 三个有什么用处和好处，发觉只用 sub 或 function 就可以了

[yjbnew]

UP

[YJBOLD]

谁能举个 property set 的例子，这样好理解，

[libaisongtuye]

学习

[YJBOLD]

up

[TSD]

TO:tigerhu76(虎虎)

这些都是类里针对对象属性操作的一些方法,不是有没有什么好处的.

就拿生活中的一些东西来说吧,像杯子,手机这些都是一个对象,那么这个对象肯定就有它本身的属性,如一个杯子,它是圆的,可以装水,这些就是它的属性.

如在程序中定义一个个人的信息,像姓名、年龄这都是属性，要给这个姓名属性赋值就得用let,取这个姓名这个属性就得用get

[笨笨兔兔兔兔兔]

Class calendar
Dim calendarmonth, calendaryear, calendarday
Dim today
Dim table1
Dim todayw
set rs=server.createobject("adodb.recordset")
Private Sub Class_Initialize
today = Date
Set table1 = document.getElementById("calendartable")
End Sub

Function tableclear()
rowsnum = 1
j = 0
For i = 0 To 41
table1.rows(rowsnum).cells(j).innerText = ""
j = j + 1
If j = 7 Then
j = 0
rowsnum = rowsnum + 1
End If
Next
End Function

Public Property Get thedayd()
If Len(calendarday) = 0 Then
calendarday = Day(today)
End If
theyeard = calendaryear
End Property

public property set thedate(sql)
rs.open sql1,conn,1,3
thedate=rs
end property

Public Property Let thedayd(theday)
calendarday = theday
End Property

Public Property Get theyeard()
If Len(calendaryear) = 0 Then
calendaryear = Year(today)
End If
theyeard = calendaryear
End Property

Public Property Get themonthd()
If Len(calendarmonth) = 0 Then
calendarmonth = Month(today)
End If
themonthd = calendarmonth
End Property

Public Property Let theyeard(theyear)
calendaryear = theyear
End Property

Public Property Let themonthd(themonth)
calendarmonth = themonth
End Property

Function displayDay()
Dim days, theday
Dim d
Dim rows
Dim cells
rows = 1
d = calendaryear&"-"&calendarmonth&"-"&"1"
todayw = Weekday(d)
Select Case calendarmonth
Case 1
days = 31
Case 2
days = runnian(calendaryear)
Case 3
days = 31
Case 4
days = 30
Case 5
days = 31
Case 6
days = 30
Case 7
days = 31
Case 8
days = 31
Case 9
days = 30
Case 10
days = 31
Case 11
days = 30
Case 12
days = 31
End Select
rowsnum = 1
j = todayw -1
For i = 1 To days
table1.rows(rowsnum).cells(j).innerText = i
j = j + 1
If j = 7 Then
j = 0
rowsnum = rowsnum + 1
End If
Next
End Function


Function runnian(theyear)
If theyear Mod 100 = 0 Then
If theyear Mod 4 = 0 Then
runnian = 29
Else
runnian = 28
End If
Else
If theyear Mod 4 = 0 Then
runnian = 29
Else
runnian = 28
End If
End If
End Function


Function addrecord(rowsnum, cellsnum, showday)
showday = Replace(showday, "\", "/")
showday = "file:///"&showday
table1.rows(rowsnum -1).cells(cellsnum).innerHTML = "<a href='"&showday&"'>"&table1.rows(rowsnum -1).cells(cellsnum).innerHTML&"</a>"
End Function

End Class
实际上我如上程序本来是没有set的,只不过为了配合说明set和let的不同之处写的

调用的时候用set ttt=new class ttt.thedata-----这个就相当于一个rs对象了

[underone]

学习
UP

[lawyu]

:)

[Tomato77]

http://blog.csdn.net/zhcool/archive/2004/10/17/140370.aspx

[YJBOLD]

to liuxiaoyi666(兔子)
有点明白了,那实际上完全可以不用SET 因为我只要把那个rs public就行了.
对吧?

[YJBOLD]

欢迎继续讨论!

[yjbnew]

up

[xilo]

mark

[yjbnew]

up

[YJBOLD]

up

[mayi545]

UP

[YJBOLD]

up

[YJBOLD]

up

[raas]

up