一组VB应用技巧

路径问题

很多程序员在打开文件、调用程序时喜欢使用绝对文件路径,结果在另一台计算机上运行时便会遇到路径不对或需要重新拷贝到该目录的问题。其实，只要使用相对路径，就完全可以避免这个问题。在Windows下，某个程序一旦运行，除非特别指定了工作目录，一般该程序文件所在的目录就是工作目录，其他目录可以用工作目录为参照系。在编程中"App.Path"即为当前工作目录。另外，用安装程序向导制作安装盘时，只要在步骤"文件小结"中添加某文件时指定"文件详细资料"的路径即可安装该文件到指定的目录下。

生成透明窗体

利用API函数可做出透明窗体。以下为一种方法：
Me.AutoRedraw = True
　　 hBitmap = CreateCompatibleBitmap(Me.hdc, 0, 0)
　　 SelectObject Me.hdc, hBitmap

调用Bitblt API函数

在编程中我们经常遇到需要拷贝图形的问题,一般利用API函数Bitblt或Stretchblt(后者可缩放).
Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC
As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long,
ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long,
ByVal ySrc As Long, ByVal dwRop As Long) As Long
Declare Function StretchBlt Lib "gdi32" Alias "StretchBlt" (ByVal
hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long,
ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long,
ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As
Long, ByVal dwRop As Long) As Long
当所拷贝的图形为画图语句所创建时,有时就会出现拷贝不上去的毛病,这时不用着急,请确认在拷贝之前对所画的图形进行刷新,即调用Refresh方法.

Findwindow()函数用法

要使用此函数,先从API VIEW中拷贝如下的FindWindow()函数的声明：
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
这个函数有两个参数，第一个是要找的窗口的类，第二个是要找的窗口的标题。在搜索的时 候不一定两者都知道，但至少要知道其中的一个。有的窗口的标题是比较容易得到的，所以应使用标题进行搜索。但有些软件的标题是不固定的，如一些MDI程序，如果打开的文 件不同，窗口标题也不同，这时使用窗口类来搜索就比较方便。如果找到了满足条件的窗口，这个函数会返回该窗口的句柄，否则返回0。前面提到的VB的FindWindow()函数的声明将两个参数都定义为String类型，而在实际使用过 程中，如果我们要忽略某个参数，应将该参数的定义由
As String改为As Any。这里的As Any相当 于C语言中的强制类型转换。例如，如果我们忽略窗口的类，应将定义修改如下：
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As Any, ByVal lpWindowName As String) As Long
　　 然后，在调用时使用如下语句：
　　 hwndCalc = FindWindow(0&, "abc")
　　 这里的0&就表示忽略类名。

防止运行多个实例
在程序开始部分添加如下代码:
If App.PreInstance=True then
　　 End
　　 End If


为应用程序创建快捷方式

一般来说，软件在安装时都会创建一个快捷方式来方便用户使用，我们也可为自己的应用程序在桌面上创建一个快捷方式。安装Microsoft Visual Basic 4 .0后，将会有一个Setup Kit工具，其所带的STKIT432.DLL文件中提供了一个API函数fCreateShellLink可供用户来为应用程序创建快捷方式。下来举例说明其使用方法。
　 在这里我们为NOTEPAD创建一个快捷方式。
1、在VB4.0中打开一个新工程文件，在FORM1上添加一个命令按钮Command1。 　
2、双击窗体，在General Declarations中输入下面代码：
Private Declare Function fCreateShellLink Lib ″STKIT432.DLL"″
(ByVal_ lpstrFolderName As String,ByVal lpstrLinkName As String,
ByVal_lpstrLinkPath As String,ByV al lpstrLinkArgs As String) As Long 　　
3、双击Command1命令按钮，写如下代码：
Sub Command1_Click()
Dim lReturn As Long
lReturn=fCreateShellLink("..。.\Desktop",_"快捷方式Notepad","c:\win95\notepad.exe"," ")
lReturn=fCreateShellLink(" ","快捷方式Notepad",_"c:\\win95\notepad .exe"," ")
lReturn=fCreateShellLink("\startup","快捷方式Notepad",_"c:\win95\notepad.exe"," ")
End Sub 　　
4、按F5运行，单击命令按钮command1，如果没有输入错误的话，桌面上就会出现NOTEPAD的快捷方式。运行环境：VB4.0(32)，中文WINDOWS95。

上一篇： VB5实现窗口图像缩放、滚动技巧
下一篇： VB中任意旋转位图的实现

标签：

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