Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow& Lib "user32" (ByVal hwnd&)
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As LongPrivate Const WA_ACTIVE = 1
Private Const WA_CLICKACTIVE = 2
Private Const WA_INACTIVE = 0
Private Const WM_ACTIVATE = &H6
Private Const WM_ACTIVATEAPP = &H1CPrivate Const WM_SHOWWINDOW = &H18Private Const SW_SHOW = 5
Private Const SW_SHOWNORMAL = 1
Private Const SW_RESTORE = 9Private Sub Form_Load()
Dim lIns As Long
Dim lWnd As Long
Dim lRet As Long
Me.Caption = ""
If App.PrevInstance = True Then
Debug.Print App.hInstance
lIns = App.hInstance
lWnd = FindWindow(vbNullString, "Alive")
lRet = SetWindowText(lWnd, "Alive")
lRet = ShowWindow(lWnd, SW_SHOWNORMAL)
lRet = SetForegroundWindow(lWnd)
Unload Me
Exit Sub
End If
Me.Caption = "Alive"
End Sub
解决方案 »
- 用VB可以修改ACCESS数据库下表字段的类型否?
- 求解字符串替换问题。(难)
- 请教一个简单的问题!在线!
- 请教各位高手,如何给用Focus指定位置赋指定的字符串???
- 在VB中如何调用SQL脚本建库,建表,等操作.
- 急!对excel的读写问题!
- 用户'sa'无法登陆 VB+SQL
- 那里有好一点的VB邮件杂志?周刊最好,其他也行。4分,没分了
- 怎样用WINSOCK控件通过SOCKS代理收发数据?
- 大家都很需要一个好的打印和预览的工具,在做数据库在这一步会浪费不少时间,现在好了,我做了几个打印相关的类,但是没有整理好,过一段时间我会发布DLL和源代码的
- 初学者的问题:如何配置VB,使VB不以默认工程打开?谢谢了。
- 郁闷啊,怎么修改DTPicker日期控件的背景色?
看你喜欢什么了