Question

求助，我也需要一段VB代码，你的这段代码我也出现 运行错误，无效的过程调用或参数

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Sub Main()
Dim hwnd As Long
If App.PrevInstance Then
ShowWindow FindWindow(vbNullString, "Form1"), 1
AppActivate "Form1"
End
Else
Form1.Show
End If
End Sub

这是从网上找的给别人解答的代码，请教VB一段程序代码，一旦运行，再次运行该程序，将显示已经运行的程序，请教怎么写

Answer 1

这是因为文本文件不是可执行文件，不能直接打开的，要用其关联的程序打开。一般而言，cmd可以自动帮其匹配预设的关联程序：Shell "cmd /c c:\1.txt"也可以强行指定关联程序，比如“笔记本”：Shell "notepad c:\1.txt"或者用IE浏览器打开也可以的：Shell "explorer c:\1.txt"

追问

明白你说的意思，可是不太明白跟上面的这段代码有什么关联？VB我只是我写了一个小的计算器程序，也希望这个程序只能打开一次，再次打开的激活已经打开的程序窗口，请问怎么实现。