资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

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函数怎么用”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


新闻标题:VB.NETAPI函数怎么用
分享路径:http://cdkjz.cn/article/ggcpje.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220