從網上看到一個vbs中使用class的例子, 轉出來，共同學習！
Class 語句：聲明一個類的名稱，以及組成該類的變量、屬性和方法的定義。
vbs類的使用方法
類的結構:
class 類名稱
end class
調用方法 set myclass=new 類名稱
中間類里面的代碼，
類模塊的事件過程。
| Private Sub Class_Initialize()這里寫上類實例化的時候執行的代碼。end sub Private Sub class_terminate()這里是類注銷的時候自動執行的代碼，end Sub |
上面兩個子程序的名稱是規定的，如果改了名稱，就會無效。
1、變量
2、函數(Function)
3、屬性(Property)
4、方法 (SUB)
一、對象的訪問限制，分為公有和私有，公有的（public）可以讓外部訪問，私有的（Private ）外部不能訪問，上面幾種角色都可以定義為公有或私有。
定義變量
public mystr,mystring
這樣就定義了兩個公有的變量，調用方法myclass.mystr
反之
Private mystr,mystring
則為私有的變量，外部不能訪問的。
函數
| Public Function Checkstr(Str)If Isnull(Str) Then CheckStr = "" Exit Function End IfCheckStr = Replace(Str,"'","''")End Function |
這是一個公有函數，外部可以訪問的，調用方法 myclass.Checkstr(Str)
反之如果為私有的，則用Private 取代public
3、屬性(Property)
屬性分兩種，一種是只寫屬性，一種是只讀屬性。
也可以為公有或私有，現在以公有為例子。
這是一個只寫的屬性
| 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 |
以下為一個簡單的類的的例子：
