程序重复运行并设第一个为系统的前台窗口~初学者~高分送下

2012-12-16

程序重复运行并设第一个为系统的前台窗口~菜鸟求救~高分送上Private Sub Form_Load() Me.Caption App.Ti

程序重复运行并设第一个为系统的前台窗口~菜鸟求救~高分送上
Private Sub Form_Load()
Me.Caption = App.Title
Dim a As WINDOWPLACEMENT
c = Me.Caption
If App.PrevInstance Then
  Me.Caption = ""
  b = FindWindow(vbNullString, c)
  GetWindowPlacement b, a
  SetForegroundWindow b
  If a.showCmd = 2 Then
   ShowWindow b, SW_RESTORE
  End If
  End
End If
End Sub

以上代码在窗体Caption里有内容情况下一切正常,当Caption为空时无论如何也不能设第一个为系统的前台窗口了。菜鸟求救。
[最优解释]
自己解决了....
[其他解释]
楼主的意思是把第二次运行的窗体设置为前一次运行窗体的子窗体，并置顶？
[其他解释]
LZ用了一堆的API.
加外养成一个习惯吧。用的时候先声明。
比如 a,b,c

[其他解释]

引用:

楼主的意思是把第二次运行的窗体设置为前一次运行窗体的子窗体，并置顶？

不第2次运行的窗口关闭防止重复运行。第一次运行的窗体置顶。
以上代码已经实现了，但我的是无标题窗体，应为有右键菜单，所以必须把caption内容设置为空，但caption内容为空后用上面代码第一次运行的窗体不置顶了。如果caption内容不为空则一切正常所以现在很纠结。。。
[其他解释]

引用:

楼主的意思是把第二次运行的窗体设置为前一次运行窗体的子窗体，并置顶？

' 如果有错自己改吧...
Private Sub Form_Load()

    Dim a As WINDOWPLACEMENT

    Me.Caption = App.Title

    If App.PrevInstance Then

        Me.Caption = ""

        Do
            b = FindWindowEx(vbNullString, b, vbNullString, vbNullString)
            If b = 0 Then:
                Exit Do

            Else

                If GetWindowLong(b, GWL_USERDATA) = 997755331 Then
                    GetWindowPlacement b, a
                    SetForegroundWindow b
                    If a.ShowCmd = 2 Then ShowWindow b, SW_RESTORE
                    End

                End If

            End If

        Loop

    SetWindowLong Me.hWnd, GWL_USERDATA, 997755331

    End If
End Sub

[其他解释]

引用:

VB code

' 如果有错自己改吧...
Private Sub Form_Load()

    Dim a As WINDOWPLACEMENT

    Me.Caption = App.Title

    If App.PrevInstance Then

        Me.Caption = ""

        ……

看样子有戏了。嘿嘿
1 b = FindWindowEx(vbNullString, b, vbNullString, vbNullString)~~重复运行提示“运行是错误“13”：类型不匹配”
2 997755331 我的这个32位值应该是多少的我用spy++看了是7位的
[其他解释]
关于那个 b 的问题.... 主要是你没做 dim b as long ... 以后用变量一定要提前声明
那个数是个强大的数, 是启动windows高级功能的一个钥匙
[其他解释]

引用:

关于那个 b 的问题.... 主要是你没做 dim b as long ... 以后用变量一定要提前声明
那个数是个强大的数, 是启动windows高级功能的一个钥匙

dim b as long做了的还是一样
[其他解释]
模块：
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_RESTORE = 9
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Type POINTAPI
  X As Long
  Y As Long
End Type
Type rect
  left As Long
  top As Long
  right As Long
  bottom As Long
End Type
Type WINDOWPLACEMENT
  Length As Long
  flags As Long

  showCmd As Long
  ptMinPosition As POINTAPI
  ptMaxPosition As POINTAPI
  rcNormalPosition As rect
End Type

窗体：因为用了菜单编辑器  窗体里的caption是空的没设名字设名字的话标题栏就出来了因为我做的是无标题的窗口

Private Sub Form_Load()
Dim b As Long
   Dim a As WINDOWPLACEMENT


    Me.Caption = App.Title

    If App.PrevInstance Then

        Me.Caption = ""

        Do
            b = FindWindowEx(vbNullString, b, vbNullString, vbNullString)
            If b = 0 Then
                Exit Do

            Else

                If GetWindowLong(b, GWL_USERDATA) = 997755331 Then
                    GetWindowPlacement b, a
                    SetForegroundWindow b
                    If a.showCmd = 2 Then ShowWindow b, SW_RESTORE
                    End

                End If

            End If

        Loop

    SetWindowLong Me.hwnd, GWL_USERDATA, 997755331

    End If

End Sub

[其他解释]

  b = FindWindowEx(0, b, vbNullString, vbNullString)

[其他解释]
b = FindWindowEx(0, b, vbNullString, vbNullString)
[其他解释]

引用:

b = FindWindowEx(0, b, vbNullString, vbNullString)

谢谢，不出错了。但重复运行的没有关闭。我估计因该是997755331这里吧？我的这个32位值应该是多少的呢我用spy++看了是7位的
[其他解释]
第一个运行的没有关闭, 是因为他的 caption <> 空 , 后续开的对他也不产生任何反应,是因为 ...

再开第2个, 此时 caption = 空, 但第一个没有关闭,  再开第3个,则开不了了, 因为检测到了第2个

我对你题意和代码的意思都没有深读, 我认为就是说程序第一次运行后,标题就是空的

把代码再改一下:

Private Sub Form_Load()

    Dim a As WINDOWPLACEMENT

    Me.Caption = App.Title
   ' 这里到底有用没有, 如果窗口标题不为空,为什么第2次运行的程序要查找标题为空的程序呢?

    If App.PrevInstance Then

        'Me.Caption = ""  这里要换个地方... 看你这个代码我都不知道你到底想怎么玩了...

        Do
            b = FindWindowEx(vbNullString, b, vbNullString, vbNullString)
            If b = 0 Then:
                Exit Do

            Else

                If GetWindowLong(b, GWL_USERDATA) = 997755331 Then
                    GetWindowPlacement b, a
                    SetForegroundWindow b
                    If a.ShowCmd = 2 Then ShowWindow b, SW_RESTORE
                    End

                End If

            End If

        Loop

    SetWindowLong Me.hWnd, GWL_USERDATA, 997755331
    ' 标题到底是否需要设置为空, 如果是,在这里加 Me.Caption = ""
    End If
End Sub
[其他解释]
跟那个数无关,那是瞎写的,多少都行, -21e~+21e 随便...
[其他解释]
关于那个数的问题不要再纠结了... 就是逗你玩的, 那个数随便填

其次, 确认你的程序是不是这样:
程序运行后, 窗口标题清空
如果副本程序被激活,则首先查找之前是否有实例程序, 如果有激活前一个, 否则运行新的
[其他解释]

现在副本程序没end
[其他解释]
还是一样又回到1楼了穿越ing...

我完整窗体代码如下：

Private Sub Form_Load()
Dim a As WINDOWPLACEMENT
Dim b As Long

Me.Caption = "" '带菜单无标题边框窗口这里必须为空
c = Me.Caption '记录原窗口名称
If App.PrevInstance Then '如果重复运行
  Me.Caption = "重复运行的窗口" '则将新窗口名称改变
  b = FindWindow(vbNullString, c) '查找原窗口句柄
  GetWindowPlacement b, a '返回原窗口的显示状态
  SetForegroundWindow b '原窗口的线程设置到前台,并且激活
  If a.showCmd = 2 Then ShowWindow b, SW_RESTORE '若原窗口最大或最小化则还原
  End '关闭新窗口
End If
End Sub

Me.Caption = "" '带菜单无标题边框窗口这里必须为空~~~若Me.Caption = "任何数值"代码都可正常运行，但我的Me.Caption = ""必须为空，请问高人怎么处理？困绕我N天了。

模块如下：
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Const SW_RESTORE = 9
Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Type POINTAPI
  X As Long
  Y As Long
End Type
Type rect
  left As Long
  top As Long
  right As Long
  bottom As Long
End Type
Type WINDOWPLACEMENT
  Length As Long
  flags As Long
  showCmd As Long
  ptMinPosition As POINTAPI
  ptMaxPosition As POINTAPI
  rcNormalPosition As rect
End Type
[其他解释]
http://forum.csdn.net/PointForum/ui/scripts/csdn/Plugin/003/onion/41.gif
我看了实例程序有标题副本的没有标题。但是现在副本没有end啊

热点排行