关于程序间切换焦点的问题？

2003-12-19 07:20:11 80 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

GUI_emWin 切换控件的焦点驱动层API 键盘驱动层处理键盘消息函数。这些程序会在具体键（或组合键）被按下或松开时通知窗口管理器。下表按字母顺序列出了驱动层键盘程序。详细描述如下。 GUI_StoreKeyMsg() 把消息存储于指定键。 GUI_SendKeyMsg() 把消息发送至指定键。 GUI_SendKeyMsg() 阅读详情

我想用shell调用一个外部的程序，并在两程序运行的时候，在我的程序和外部程序之间自动的切换。能实现吗？
具体怎么做？

...全文

解决Kiro框架窗口切换时的焦点丢失问题在Windows桌面应用开发中，焦点管理是确保用户交互流畅性的关键技术。系统通过WM_ACTIVATEAPP等消息机制协调窗口间的焦点切换，而UI框架需要正确处理这些系统消息以避免意外行为。当框架默认的焦点处理逻辑与系统消息循环不匹配时，就会出现窗口切换后焦点丢失的典型问题。这类问题在需要频繁跨应用操作的场景（如开发IDE、设计工具等）中尤为明显。通过重写焦点事件处理、使用Windows消息钩子或修改框架消息泵等方案，开发者可以优化焦点恢复机制。其中事件重写方案在内存占用和实现复杂度上表现最优，而全局钩子方阅读详情

ysensen

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

zyl910 2003-12-20

打赏
举报

【VB声明】
Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

【说明】
将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序

【返回值】
Long，非零表示成功，零表示失败。会设置GetLastError

【备注】
不应随便使用它，因为一旦程序突然从后台进入前台，可能会使用户产生迷惑

【参数表】
hwnd ----------- Long，带到前台的窗口

dreamtou 2003-12-20

打赏
举报

上面的是我的程序
Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const STATUS_PENDING = &H103&
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function RunShell(cmdline As String) As Boolean
Dim hProcess As Long
Dim ProcessID As Long
Dim ExitCodeLong As Long
Dim str1 As String
Me.Hide
ProcessID = Shell(cmdline, vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
Do
Call GetExitCodeProcess(hProcess, ExitCodeLong)
DoEvents
Loop While ExitCodeLong = STATUS_PENDING
Call CloseHandle(hProcess)
RunShell = True
Me.Show
End Function

dreamtou 2003-12-20

打赏
举报

可以，只要有一个程序是你做的就行

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" (ByVal lpPathName As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const STATUS_PENDING = &H103&
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function RunShell(cmdline As String, Index As Integer) As Boolean
Dim hProcess As Long
Dim ProcessID As Long
Dim ExitCodeLong As Long
Dim str1 As String
Me.Hide
ProcessID = Shell(cmdline, vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, False, ProcessID)
If hProcess = 0 Then
Select Case Index
Case 0
MsgBox "无法启动输出分析平台", vbInformation, MyTitle
Case 1
MsgBox "无法启动物理解读平台", vbInformation, MyTitle
Case 2
MsgBox "无法启动研究试验平台", vbInformation, MyTitle
Case 3
MsgBox "无法启动Micaps程序", vbInformation, MyTitle
End Select
End If
Do
Call GetExitCodeProcess(hProcess, ExitCodeLong)
DoEvents
Loop While ExitCodeLong = STATUS_PENDING
Call CloseHandle(hProcess)
RunShell = True
Me.Show
End Function

flc 2003-12-20

打赏
举报

关注
学习
学习

ysensen 2003-12-20

打赏
举报

外部的程序不是vb的，
是不是不可能实现自动的在主程序和外部程序之间的焦点切换？

coffeesky0131 2003-12-19

打赏
举报

或者你用dovents
等那个程序运行完后，才切换回原来的程序。

coffeesky0131 2003-12-19

打赏
举报

你的外部等程序也是VB做的么。

关于程序间切换焦点的问题？

相关推荐