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

chenlishu413 2003-05-12 09:06:46
高手們能否給我編寫一個簡單com呢.還有使用方法.小弟不勝感激....
...全文
26 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
chenlishu413 2003-05-15
那系統自帶的comexp.msc怎麼用呢?
回复
道素 2003-05-13
使用,打开一个工程,引用中选择刚才的dll如果不知道名字点浏览
因为它是activex dll所以这么用,然在在程序用new一个
然后在调用它的.IsLeapYear(Year)就可以了


SHANNON
----------------
CH21ST@HOTMAIL.COM
回复
道素 2003-05-13
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
----------------
CH21ST@HOTMAIL.COM
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2003-05-12 09:06
社区公告
暂无公告