如何在给定容器中启动进程？（如何在组框中启动 acrobate reader？）在 VB.Net 中

发布于 2024-12-04 17:45:53 字数 248 浏览 2 评论 0原文

我希望在我的应用程序中显示 pdf 和 xps 文件的预览。所以我希望能够运行一个进程并给它“位置”或它应该运行的容器。

有办法做到这一点吗？

我现在可以启动任何我想要的应用程序，并使用必要的 ProcessStartInfo 打开文件，但我需要将应用程序包含在特定控件中，而不是作为独立的应用程序。

例如，我没有找到允许我这样做的 .Parent 属性。如果您有想法，请告诉我。

提前致谢。

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我三岁 2024-12-11 17:45:53

一些发现：

首先在这里：http://www. dreamincode.net/forums/topic/148658-embedding-another-program-into-app/

第一个解决方案：使用网络浏览器控件：

  WebBrowser1.Url = New System.Uri("file://" & myFileNameHere)

第二个解决方案（在这里找到： http://www.tek-tips.com/viewthread.cfm?qid=1598720 ）

Private Const WM_SYSCOMMAND As Integer = 274
Private Const SC_MAXIMIZE As Integer = 61488
Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

 Private Sub Test3()
Try
        myProcess.Kill()
    Catch ex As Exception
        Dim ii As Integer = 33
    End Try

    Dim valueFileName As String = myFileNameHere 
    Dim myProcessInfo As New ProcessStartInfo
    myProcessInfo.FileName = myCompletePathToTheEXEFileHere
    myProcessInfo.WorkingDirectory = valueFileName.Substring(0, valueFileName.LastIndexOf("\") + 1)
    myProcessInfo.Arguments = valueFileName.Substring(valueFileName.LastIndexOf("\") + 1)
    myProcess.StartInfo = myProcessInfo
    myProcess.Start()
    myProcess.WaitForInputIdle()
    Threading.Thread.Sleep(500)
    SetParent(myProcess.MainWindowHandle, Me.GroupBox1.Handle)
    SendMessage(myProcess.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

上面的代码正在运行，并且可能会得到改进。
我还在努力呢！

Some findings:

first here: http://www.dreamincode.net/forums/topic/148658-embedding-another-program-into-app/

first solution: use a webbrowser control with:

  WebBrowser1.Url = New System.Uri("file://" & myFileNameHere)

Second solution (found here: http://www.tek-tips.com/viewthread.cfm?qid=1598720 )

Private Const WM_SYSCOMMAND As Integer = 274
Private Const SC_MAXIMIZE As Integer = 61488
Declare Auto Function SetParent Lib "user32.dll" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As Integer
Declare Auto Function SendMessage Lib "user32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

 Private Sub Test3()
Try
        myProcess.Kill()
    Catch ex As Exception
        Dim ii As Integer = 33
    End Try

    Dim valueFileName As String = myFileNameHere 
    Dim myProcessInfo As New ProcessStartInfo
    myProcessInfo.FileName = myCompletePathToTheEXEFileHere
    myProcessInfo.WorkingDirectory = valueFileName.Substring(0, valueFileName.LastIndexOf("\") + 1)
    myProcessInfo.Arguments = valueFileName.Substring(valueFileName.LastIndexOf("\") + 1)
    myProcess.StartInfo = myProcessInfo
    myProcess.Start()
    myProcess.WaitForInputIdle()
    Threading.Thread.Sleep(500)
    SetParent(myProcess.MainWindowHandle, Me.GroupBox1.Handle)
    SendMessage(myProcess.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)

The code above, is working and could probably be improved.

I'm stilling working on it!

回复收藏 0 原文

~没有更多了~