如何提高调用Window API函数编程技巧

2008-04-09 04:42:20来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  一.创建临时文件

  ---- 临时文件用来保存软件运行过程中的临时变化,这对于熟悉WORD等软件的人来说,经常会遇到。那么临时文件是如何产生的呢,其实很简单,只需要一个API函数就可以。

  ---- 1.拷贝声明函数(方法同前)

   Private Declare Function GetTempFileName Lib "kernel32" _
  Alias "GetTempFileNameA" (ByVal lpszPath As String, _
  ByVal lpPrefixString As String, ByVal wUnique As Long, _
  ByVal lpTempFileName As String) As Long
  参数定义如下:

  lpszPath =传入保存临时文件的路径 ,如"C:\mytemp"

  lpPrefixString=传入临时文件名开始的前三个字母,

  起到帮助识别临时文件来源的作用。

  wUnique =0 ,windows随机产生文件名;否则安其值定义文件名。

  lpTempFileName=返回随机文件名

  ---- 2.返回临时文件名

Private Function GenTempName(sPath As String)
  Dim sPrefix As String
  Dim lUnique As Long
  Dim sTempFileName As String

  If IsEmpty(sPath) Then sPath = "c:\temp"
  sPrefix = "TVB"
  lUnique = 0 'windows随机给名

  sTempFileName = Space$(100)
  GetTempFileName sPath, sPrefix, lUnique, sTempFileName
  sTempFileName = Mid$(sTempFileName, 1,
  InStr(sTempFileName, Chr$(0)) - 1) '去掉多余空格
  GenTempName = sTempFileName
End Function

  ---- 3.将下面代码加入到form1_click()事件中

  MsgBox GenTempName("c:\temp")

-  --- 4.运行,鼠标点击form,弹出msgbox,显示生成"c:\temp\TVB724.tmp"文件,用文件管理器查看,在c:\temp下有TVB724.tmp 文件,长度为0K。

  ---- 需要注意的是,传入的路径必须是有效路径,否则GenTempName函数返回0,lpTempFileName中也没有临时文件名。

  二.结束语

  ---- 从上面可以看出,API函数的确简单高效,但也充满一些看似高深的变量而使人却步。我们不禁会问,究竟什么时候要用到API函数?具体哪些函数可以解决我的问题?,那些函数中的变量都代表什么?其实对这些问题,即使对一个VB高手也难给出明确的回答,因为API函数库实在太庞大了,每一个人最终只能熟悉其中的一小部分(这也可能是调用API的文章层出不穷的原因吧)。总结自己的一点经验,我觉得应该注意以下几点。

  ---- 1.熟练掌握VB基本技巧,了解其所能所不能,这是最基本的要求。

  ---- 2.了解WINDOWS内部控制机理,这样对一些复杂的问题就可以逐步分析其调用机制,初步确定采用哪部分的API函数来解决问题。

  ---- 3.案头必备一本最新的VB版的WINDOWS API 大全。

  ---- 4.多看别人的程序。报纸杂志,尤其是网上这方面的文章数不清。这是最快的方法。

  ---- 5.随用随查。永远不要在用不到的函数上浪费宝贵的时间


标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Windows Api在VB中的妙用

下一篇:VB的子类处理应用两例