将以下代码 插入主窗口的代码中: Private Sub Form_Load() Call CheckExist(Me) End Sub Public Sub CheckExist(fm As Form) Dim title As String If App.PrevInstance Then title = App.title Call MsgBox(“这程式已执行”, vbCritical) App.ti Read the rest of this entry

VB调用代码如下:只要在你的FOMR窗体里面添加如下代码即可(VB工程得添加xp.res资源文件,否则没效果). Private Declare Sub InitCommonControls Lib “comctl32.dll” () Private Sub Form_Initialize() InitCommonControl Read the rest of this entry

,