api入门 菜新 vbgood.docx
《api入门 菜新 vbgood.docx》由会员分享,可在线阅读,更多相关《api入门 菜新 vbgood.docx(31页珍藏版)》请在冰豆网上搜索。
api入门菜新vbgood
Api教程菜新vbgood
Api教程菜新vbgood1
[原创]VBAPI中级入门(接VBAPI初级入门)
(一)5
[原创]VBAPI中级入门
(二)菜新作品10
[原创]VBAPI初级入门(新手必看。
注意:
不是广告)
接受网友的意见,写了一篇关于VBAPI的文章,希望大家能从中学到一些知识。
一、API是什么?
这个我本来不想说的,不过也许你知道其它人不知道,这里为了照顾一下新手,不得不说些废话,请大家谅解。
Win32API即为Microsoft32位平台的应用程序编程接口(Application ProgrammingInterface)。
所有在Win32平台上运行的应用程序都可以调用这些函数。
使用Win32API,应用程序可以充分挖掘Windows的32位操作系统的潜力。
Mircrosoft的所有32位平台都支持统一的API,包括函数、结构、消息、宏及接口。
使用Win32API不但可以开发出在各种平台上都能成功运行的应用程序,而且也可以充分利用每个平台特有的功能和属性。
以上为API的相关介绍,不过有些新手看了以后可能还是不怎么明白API到底有什么用?
这里请不要着急,如果你有足够耐心的话,请慢慢往下看。
二、如何使用API?
估计这才是大家真正关心的,那么如何使用API呢?
在了解API之前,先打开你的VB书,翻到过程函数这章来,在搞清楚API之前应该先搞懂过程函数是怎么一回事!
如果你还不知道过程的工作方式,那么请先不要急着往下看,那样容易走很多弯路。
好了,当你理解了过程函数时,也就是你可以使用API的时候了,别把API看得太难,你就像使用过程函数一样使用API就可以了。
首先,让我们看看一个简单的API,以下:
PrivateDeclareSubSleepLib"kernel32"Alias"Sleep"(ByValdwMillisecondsAsLong)
以上这个API的呢是起一个延时作用。
你如果是刚接触API的话可能会感到API的书写及其复杂,而且会感到很不适应。
其实这没什么的,慢慢习惯就好了。
至于API这些复杂的书写你就不用操心了,在你安装VB的时候微软已经帮我们带上了API浏览器,这些全部都可以利用API浏览器帮我们自动生成。
API浏览器的位置位于[开始菜单-程序-MicrosoftVisualBasic6.0中文版-MicrosoftVisualBasic6.0中文版工具-API文本浏览器]。
打开API浏览器,在最上面的一个文本框中输入Sleep,这时下面列表框中就会自动显示相应的API函数,然后点右边添加按钮即可,接着点击复制按钮,这时你就可以用Ctrl+V把声明的API添加到VB代码窗口中了。
这里我要说一下,有些新手可能还弄不明白。
API的声明范围一般有两种模式,一种是Private(私有的),一种是Public(公用的)。
一般Private是声明在类模块或窗体类中,Public声明在模块中。
你在添加API的时候,添加按钮下面就有API的声明范围,可以根据自己的需要进行添加。
这里我们一般选择私有的(Private)就可以了。
经过上面,我们知道如何添加API,接着我们分析一下API声明,这是你了解API必备的。
首先看第一个单词Private,很显然,我上面刚刚讲过,这是申明一个私有的API变量。
再看第二个Declare,这个单词帮我们告诉VB是在申明API函数,一般申明外在的API函数时都必须带上这个单词。
第三个Sub,别告诉我你不知道什么意思?
这就是我叫你先学习VB中过程函数的意思,这个说白了就是没有反回值,一般如果不是Sub而是Function都带有反回值的。
第四个Lib,这个是告诉VB我们要声明哪一个DLL中的API函数,也就是告诉VB我们要申明第五个单词kernel32.dLL中的API,一般写DLL名称时都要用双引号括起来,如"user32"、"shell32.dll"等,至于后面的.dll这个可以带可不带。
再来看第六个Alias,这个也是需要同后面一个一起用的,我们应该把第六个和第七个连起来一起看Alias"Sleep",这个意思表示将被调用的过程在DLL中还有另外的名称,这个是可选的。
最后括号里面的,也就是和过程函数一样,你传入相应的值就可以了。
上面我们分析完API函数声明以后,接着我们就要自己动手写代码了。
先把这个API复制到Form1代码窗口中,然后写如下代码:
PrivateDeclareSubSleepLib"kernel32"(ByValdwMillisecondsAsLong)
PrivateSubForm_Load()
Sleep2000
EndSub
解释一下,也就是在窗体启动时使用SleepAPI进行延时2秒,后面的参数dwMilliseconds是表示你要延时的秒数,基本上和设置Timer中的秒数一样。
你再看一下Sleep 2000的使用方式,是不是和使用VB过程函数一样呢?
好了,我们的第一个VBAPI程序写完了,可以看到使用API并不是一件很难的事。
三、如何才能提升你对API的学习兴趣?
API,我常把它看做成过程函数,不过每人都有每人的见解和理解方式,自己的理解方式只要可以帮助自己更好的学习和掌握API,也没必要一定要学习他人的。
1,自己做MsgBox
了解API参数的使用方法是很重要的,这里我们不用VB的MsgBox,直接使用API弹出MsgBox消息框。
首先,打开API浏览器,选择MessageBox,大家可以用这个API和VB内置的MsgBox比较一下,其实MsgBox也就是MessageBox的缩写,只不过一个是API,一个是VB内置的,但两者都是通过API进行工作的。
好了,选择私有声明方式,粘贴到VB代码编辑窗口中,然后新建一个CommandButton,写入以下代码:
PrivateDeclareFunctionMessageBoxLib"user32"Alias"MessageBoxA"
(ByValhwndAsLong,ByVallpTextAsString,ByVallpCaptionAsString,
ByValwTypeAsLong)AsLong
PrivateSubCommand1_Click()
MessageBoxMe.hwnd,"这里是内容","标题",0
EndSub
先让我们来分析一下,首先看第一个参数ByvalhWndAsLong,很显然这是一个长整形变量,所以我们这里需要传递的是数字,你可能会发现我们传递的并不是数字啊,而是Me.hwnd?
?
很奇怪是吗?
如果你真的有此疑问说明你是真心想要学习好API的,现在就让我们来看看Me.hwnd到底是什么东西?
以下摘自VB帮助文档:
hWnd属性:
返回窗体或控件的句柄。
句柄:
是由操作环境定义的一个唯一的整数值,它被程序用来标识或者切换到对象,如窗体或控件等。
现在估计你差不多就已经明白了,我们调用的hwnd其实是一个句柄整数值,你可以用MsgboxMe.hwnd 看一下就知道了。
至于Me这是一个关键字,代表当前Form窗体对象。
如:
Me.Caption="标题"、Me.BackColor=vbRed等。
接上面的,首先我们传入了Me.hwnd,表示是当前窗口调用MessageBox,这里告诉大家一个技巧,也就是以后凡是看到ByvalhwndAsLong,一般都是需要传入句柄的,至于传入哪个对象句柄,那就要看你是怎么实现的了。
ByVallpTextAsString,这个是字符串变量,标识着叫我们需要传入字符串进去,可以看里面的变量字符lpText,属于文本的意思,也就是说是用来显示MsgBox中的消息文本的。
ByVallpCaptionAsString,也是字符串变量,还是传入字符串进去。
在看里面的变量字符lpCaption,其实就是显示MsgBox标题的。
ByValwTypeAsLong,这是一个整形变量,需要传递整形数字,还是看里面的变量字符wType,标识着显示MsgBox类型,这里可以像VB的MsgBox一样使用,如这里可以传入:
vbYesNo,vbOkCancel等,如果忽略那就传入0即可。
好了,按F5启动程序,点击Command1,接着就会弹出一个消息框,这里我们制作以及分析MsgBox已经完成了。
希望你能在这段学习到一些知识。
2,来点实用的吧
就拿隐藏Windows任务管理器来说吧,这里只能隐藏任务管理器中的窗口,不能隐藏进程。
(问:
有没有隐藏进程的?
答:
你想干什么?
),当程序运行后你无法从任务管理器的窗口中关闭程序,只能从进程中进行终止。
好了,还是老规矩,打开API浏览器,输入GetWindow和ShowWindow两个API,声明范围还是私有的,复制粘贴到Form代码窗口中,嗯,好了?
别急,还是API浏览器,选择Combox中的常数,输入GW_OWNER和SW_HIDE这两个API常数,然后粘贴到代码窗口中,问我这两个是干什么的?
那就接着往下看吧。
写入以下代码:
PrivateDeclareFunctionGetWindowLib"user32"(ByValhwndAsLong,
ByValwCmdAsLong)AsLong
PrivateDeclareFunctionShowWindowLib"user32"(ByValhwndAsLong,
ByValnCmdShowAsLong)AsLong
PrivateConstGW_OWNER=4
PrivateConstSW_HIDE=0
PrivateSubForm_Load()
DimlphWndAsLong
lphWnd=GetWindow(Me.hwnd,GW_OWNER)
ShowWindowlphWnd,SW_HIDE
EndSub
又到了分析的时候了,这对刚入门的新手可谓是最激动的时候了。
好了,还是老子,看看两个API的表面意思和传递值变量。
先看GetWindow,表面意思:
获取窗口。
传递值变量:
hWnd整形句柄,wCmd整形命令值。
再看ShowWindow,表面意思:
显示窗口。
传递值变量:
hWnd整形句柄,nCmdShow整形命令值。
然后是使用代码,先看lphWnd=GetWindow(Me.hwnd,GW_OWNER)这句,这句意思是获取当前窗口的所有者窗口句柄,可以看到GetWindow是Function过程函数,执行以后会返回相应的窗口句柄值,这个值为Long整形(同句柄)。
接着调用ShowWindowlphWnd,SW_HIDE,这句意思是显示lphwnd这个句柄的窗口,关键一句是最后的SW_HIDE,这是API函数的常量。
通过设置常量能让系统知道API到底应该怎么执行显示窗口,是显示?
还是隐藏?
Hide当然是隐藏的意思。
好了,编译成Exe,运行后打开任务管理器,查看程序窗口,还有吗?
我又要说一下了,有些人可能不懂为什么要用GW_OWNER这些常量,这些到底有什么用?
还有就是我怎么知道哪些API对应哪些的常量?
其实这些常量你只要稍微注意一下就知道它们是怎么回事了,如在GetWindow中我使用GW_OWNER,在ShowWindow中我使用SW_HIDE这些常量都有一个共同的特点,就是他们都是以API的单词第一个字母为标准。
如GetWindow相对应的常量就是Get(G)Window(W)=GW,ShowWindow相对应的常就是Show(S)Window(W)=SW,这些常量可以自己在VB的API浏览器中找找看。
3,我还想写下去,不过我不知道写得怎么样,先发出来看看大家的反应再说。
大家如果发现有什么不对的地方尽请指出,我接受大家的批评。
。
。
。
[原创]VBAPI中级入门(接VBAPI初级入门)
(一)
阔别多日,这次再让我们回到VBAPI的神奇世界中。
鉴于上次文章作品给网友们的反响很大,并强烈要求继续写下去,所以这些天特意抽了一点点时间。
不过最近因为身体很不适,所以坐在电脑前的时间也比以前少了,以致拖到现在才把文章发布出来。
呵呵,好了,废话不多说了,转入正题。
这次咱们来深入了解API在VB程序中的运用,并且有些复杂的API使用可能会使你感到很悲观,不过我会尽量用最容易让人理解的方式表达出来。
注:
如果你是一个刚入门API的初学者,那么请你先看看关于我写的初级API入门教程,也许会对了解API有帮助,地址:
一、API的类型结构。
API的类型结构与VB中差不多,一般声明时使用Type定义类型。
如果你不懂的话麻烦你先打开你的VB入门教程书看看。
好了,文字理论咋不多说,用实例证实理论(偶喜欢这句话)。
1,在Form窗体上用API画文字,最初了解类型结构填充
;PrivateDeclareFunctionDrawTextLib"user32"Alias"DrawTextA"(ByValhdcAsLong,ByVallpStrAsString,ByValnCountAsLong,lpRectAsRECT,ByValwFormatAsLong)AsLong
;PrivateConstDT_CENTER=&H1
;PrivateTypeRECT
LeftAsLong
TopAsLong
RightAsLong
BottomAsLong
EndType
PrivateSubForm_Load()
DimlpRectAsRECT
Me.AutoRedraw=True
Me.ScaleMode=3
'填充结构
WithlpRect
.Left=0
.Top=0
.Right=Me.ScaleWidth
.Bottom=Me.ScaleHeight
EndWith
DrawTextMe.hdc,"这是文字效果",-1,lpRect,DT_CENTER
EndSub
好了,咱们开始分析,首先看Form_Load里面的代码。
DimlpRectAsRECT。
这一句是声明一个RECT自定义类型,这个类型可在VB浏览器的类型中找到。
Me.AutoRedraw=True。
这一句其实就是设置当前窗体的AutoRedraw属性,设为True,表示持久输出图像。
不懂查帮助。
Me.ScaleMode=3。
设置当前窗体的像素模式。
至于为啥要设置为3,下面将会讲到。
WithlpRect...EndWith。
从With到EndWith为填充咱们声明的lpRect类型结构。
具体看里面的。
.Left=0。
这里相当于x坐标的初始值。
.Top=0。
这里相当于y坐标的初始值。
.Right=Me.ScaleWidth。
Right表示从Left开始的宽度。
这里赋值为Me.ScaleWidth表示当前窗体像素的宽度。
.Bottom=Me.ScaleHeight。
同上。
Bottom表示从Top开始的高度。
Me.ScaleHeight表示当前窗体像素的高度。
关键的就是下面一句,是它帮助我们在窗体中画出文字的。
这里说一下为什么需要把当前窗体的坐标度量单位(ScaleMode)改成3(Pixel像素),因为Windows不管画什么都是以像素为单位,所以我们为了确定咱们所画的文本显示在正常位置,就必须使用像素为单位!
明白了么?
?
(问:
还是不明白?
答:
默默无语两眼泪啊~~)
DrawTextMe.hdc,"这是文字效果",-1,lpRect,DT_CENTER
现在分析这条API。
看看里面需要传入的参数:
ByValhdcAsLong,ByVallpStrAsString,ByValnCountAsLong,lpRectAsRECT,ByValwFormatAsLong
ByValhdcAsLong。
hdc为Long整形,所以应该传入数值,不过给大家一个技巧,以后凡是看到hdc这个变量字符,表示需要传入的为一个hdc句柄,注意可不是hwnd句柄哦!
这个句柄窗体和Picture控件都有,大家注意看就是了。
ByVallpStrAsString。
传入字符串。
这里就是咱们需要画到窗体上的文本。
ByValnCountAsLong。
传入数值。
看看里面的声明字符nCount,可以看出来这与数目有关,与什么数目呢?
当然是文本罗。
也就是说要显示的字符个数,一般如果需要全部显示出来可设为-1即可,表示显示所有字符。
lpRectAsRECT。
一个Rect类型,这里需要使用Rect类型,上面我们已经在API浏览器找到了这个类型并声明了,所以只需要传入相应的类型声明就可以了。
不过这次与我上一次讲的有所不同,上次是通过API类型结构获取相关的信息,而这次需要你把API类型结构填充好以后再传入进去。
希望大家在这里注意下。
可能有人要问了,那为什么这次就要这么做?
我的回答是:
因为API并不是万能的和灵活的,有的时候需要我们人为的设置一些参数来完成自己所需要这个API的功能,大家可以通过上面的结构填充就可知道,我们所要画文本的整个范围就是整个Form窗体的范围啊!
ByValwFormatAsLong。
传入数值,不过可以看看nFormat声明字符,可以想像这里可能需要传入这个API的使用格式,就如我们前面所讲的那样。
现在打开API浏览器,在常数中找找,输入这个API的开头,Draw(D)Text(T)=DT_,可以看到有很多吧。
具体这些都是什么意思可以查查相关的API资料。
这里我们只传入了一个DT_CENTER常数,意思是居中显示。
默认可以为0,因为这里为文字显示格式,所以你什么格式也不想要的话可设为0以后文字显示在左上角。
OK。
F5运行之。
。
。
窗体中间正常显示“这就是文字效果”的几个文字。
至此这里API相关结构的填充与获取我不想再多说了,不懂的话建议把我以前发的API入门帖子与这里的第一小节一起看看,或许你会明白些什么?
?
二、Windows消息
可以说这节是本文中的重点,当你能理解该节中的所有内容时,我相信你已经可以用该方法写出不错的程序功能了,好了,不说多了,接着往下来看。
在了解消息之前,先让我们看看Windows消息到底是什么?
Windows系统是一个消息驱动的OS,所以操作都是基本消息驱动的,这就好比我用鼠标按下一个按钮,这时Windows会先发送该鼠标的左键按下消息,也就是WM_LBUTTONDOWN到你按下的那个CommandButton,这时就会激发按钮的CommandButton_MouseDown事件,然后松开鼠标,Windows这时会发送WM_LBUTTONUP消息,激发CommandButton_MouseUp事件,说明该鼠标按键已经弹起(松开),这时就会激发咱们VB中的CommandButton_Click事件,所以你点击某个按钮以后就会执行相应的操作。
这里我不想说得太深太复杂,只是想以这种简单的理解方式让你明白Windows消息到底是什么,也许说得太含糊,但是对你第一次理解这东西已经足够了!
实践1:
现在就让我们以消息来写一个入门程序,先是打开VB(问:
废话。
答:
……),然后打开API浏览器(问:
早打开了。
答:
……),然后在API浏览器找到SendMessage,再然后在API常数中找到WM_CLOSE,好了,在VB工程中新建一个标准EXE,添加一个Command1按钮,写入以下代码:
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
PrivateConstWM_CLOSE=&H10
PrivateSubCommand1_Click()
SendMessageMe.hwnd,WM_CLOSE,0,ByVal0&
EndSub
好了,先看看SendMessage这个API,第一个参数,hWnd为Long,所以传入一个对象的句柄,第二个参数wMsg同样为Long,这里要说一下,在该API的第二个参数,大多数都是传入以WM_为开关的常数,希望大家注意!
第三个wParam也是Long,该参数的意思大多数是取决于第二个参数uMsg,这里传入的常数是WM_CLOSE,所以这里输入0即可,最后一个参数,lParam为Any,Any是什么意思这里我说一下,也就是是说明该参数可以指定为任何标准数据类型,允许将任意数据类型传递给该参数!
希望你明白,该参数的值也是取决于uMsg。
再看看Command1_Click事件中的代码,其中使用了SendMessageAPI,第一个是当前的窗口句柄,至于什么是句柄我在API初级入门时讲过,第二个为WM_CLOSE常数消息,也就是说给当前窗口发送关闭消息,第三、四个参数分别为0,具体参数我已经说过,取决于你在uMsg传入的常数。
现在F5运行点击Command1按钮试试。
小提示:
注意这里的句柄当然也可以输入其它窗口的句柄,执行效果同上面一样,可以关闭你传递的那个句柄窗口!
自己试一下,具体怎么获取窗口句柄我在VB初级入门时讲过,自己去试试吧!
!
!
实践2:
现在我们开始第二个消息程序,还是使用SendMessage,这次我们是要给一个按钮传递Click(点击)事件,最近貌似有些人在问这个问题?
现在就写出来大家实践实践。
新建一个标准EXE,添加两个CommandButton控件,分别为Command1和Command2,然后输入以下代码:
PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong
PrivateConstBM_CLICK=&HF5
PrivateSubCommand1_Click()
SendMessageCommand2.hwnd,BM_CLICK,0,ByVal0&
EndSub
PrivateSubCommand2_