|
如何使用屬性
打開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
未完待續
|
