VBA--類與對象的簡單理解

1.首先咱們打開VBA編程的界面，在工程資源管理器中右鍵添加類模塊，而且命名爲person，這樣咱們就建立了一個類

2.接下來，咱們要在類裏面填加字段來保存內容，最好使用的是private，若是使用public所保存的內容就沒有約束性

Private sname As String '姓名
Private sgender As String '性別
Private sage As String '年齡

3.若是是這樣寫的話，這些字段不能被直接使用（讀取，或者賦值）

因此咱們還須要對他們的值進行傳遞，而且對這些值進行約束

Property Let name(str As String) '屬性過程，簡稱屬性
sname = str '把賦過來的值存進字段
End Property
Property Get name() As String
name = sname '把字段的值交給屬性
End Property
Property Let gender(g As String) '屬性過程，簡稱屬性
     If g = "男" Or g = "女" Then
     sgender = g '把賦過來的值存進字段
     Else
     sgender = "女"
     End If
End Property
Property Get gender() As String
gender = sgender '把字段的值交給屬性
End Property
Property Let age(a As String) '屬性過程，簡稱屬性
 If a < 0 Or a > 120 Then
 a = 0
 End If
 sage = a '把賦過來的值存進字段
End Property
Property Get age() As String
age = sage '把字段的值交給屬性
End Property

4.咱們能夠在模塊裏面使用一下person這個類（建立一個對象）

Option Explicit
Sub 建立對象()
 Dim p As person '聲明一個person類型的變量p
 Set p = New person '建立一個 person對象，賦值給變量
 p.name = "坦克"
 p.gender = "男"
 p.age = 18
 p.sayhello
 
 
 
End Sub