請各位高手幫小弟的忙呀.如何編寫一個com.

[chenlishu413]

高手們能否給我編寫一個簡單com呢.還有使用方法.小弟不勝感激....

[道素]

COM对象通常表现为一个.dll文件，是一个编译好了的可执行程序。
打开Visual Basic，一个对话框会提示你选择一种新建工程类型，在这儿当然选择“ActiveX DLL”。
在在工程浏览器中点击Project1，然后可以在属性窗口中看到工程的name 属性为Project1
现在在工程中，已经预建了一个缺省的类，你可以按你自己的喜好来重新对其命名。在这儿把类命名为LeapYear。
　　 在类中填写入如下的代码：

　　 Option Explicit

　　 '用来判断一个年份是否为闰年的函数

　　 Public Function IsLeapYear(yr As Variant) As Boolean

　　 '如果年份能够被4整除并且不能被100整除,或者能够被400整除

　　 '那么它就是闰年

　　 If (yr Mod 4 = 0 And yr Mod 100 < > 0) Or yr Mod 400 = 0 Then

　　 IsLeapYear = True

　　 Else

　　 IsLeapYear = False

　　 End If

　　 End Function

　　 上面就是所需要的全部代码了，其实很简单。下面所要做的，就是把它编译成一个dll文件。在“文件”菜单中选择“建立CheckYear.dll...”，再选择要文件要保存的路径
运行Regsvr32.exe来注册这个组件了。在“开始”菜单中选这“运行”，然后在“运行”对话框中输入regsvr32 和要注册的组件的名称和其完整路径

这样生成的组件就可以在其他应用程序中使用了

SHANNON
----------------
[e-mail]

[道素]

使用，打开一个工程，引用中选择刚才的dll如果不知道名字点浏览
因为它是activex dll所以这么用，然在在程序用new一个
然后在调用它的.IsLeapYear(Year)就可以了


SHANNON
----------------
[e-mail]

[chenlishu413]

那系統自帶的comexp.msc怎麼用呢?