Asp組件初級入門與精通系列之三

來源:互聯網
上載者:User
如何使用屬性

開啟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



未完待續



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。