VB编程小技巧汇总

下载后可任意编辑 VB 编程各个突破 1、如何避开程式重复执行？ (侦测是否存在前一副本，若有，则结束目前新启动的程式 )2、如何让一个 app 永远保持在最上层 ( Always on Top ) 3、表单配置视窗和解析度 4、连续变量的声明 Dim a, b, c as string * 4 5、正确的除错 (Debug) 方式 1、如何避开程式重复执行？ (侦测是否存在前一副本，若有，则结束目前新启动的程式 )使用者在启动程式后，有时会将程式缩小在工作列上，之后要用时，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，您可以使用 APP 物件来推断，方法如下：Private Sub Form_Load()If App.PrevInstance Then '检视前一版本MsgBox "此程式已经在执行中！", 48EndEnd IfEnd Sub2、如何让一个 app 永远保持在最上层 ( Always on Top )请在声明区中加入以下声明Private Declare Function SetWindowPos Lib "user32" _(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ByVal x As Long, ByVal y As Long, ByVal cx As Long, _ByVal cy As Long, ByVal wFlags As Long) As LongConst SWP_NOMOVE = &H2 '不更动目前视窗位置Const SWP_NOSIZE = &H1 '不更动目前视窗大小Const HWND_TOPMOST = -1 '设定为最上层Const HWND_NOTOPMOST = -2 '取消最上层设定Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE'将 APP 视窗设定成永远保持在最上层SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS'取消最上层设定SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS3、表单配置视窗和解析度这个地方不是要告诉您如何写出一支程式，会自动根据使用者荧幕的解析度调整 Form 及各控制项的大小，也就是适用于各种解析度的程式。那是另一个主题！ 由于我在集团式的公司资讯中心上班，在我的开发过程中，我的使用者依不同公司别，分成几个族群，有的公司都是使用 640x480 的解析度，有的都用 800x600，设计公司则是 1024x768，为了替这些公司开发软件，在 VB5.0 以前，写各家公司的程式以前就必须先调整荧幕的解析度 (否则在解析度 800x600 的电脑上开发的程式，在 640x480 解析度的电脑中执行时，右方和下方的画面会跑出荧幕外面)，有的电脑一改变解析度就必须重新开机，更是麻烦！VB5.0 以后，VB 多提供了一...