VB问题全功略（4）

　　VB问题全功略（4）

16、如何避免程式重复执行？（侦测是否存在前一副本，若有，则结束目前新启动的程式）
17、如何让一个 App 永远保持在最上层 ( Always on Top )
18、表单配置视窗和解析度
19、连续变量的声明 Dim a, b, c as string * 4
20、正确的除错 (Debug) 方式
16、如何避免程式重复执行？（侦测是否存在前一副本，若有，则结束目前新启动的程式）

使用者在启动程式后，有时会将程式缩小在工作列上，之后要用时，又会重新启动一次程式，资料库程式有时会因此造成资料错乱！若您不希望使用者重复启动程式，您可以使用 APP 物件来判断，方法如下：

Private Sub Form_Load()
If App.PrevInstance Then 注释：检视前一版本
MsgBox "此程式已经在执行中！", 48
End
End If
End Sub

17、如何让一个 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 Long

Const SWP_NOMOVE =