在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