VB6中如何调用API函数,比如调用WinExec函数

类别:.NET开发 点击:0 评论:0 推荐:

1、启动VB6
2、进入菜单:外接程序--外接程序管理器
      单击VB6 API Viewer
      勾选“在启动中加载”和“加载/卸载”
      按“确定”
3、进入菜单:外接程序--API 浏览器
      进入API浏览器的菜单:文件--加载文本文件
      选择:WIN32API.TXT
      进入API浏览器的菜单:文件--转换文本为数据库
      保存数据库名为WIN32API.MDB
      进入API浏览器的菜单:文件--加载数据库文件
      选择:WIN32API.MDB
      勾选API浏览器的菜单:视图--加载最后文件
      在API类型为“声明”的情况下,“键入你要查找的内容的开头几个字母”下面输入:“winexec“,下面就出现了WinExec这个函数
      选择“声明范围”为“私有”
      双击“可用项”中出现的WinExec函数
      “选定项”中就出现了下面的代码:
      Private Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
      按“插入”就将这个API函数声明入到了你当前的窗体的“通用”模块中。
4、接下来,你可以在窗体中调用这个API函数了,比如:
      WinExec "Explorer http://www.zjnu.edu.cn", SW_SHOWMAXIMIZED
      这里,SW_SHOWMAXIMIZED是API的一个预定义的常数,你可以在API浏览器中的API类型为“常数”类型中输入   SW_SHOWMAXIMIZED可以发出它实际上的定义为:Private Const SW_SHOWMINIMIZED = 2,你也可以利用这个预定的值直接写到API函数中:
WinExec "Explorer http://www.zjnu.edu.cn", 2
也是一个道理。
但这里,需要在窗体的通用模块中定义这个常量:
Private Const SW_SHOWMAXIMIZED = 3
这种常量的声明,还是需要在AIP浏览器中生成。方法是:
在API浏览器的“API类型”中选择“常数”,在“声明范围”中选择“私有”,在,“键入你要查找的内容的开头几个字母”下面输入“sw_showmaximized”这个常量,在“可用项”中就会出现它,双击这个找到的常量名,按“插入”按钮就把这行定义代码写到窗体的通用模块里去了。

参数nCmdShow 的取值有:
uCmdShow:定义了以怎样的形式启动程序的常数值,它与ShowWindow函数的 nCmdShow 参数总结的设置相同:
uCmdShow Long,为窗口指定可视性方面的一个命令。请用下述任何一个常数 SW_HIDE 隐藏窗口,活动状态给令一个窗口 SW_MINIMIZE 最小化窗口,活动状态给令一个窗口 SW_RESTORE 用原来的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOW 用当前的大小和位置显示一个窗口,同时令其进入活动状态 SW_SHOWMAXIMIZED 最大化窗口,并将其激活 SW_SHOWMINIMIZED 最小化窗口,并将其激活 SW_SHOWMINNOACTIVE 最小化一个窗口,同时不改变活动窗口 SW_SHOWNA 用当前的大小和位置显示一个窗口,不改变活动窗口 SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口,同时不改变活动窗口 SW_SHOWNORMAL 与SW_RESTORE相同
正文 

本文地址:http://com.8s8s.com/it/it42855.htm