如何使用屬性
開啟vb6,建立Activex Dll工程。工程名修改為fCom,類名修改為fC2
點擊菜單->工具->添加過程
我們在名稱內輸入myName,類型選擇屬性，範圍選取公有，然後確定
再次操作:在名稱內輸入Age,類型選擇屬性，範圍選取公有，然後確定
再次操作:在名稱內輸入peopleInfo,類型選擇函數，範圍選取公有，然後確定即可
代碼如下:
Option Explicit
'保持屬性值的局部變數,只能在類中使用
Private mvarmyName As String
Private mvarAge As Integer
‘Let寫屬性(Let屬性: 該過程給一個屬性賦值。)
Public Property Let Age(ByVal vData As Integer)
mvarAge = vData
End Property
‘Get讀屬性(該過程擷取一個屬性的值。)
Public Property Get Age() As Integer
Age = mvarAge
End Property
Public Property Let myName(ByVal vData As String)
mvarmyName = vData
End Property
Public Property Get myName() As String
myName = mvarmyName
End Property
Public Function peopleInfo() As String
peopleInfo = "姓名: " & mvarmyName & " 年齡:" & mvarAge
End Function
Ok,一個簡單的組件就寫好了，點擊菜單->檔案->產生fCom.dll檔案
確定，在目錄下就會有fCom.dll檔案
測試
開啟visual interdev6.0,產生一個asp檔案，為什麼要使用interdev,因為它有代碼提示功能，與vb的ide環境一致，方便書寫
<%@ Language=VBScript %>
<HTML>
<BODY>
<%
set obj=server.CreateObject("fCom.fC2")
dim c
'這裡調用的是組件的Let屬性
obj.myName ="龍捲風"
obj.Age =20
c=obj.peopleInfo()
Response.Write c
'這裡調用的是組件的Get屬性
Response.Write "<br>"
Response.Write obj.myName
Response.Write "<br>"
Response.Write obj.Age
%>
</BODY>
</HTML>
配置好虛擬目錄，在ie中執行此asp檔案，得到結果如下:
姓名: 龍捲風 年齡:20
龍捲風
20
未完待續
