时间:2021-07-01 10:21:17 帮助过:17人阅读
开发COM的工具也就是开发EXE应用程序的工具,VB、VC、Delphi都可以。但VB具有天生的优势,几行代码就可以写出COM来。VB中,COM又叫ActiveX DLL。下面借用一个很简单的示例 ,判断年份是否为闰年。
新建一个ActiveX DLL工程,将工程名命为CheckYear,自动生成的类名命为LeapYear。写下如下代码:
- Option ExplicitPublic Function IsLeapYear(yr As Variant) As Boolean If yr Mod 4 = 0 And yr Mod 100 <> 0 Then IsLeapYear = True Else IsLeapYear = FalseEnd Function
COM在EXE应用开发工具中也可以调用。在写复杂的COM时,可以用他们来检测功能。COM注册后,在VB中的“引用”列表中可以看到。例如下面是VB调用它的代码:
- <% Option ExplicitDim oCheckYear,sDim Year, isleapYearYear=2004Set oCheckYear=CreateObject("CheckYear.LeapYear")isleapyear=oCheckYear.IsLeapYear(Year)Set oCheckYear=Nothing%><% If isleapYear=True Then s="是闰年!" Else s="不是闰年!"%><%=Year%>年<%=s%>
- Private Sub Command1_Click() Dim c Set c = CreateObject("CheckYear.LeapYear") Dim d As Boolean d = c.IsLeapYear(2004) MsgBox dEnd Sub