以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  外部程序获得焦点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191847)
--  作者：lur320
--  发布时间：2024/5/11 15:01:00
--  外部程序获得焦点
 Dim ch As Boolean
ch = False
Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcesses()
For Each p As System.Diagnostics.Process In ps
    If ("dlgpy" = p.ProcessName) Then
        ch = True
我想在这里让这个程序获得焦点，如何实现？
在p.这里查了好久没发现获得焦点的命令。
        Exit For
    End If
Next
If ch = False Then
    Dim Proc As New Process \'定义一个新的Process
    proc.StartInfo.FileName = "C:\\Program Files\\dlgpy\\dlgpy.exe"
    proc.StartInfo.UseShellExecute = False
    Proc.StartInfo.WorkingDirectory = "C:\\Program Files\\dlgpy"
    Proc.Start()
   
End If
--  作者：有点蓝
--  发布时间：2024/5/11 15:05:00
--  
试试：http://www.foxtable.com/webhelp/topics/2713.htm