注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

何丽杰的博客

任何地方, 只要你爱它,它就是你的世界。

 
 
 

日志

 
 

重温API基本用法  

2014-06-06 08:59:13|  分类: 疯狂计算机 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
学习了SQL入门经典后,查了好多关于SQL的知识点总结
例如:
感觉人家的才叫总结,各种到位,看来还要好好的锻炼自己

关于学生信息管理系统,也查了好多,有vb版本的,有vb.net 版本的,还有C++版本的

其中加载了不少API函数,对于API函数,总结一下,VB API函数的使用 教程
API是系统提供的一些函数、过程,用法比较简单,总的来说有三类。
使用API,可以在VB带的API浏览器里面查找到声明。以下声明均为窗体中使用的private

第一类API,是过程

  比如: Sleep ,让窗体休眠

  声明:Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

  在头部定义之后可以直接使用,跟VB里面的SUB一样

  用法:Sleep 休眠时间(毫秒)

  例如:Sleep 1000 ,就是让调用的程序挂起1秒

  推荐用法: Call Sleep (1000)

第二类API,是直接返回值

  比如: FindWindow ,查找指定窗体的句柄

  声明:Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

  在头部定义之后可以直接使用,跟VB里面的Function一样

  用法:

  Dim Handle As Long
  Handle = FindWindow(vbNullString, 查找的窗口标题)

  例如:

  Dim Handle As Long
  Handle = FindWindow(vbNullString, Me.Caption)

  查找自己的窗口句柄,可以与 Me.hWnd 对比看是否正确

  推荐用法: 同上

第三类API,为指定变量赋值,并返回是否成功

  比如: FindWindow ,查找指定窗体的句柄

  声明:Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

  在头部定义之后可以直接使用,跟VB里面的Function一样

  用法:
  Doit = GetUserName(UserName, 255)

  得到的UserName 就是当前电脑的用户名

  例如:

  Dim UserName As String
  Dim Doit As Long
  UserName = Space(255) ' 申请空间,用空格填充,没有这一步不行,因为这一类API不会自动申请空间
  Doit = GetUserName(UserName, 255) '把用户名赋到变量中,结尾是chr(0)
  UserName = Left(UserName, InStr(1, UserName, Chr(0)) - 1)   '从chr(0)后面都不要了,只取前面

  Doit是返回的值,跟第二类的一样,这个返回值是指示操作是否成功,非零表示成功

  推荐用法: 同上
        API种类很多,不过基本用法就是这三类了

亲爱的们,总结提高,好好加油哈!!!
  评论这张
 
阅读(65)| 评论(18)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017