VB.NETAPI函数怎么用

这篇文章主要为大家展示了“VB.NET API函数怎么用”，内容简而易懂，条理清晰，希望能够帮助大家解决疑惑，下面让小编带领大家一起研究并学习一下“VB.NET API函数怎么用”这篇文章吧。

做网站、成都网站建设,成都做网站公司-成都创新互联已向近1000家企业提供了,网站设计,网站制作,网络营销等服务!设计与技术结合,多年网站推广经验,合理的价格为您打造企业品质网站。

程序中判定Windows的版本
众所周知，Windows3.x各版本或多或少会有些差别，为了使开发程序避免出现莫名其妙的错误，***在程序运行前自动判定Windows的版本。采用API提供的函数getversion很容易实现这一点。函数声明如下： Declare Function GetVersion Lib"Kernel"() As Integer 此函数没有参数，返回值为Windows的版本号，其中版本号的低位字节为Windows的主版本号，版本号的高位字节返回Windows的次版本号。判别过程如下：

Private Sub Form_Load ()   Dim ver As Integer   Dim major As Integer   Dim minor As Integer   Ver = GetVersion ()   major = ver And ＆HFF   minor = (ver And ＆HFF00) \ 256   If major <> 3 And minor <> 10 Then   MsgBox "版本不正确!"   Exit Sub   End If   End Sub

程序中判断Windows的安装目录
一般VB开发出来的程序包含vbrun300.dll等辅助文件和.vbx文件，它们均需安装到Windows目录(c:\windows)或Windows的系统目录(c:\windows\system)下，但因为用户安装Windows时可能会改变Windows的目录名(如c:\windows)，使用安装软件后，不能正确运行.API中提供的GetwinDowsdirectory或GetSystemDirectory较好地解决了这个问题。函数声明如下：

Declare Function GetSystemDirectory Lib "Kernel"(ByVal lpBuffer As   String,ByVal nSize As Integer) As Integer

其中参数lpbuffer为字串变量，将返回实际Windows目录或Windows的系统目录，nsize为lpbuffer的字串变量的大小，函数返回值均为实际目录的长度。检查VB.NET API函数如下：

Function checkdir() As Boolean   Dim windir As String ＊ 200   Dim winsys As String ＊ 200   Dim winl As Integer   Dim wins As Integer   Dim s1 As String   Dim s2 As String   winl = GetWindowsDirectory(windir,200)   winl = GetSystemDirectory(winsys,200)   s1 = Mid ＄(windir,1,winl)   s2 = Mid ＄(winsys,1,wins)   If Wins = 0 Or wins = 0 Then   checkdir = False   Exit Function   End If   If s1 <> "C:\WINDOWS" Or s2 <> "C:\WINDOWS\SYSTEM" Then   checkdir = False   Exit Function   End If   checkdir = True   End Function

shell 出现的问题
通常编程时要调用外部程序，VB提供了shell()函数，但是如果shell调用的外部程序找不到，则运行的程序失去控制，VB给出提示"filenotfound"，改变这种现象，要在程序中加入onerrorgoto，比较麻烦，VB.NET API函数中的winexec很好地解决了这个问题。函数声明如下：

Declare Function WinExec Lib "Kernel"(ByVal lpCmdLine As String,   ByVal nCmdShow As Integer) As Integer

其中lpCmdline为调用的外部文件名，NcmdShow为外部程序的运行状态，如隐藏窗口、最小化窗口等等。如返回值大于32表示执行功能，否则返回错误码。例程如下：

sub command1_click   ds i as integer   i=winexec("notepad.exe","c:\wst.txt",9)   '参数9 即SW_RESTORE,也就是激活并显示窗口   if i>32 then   msgbox "调用正确!!"   else   msgbox "调用错误!!"   end if   end sub

以上是“VB.NET API函数怎么用”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！