怎么在VB中调用DLL 中. 写出例子

loucangang 2003-08-18 09:14:42
怎么在VB中调用DLL 中. 写出例子
...全文
38 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
dwlgl 2003-08-18
  • 打赏
  • 举报
回复
新建ActiveX dll,工程名称为clsMax
代码如下:
public function MAX(a as long,b as long) as long
dim c as long

if a>=b then
c=a
else
c=b
end if

max=c
end function
把此工程编译为dll
新建工程,在工程菜单中引用该dll文件
程序中调用该dll文件的程序如下:
dim aclsMAX as clsmax
dim n as long
dim a as long
dim b as long

set aclsMAX=new clsmax
n=aclsmax.max(a,b)
set aclsmax=nothing


junki 2003-08-18
  • 打赏
  • 举报
回复
在VB6中调用vcdllabs.dll(已经建立,并保存在f:\yyvc5\vcdllabs\debug\
vcdllabs.dll)求绝对值
(1)启动VB5(中文版)。
(2)进入菜单:文件→新建工程→标准EXE→确定。
(3)双击命令模板,建立一个命令按钮,按附图修改表单和按钮属性。
(4)双击所建立的命令钮→输入如下代码:
Private Declare Function vcabs Lib″f:\yyvc5\vcdllabs\debug\
vcdllabs.dll″(ByVal x As Single)As Single
‘注意上面二行一定要在一行内输完
Private Sub Command1_ Click()
Dim x As Single,y As Single,z As Single
 x=-2.1:y=2.1:z=0
 Print″x=-2.1,y=2.1,z=0″
 Print
 Print ″x的绝对值是:″,vcabs(x)
 Print ″y的绝对值是:″,vcabs(y)
 Print ″z的绝对值是:″,vcabs(z)
end sub
since1990 2003-08-18
  • 打赏
  • 举报
回复
帮你 up

7,757

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧