📄 vb21.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb21.htm -->
<HTML><HEAD><TITLE>|><| 太平洋电脑信息网</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
href="vb21.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
LINE-HEIGHT: 18pt
}
</STYLE>
<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD vAlign=top width="100%">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR bgColor=#303880>
<TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 border=0
height=18 hspace=30 src="vb21.files/txtpconline.gif"
width=96></A><IMG height=10 src="vb21.files/blank.gif"
width=400></TD></TR></TBODY></TABLE></TD>
<TD align=right background=vb21.files/bw.gif noWrap width=130><IMG
height=26 src="vb21.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/sitemap/"><IMG alt=网站地图 border=0
height=26 src="vb21.files/sitemap.gif" width=21></A><IMG height=26
src="vb21.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/"><IMG alt=关于太平洋 border=0 height=26
src="vb21.files/aboutus.gif" width=21></A><IMG height=26
src="vb21.files/bw.gif" width=10><A
href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=与我们联系 border=0
height=26 src="vb21.files/contact.gif" width=21></A><IMG height=26
src="vb21.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD bgColor=#666666><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD> </TD>
<TD colSpan=2 noWrap><A
href="http://www.pconline.com.cn/experience/index.html"><IMG
align=absBottom alt=企业之窗 border=0 height=15
src="vb21.files/txtexperience.gif" width=68></A> <A
href="http://www.pconline.com.cn/">首 页</A> <A
href="http://www.pconline.com.cn/market/">今日报价</A> <A
href="http://www.pconline.com.cn/recommend/">产品推介</A> <A
href="http://www.pconline.com.cn/yp/">企业之窗</A> <A
href="http://www.pconline.com.cn/news/">科技新闻</A> <A
href="http://www.pconline.com.cn/product/">产品查询</A> <A
href="http://www.pconline.com.cn/download/">软件下载</A></TD></TR>
<TR>
<TD><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD><IMG height=1 src="vb21.files/blank.gif" width=21></TD>
<TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb21.files/blank.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD bgColor=#cdcdcd><IMG height=5 src="vb21.files/blank.gif" width=1></TD>
<TD align=right colSpan=3><IMG height=6 src="vb21.files/ffa000.gif"
width=1></TD></TR>
<TR>
<TD bgColor=#666666><IMG height=1 src="vb21.files/blank.gif" width=1></TD>
<TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网
border=0 height=35 src="vb21.files/pconline.com.cn.gif" vspace=10
width=162></A></TD>
<TD> </TD>
<TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40
src="vb21.files/blank.gif" width=350><!-- #EndEditable --></TD>
<TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=广告位
height=43 src="vb21.files/icon.gif"
width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
<TBODY>
<TR>
<TD bgColor=#666666 width=1><IMG height=1 src="vb21.files/blank.gif"
width=1></TD>
<TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代为附加信息 --><!-- #EndEditable --></TD>
<TD bgColor=#666666 width=1><IMG height=1 src="vb21.files/blank.gif"
width=1></TD>
<TD><IMG height=1 src="vb21.files/blank.gif" width=21></TD>
<TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" --><IMG
height=1 src="vb21.files/blank.gif" width=566><BR><IMG height=1
src="vb21.files/666666.gif" width=420><BR><IMG height=13
src="vb21.files/blank.gif" width=1><A
href="http://www.pconline.com.cn/experience/">经验共享</A> > <SPAN
class=greenb><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">专题教程</A></SPAN><A
href="http://www.pconline.com.cn/experience/subject/VB/index.html">
VB专区</A>> <BR><IMG height=1 src="vb21.files/666666.gif" vspace=1
width=420><BR>
<P align=center><FONT color=#000066><B><SPAN
class=sfont>VB调用C程序的方法—动态链接库法</SPAN></B></FONT></P>
<P align=center><SPAN class=sfont>摘自：《软件世界》 强 琳 李 论 归云科 雷景辉 西安石油学院
710065</SPAN></P>
<P align=left><SPAN class=sfont><BR><BR>摘 要
<BR> 文中介绍了一种实现VB调用C语言程序的方法－动态连接库法，给出了动态链接库制作的一般框架,通过实例描述了动态连接库的实现及其制做方法、编程步骤,这种方法具有普遍的意义。<BR>关键词
VB 动态连接库DLL C程序 <BR><BR>一、引言<BR><BR> Visual
Basic(
以下简称VB)是一种可视化的面向对象的编程语言，以其编程简单、快捷等特点，深受广大WINDOWS程序员的青睐。利用VB开发界面友好、操作方便的软件只需很短的时间。但是VB运行速度较慢，对于庞大的科学计算问题，VB的这种慢速会使人难以忍受。C语言是国际上非常流行的一种中级编程语言，以其灵活、高效等优点而获得广泛应用，许多的应用程序都是用C语言在DOS环境下编写而成。那么如何发挥VB和C这两种语言的优势，用VB设计一种良好的for
windows界面来调用C语言程序，即实现VB调用C语言程序呢？现有的文献只提到动态链接库（以下简称DLL）可以将这两种语言连接起来，但有讲动态链接库DLL的制做及其编程方法。本文详细介绍了Borland
C环境下制作动态链接库以及VB调用for dos动态链接库的的方法、步骤，并通过实例描述VB调用C程序的全过程。<BR><BR>二、用Borland
C编写DLL程序的方法<BR><BR> 要想实现VB调用C程序，首先需要用Borland
C编写动态连接库DLL程序（假设DLL程序取名为example）。动态链接库包含四个文件：C语言源程序(.C）、模块定义文件（.DEF）、原型函数文件（.H）和工程文件（.PRJ）。下面分别详细介绍一下这四种文件的具体结构。<BR>1、编写C语言源程序的框架：<BR>C语言源程序（example.C），它包括三种函数：入口函数、输出函数和终止函数。其具体结构如下：<BR>/*************************************/<BR>/*
文件名： example.C */<BR>/*************************************/<BR>#include
<windows.h><BR>/***********入口函数***********/<BR>int FAR PASCAL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -