vb.net中有API吗?

songenfu 2003-08-25 11:51:24
如果有在哪能找到?
...全文
204 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
hpfeng 2003-08-25
  • 打赏
  • 举报
回复
在help里 查win32 api
fankun 2003-08-25
  • 打赏
  • 举报
回复
我晕,什么语言用不上API啊这是问题吗
okyzx2 2003-08-25
  • 打赏
  • 举报
回复
有呀,和VB6声明基本上一样,不一样的就是声明的类型
下载个API VIEWER就可以了
http://www.activevb-archiv.de/downloadstore/apiviewer/apv2003.exe

但是:
.NET中已经集成了很多类,功能包括了所有的API
API已经用不上了.

lihonggen0 2003-08-25
  • 打赏
  • 举报
回复

在 API 调用中使用 Declare 和 MarshalAs

确定要调用的函数的名称、函数的参数、数据类型以及返回值。
若要简化对 MarshalAs 属性的访问,请向类或模块的代码顶部添加一条 Imports 语句,如下例所示:
Imports System.Runtime.InteropServices
将导入函数的函数原型添加到您正在使用的类或模块的声明部分,并将 MarshalAs 属性应用到参数或返回值。在以下示例中,要求类型为 Void* 的 API 调用可作为 UnmanagedType.AsAny 封送:
Declare Sub SetData Lib "..\LIB\UnmgdLib.dll" (ByVal x As Short, _
<MarshalAsAttribute(UnmanagedType.AsAny)> ByVal o As Object)
使用 DllImport 的 API 调用
DllImport 属性提供了在没有类型库的 DLL 中调用函数第二种方法。DllImport 大致等效于使用 Declare 语句,但它在如何调用函数方面提供了更多的控制。

可以将大多数 Windows API 调用与 DllImport 一起使用,只要该调用引用的是共享(有时称为“静态”)方法就可以。不能使用需要类实例的方法。与 Declare 语句不同,DllImport 调用不能使用 MarshalAs 属性。

使用 DllImport 属性调用 Windows API

通过在“文件”菜单上单击“新建”,然后单击“项目”,打开一个新的“Windows 应用程序”项目。即会出现“新建项目”对话框。
从 Visual Basic 项目模板的列表中选择“Windows 应用程序”。将显示新项目。
将一个名为 Button2 的按钮添加到启动窗体上。
双击 Button2 打开窗体的代码视图。
要简化对 DllImport 的访问,请向启动窗口类的代码顶部添加一条 Imports 语句:
Imports System.Runtime.InteropServices
在 End Class 语句之前为窗体声明一个空函数,并将函数命名为 MoveFile。
将 Public 和 Shared 修饰符应用到函数声明中,并基于 Windows API 函数使用的参数来设置 MoveFile 的参数:
Public Shared Function _
MoveFile(ByVal src As String, ByVal dst As String) As Boolean
' Leave the body of the function empty.
End Sub
函数可以有任意一个有效的过程名;DllImport 属性指定 DLL 中的名称。它还为参数和返回值处理互操作封送处理,因此可以选择与 API 使用的数据类型相似的 Visual Studio .NET 数据类型。

将 DllImport 属性应用到空函数中。第一个参数是包含要调用的函数的 DLL 的名称和位置。不需要为位于 Windows 系统目录中的文件指定路径。第二个参数是一个命名参数,指定 Windows API 中的函数名称:
<DllImport("KERNEL32.DLL", EntryPoint:="MoveFileW", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function _
MoveFile(ByVal src As String, ByVal dst As String) As Boolean
' This function copies a file from the path src to the path dst.
' Leave function empty - DllImport attribute forces calls
' to MoveFile to be forwarded to MoveFileW in KERNEL32.DLL.
End Function
将代码添加到 Button2_Click 事件处理程序以调用函数:
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button2.Click
Dim RetVal As Boolean
RetVal = MoveFile("c:\tmp\Test.txt", "c:\Test.txt")
If RetVal = True Then
MsgBox("The file was moved successfully.")
Else
MsgBox("The file could not be moved.")
End If
End Sub
创建名为 Test.Txt 的文件并将其放在您硬盘的 C:\Tmp 目录下。如果有必要,可创建 Tmp 目录。
按 F5 键启动该应用程序。将显示主窗体。
单击 Button2。若文件可以移动,则显示“The file was moved successfully.”。
请参见
Declare 语句剖析 | Declare 语句 | DllImportAttribute 类 | MarshalAsAttribute 类 | Auto | Alias | Lib | COM Interop | 在托管代码中创建原型 | Callback 示例


© 2002 Microsoft Corporation。保留所有权利。
lihonggen0 2003-08-25
  • 打赏
  • 举报
回复
Visual Basic 语言概念

演练:调用 Windows API请参见
Declare 语句剖析 | Declare 语句 | DllImportAttribute 类 | MarshalAsAttribute 类 | Auto | Alias | Lib | COM Interop | 在托管代码中创建原型 | Callback 示例
Windows API 是作为 Windows 操作系统一部分的动态链接库 (DLL)。当难以自己编写等效的过程时,可以使用它们来执行任务。例如,Windows 提供一个名为 FlashWindowEx 的函数,能够使您让应用程序的标题栏交替显现深色和浅色。

在代码中使用 Windows API 的好处在于它们可以节省开发时间,因为它们包含许多已经编写好的、等待使用的有用函数。缺点是在发生故障时,Windows API 可能难以处理并且不可挽回。

Windows 动态链接库 (DLL) 表示一个专门的互操作类别。Windows API 不使用托管代码,不具备内置类型库,它使用的数据类型与 Visual Studio .NET 中所用的数据类型不同。由于这些差别,且 Windows API 不是 COM 对象,所以与 Windows API 和 .NET 平台的互操作是通过使用平台调用 (PInvoke) 来完成的。平台调用是一种服务,它使托管代码能够调用 DLL 中实现的非托管函数。有关更多信息,请参阅使用非托管 DLL 函数。通过使用 Declare 语句或将 DllImport 属性应用到一个空过程,可以在 Visual Basic ,NET 中使用 PInvoke。

Windows API 调用过去曾是 Visual Basic 编程中很重要的一部分,但在 Visual Basic .NET 几乎不必要了。只要有可能,应该使用 .NET 框架中的托管代码而不是 Windows API 调用来执行任务。本演练提供有关那些一定要使用 Windows API 的场合的信息。

使用 Declare 的API 调用
调用 Windows API 最常用的方法是通过使用 Declare 语句。

声明 DLL 过程

确定要调用的函数的名称及其参数、参数类型和返回值,以及包含该函数的 DLL 的名称和位置。
注意 有关 Windows API 的完整信息,请参阅 Platform SDK Windows API 中的 Win32 SDK 文档。有关 Windows API 使用的常数的更多信息,请检查包含在 Platform SDK 中的头文件,如 Windows.h。
通过在“文件”菜单上单击“新建”,然后单击“项目”,打开一个新的“Windows 应用程序”项目。即会出现“新建项目”对话框。
从 Visual Basic 项目模板的列表中选择“Windows 应用程序”。将显示新项目。
将以下 Declare 函数添加到项目启动窗体的声明部分,或是添加到要使用 DLL 的类或模块的声明部分中:
Declare Auto Function MBox Lib "user32.dll" _
Alias "MessageBox" (ByVal hWnd As Integer, _
ByVal txt As String, ByVal caption As String, _
ByVal Typ As Integer) As Integer
Declare 语句的各个部分
Declare 语句包括以下元素。

Auto 修饰符
Auto 修饰符指导运行库根据公共语言运行库规则(或已指定的别名)转换基于方法名的字符串。

Lib 与 Alias 关键字
紧跟 Function 关键字之后的名称就是您的程序用来访问导入函数的名称。它可以与正在调用的函数的实名相同,或者可以使用任何有效的过程名,然后使用 Alias 关键字来指定正在调用的函数的实名。

指定 Lib 关键字,这个关键字后面紧跟包含正在调用的函数的 DLL 的名称和位置。不必为位于 Windows 系统目录下的文件指定路径。

如果正在调用的函数的名称不是一个有效的 Visual Basic 过程名,或与应用程序中其他项的名称冲突,请使用 Alias 关键字。Alias 指示正在调用的函数的实名。

参数和数据类型声明
声明参数及其数据类型。这一部分可能具有挑战性,因为 Windows 使用的 Windows 数据类型与 Visual Studio 数据类型不对应。通过将参数转换为可兼容的数据类型(称为“封送处理”的过程),Visual Basic 帮您做了大量工作。通过使用在 System.Runtime.InteropServices 命名空间中定义的 MarshalAs 属性,可以显式地控制参数封送的方式。

注意 Visual Basic 的早期版本允许声明参数 As Any,这意味着可以使用任意数据类型的数据。Visual Basic .NET 要求所有声明语句使用特定的数据类型。
Windows API 常数
有些参数是多个常数的组合。例如,本演练中所示的 MessageBox API 接受一个称为 Typ 的整型参数,它控制消息框的显示方式。通过检查 WinUser.h 文件中的 #define 语句,可以确定这些常数的数值。这些数值通常以十六进制表示,因此可能需要使用计算器来将这些数值相加,然后转换为十进制。例如,若要组合感叹号样式 MB_ICONEXCLAMATION 0x00000030 和“是/否”样式 MB_YESNO 0x00000004 的常数,可以将这些数字相加并得到结果 0x00000034(十进制数 52)。尽管可以直接使用十进制结果,最好还是在应用程序中将这些值声明为常数,并使用 Or 运算符将其组合。

为 Windows API 调用声明常数

可在文档中查找正在调用的 Windows 函数,并确定该函数使用的常数的名称以及包含有这些常数数值的 .h 文件的名称。
使用一个文本编辑器(如“记事本”)查看 .h 文件的内容,并查找与正在使用的常数相关的值。例如, MessageBox API 使用常数 MB_ICONQUESTION 在消息框中显示问号。MB_ICONQUESTION 的定义在 WinUser.h 中,形式如下所示:
#define MB_ICONQUESTION 0x00000020L
将等效的 Const 语句添加到类或模块的声明部分,以使这些常数可用于您的应用程序。例如
Const MB_ICONQUESTION = &H20L
Const MB_YESNO = &H4
Const IDYES = 6
Const IDNO = 7
调用 DLL 过程

将一个名为 Button1 的按钮添加到项目的启动窗体,然后双击它查看其代码。将显示该按钮的事件处理程序。
将代码添加到已添加按钮的 Click 事件处理程序中来调用该过程,并提供适当的参数:
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
Dim RetVal As Integer ' Stores the return value.
RetVal = MBox(0, "Declare DLL Test", "Windows API MessageBox", _
MB_ICONQUESTION Or MB_YESNO)
' Check the return value.
If RetVal = IDYES Then
MsgBox("You chose Yes")
Else
MsgBox("You chose No")
End If
End Sub
通过按 F5 键运行项目。将显示带有“是”和“否”响应按钮的消息框。单击任何意一个按钮。
数据封送处理
Visual Basic .NET 自动转换参数的数据类型,并为 Windows API 调用返回值,但是可以使用 MarshalAs 属性显式指定 API 要求的非托管数据类型。有关互操作封送处理程序的更多信息,请参阅 Interop 封送处理

16,554

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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