VB编程小技巧汇总.doc

"VB编程小技巧汇总" VB 编程小技巧汇总是指在 Visual Basic 编程中的一些小技巧和经验总结，本文总结了五个小技巧，分别是如何避免程序重复执行、如何让一个 app 永远保持在最上层、表单配置视窗和解析度、连续变量的声明和正确的除错方式。 1. 如何避免程序重复执行？ 在编程中，有时用户可能会将程序缩小在工作列上，然后又重新启动一次程序，这可能会导致数据错乱。为了避免这种情况，可以使用 APP 物件来判断是否存在前一版本，如果存在，则结束目前新启动的程序。方法是，在 Form_Load 事件中添加以下代码： Private Sub Form_Load() If App.PrevInstance Then ' 检视前一版本 MsgBox "此程序已经在执行中！", 48 End If End Sub 2. 如何让一个 app 永远保持在最上层？ 可以使用 SetWindowPos 函数来实现，方法是，在声明区中加入以下声明： 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 Long 然后，在事件中添加以下代码： Const 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 3. 表单配置视窗和解析度 在 VB5.0 以前，写各家公司的程序以前就必须先调整荧幕的解析度，否则在解析度不同的电脑上执行时，右方和下方的画面会跑出荧幕外面。但是，VB5.0以后，VB 提供了一个功能，就是【表单配置视窗】，从此以后，可以在高解析度的荧幕中，开发低解析度的程序。方法是，在【表单配置视窗】上的荧幕上按滑数右键，选择【解析度】，然后，在【表单配置视窗】上的荧幕上，出现了二个虚线框，上面各标明了 640x480 及 800x600。 4. 连续变量的声明 在 VB 中，声明多个变量时，需要注意不要使用以下形式： Dim a, b, c as string * 4 因为这种声明在 VB 中表示声明了 a,b 2 个 variant 变量，以及 c 这个字串变量。正确的写法是： Dim a as string * 4 Dim b as string * 4 Dim c as string * 4 若想写在同一行，也可以，写法如下： Dim a as string * 4, b as string * 4, c as string * 4 5. 正确的除错方式 在除错时，很多人都喜欢在程序中使用中断点 (Break) 加上 MsgBox 来看执行结果，但是这样子的作法会造成某些事件 (Event) 无法触发，甚至改变事件原来触发的顺序。正确的除错方式是使用 Visual Basic 的调试工具，例如 Debug.Print 语句或 Immediate 窗口等。