從網(wǎng)上看到一個vbs中使用class的例子, 轉(zhuǎn)出來，共同學(xué)習(xí)！
Class 語句：聲明一個類的名稱，以及組成該類的變量、屬性和方法的定義。
vbs類的使用方法
類的結(jié)構(gòu):
class 類名稱
end class
調(diào)用方法 set myclass=new 類名稱
中間類里面的代碼，
類模塊的事件過程。
| Private Sub Class_Initialize()這里寫上類實(shí)例化的時(shí)候執(zhí)行的代碼。end sub Private Sub class_terminate()這里是類注銷的時(shí)候自動執(zhí)行的代碼，end Sub |
上面兩個子程序的名稱是規(guī)定的，如果改了名稱，就會無效。
1、變量
2、函數(shù)(Function)
3、屬性(Property)
4、方法 (SUB)
一、對象的訪問限制，分為公有和私有，公有的（public）可以讓外部訪問，私有的（Private ）外部不能訪問，上面幾種角色都可以定義為公有或私有。
定義變量
public mystr,mystring
這樣就定義了兩個公有的變量，調(diào)用方法myclass.mystr
反之
Private mystr,mystring
則為私有的變量，外部不能訪問的。
函數(shù)
| Public Function Checkstr(Str)If Isnull(Str) Then CheckStr = "" Exit Function End IfCheckStr = Replace(Str,"'","''")End Function |
這是一個公有函數(shù)，外部可以訪問的，調(diào)用方法 myclass.Checkstr(Str)
反之如果為私有的，則用Private 取代public
3、屬性(Property)
屬性分兩種，一種是只寫屬性，一種是只讀屬性。
也可以為公有或私有，現(xiàn)在以公有為例子。
這是一個只寫的屬性
| Public Property Let Value(ByVal vNewValue)Dim tmpstrtmpstr = vNewValuetmpstr = split(tmpstr,"@@@")html = split(tmpstr(0),"|||")Strings = split(tmpstr(1),"|||")pic = split(tmpstr(2),"|||")End Property這是一個只讀的屬性Public Property Get TodayNumTodayNum = Application(Forum_sn & "_Dv_setup")(9,0)End Property |
如果要有讀寫的屬性那么
| Public Property Get TodayNumTodayNum = Application(Forum_sn & "_Dv_setup")(9,0)End PropertyPublic Property Let TodayNum(ByVal vNewValue)TodayNum = vNewValueEnd Property |
這樣寫TodayNum就具有讀寫的屬性了，
方法，也以公有為例，
| Public Sub TrueCheckUserLogin()代碼end sub |
以下為一個簡單的類的的例子：
| Class cls_templatesPublic html,Strings,picPrivate Sub Class_Initialize()end sub Private Sub class_terminate()end subPublic Property Let Value(ByVal vNewValue) Dim tmpstr tmpstr = vNewValue tmpstr = split(tmpstr,"@@@") html = split(tmpstr(0),"|||") Strings = split(tmpstr(1),"|||") pic = split(tmpstr(2),"|||")End PropertyEnd Class |
