在VB.NET MDI窗体中打开外部应用程序表单

我需要在VB.NET MDI窗体中打开一些外部应用程序，例如notepad.exe，并且我还需要确保始终只有一个此运行的副本。在VB.NET MDI窗体中打开外部应用程序表单

我使用下面的代码，但它完全没有。它给出了错误的setparent不宣而FindWindow函数未声明

Dim myProcess As Process = New Process() 
Dim MyHandle As IntPtr 
myProcess.StartInfo.FileName = "Notepad.exe" 
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal 
myProcess.Start() 
MyHandle = FindWindow(vbNullString, "C:\Windows\Notepad.exe") 
SetParent(MyHandle, Me.Handle) 
myProcess.WaitForExit()

这是我用来验证只有一个实例运行

If (System.Diagnostics.Process.GetProcesses.Equals("notepad.exe")) Then 
     MsgBox("Only One Instance!") 
    Else 
     Dim p As New System.Diagnostics.Process 
     p.StartInfo.FileName = "notepad.exe" 
     p.Start() 
    End If

此代码是开放的notepad.exe的代码，但它不检查以前的实例。所以每次点击按钮，它都会打开一个新的记事本

来源

2012-01-09 Yoosuf

必须先声明SetParent和FindWindow，然后才能使用它们，这就是您接收错误的原因。您还在查找记事本的现有实例时遇到问题，因为GetProcesses会返回一个集合，而不是单个进程。要使用您尝试的方法，您需要遍历整个集合以查看它是否包含匹配项或使用.Contains。在我的例子中，我没有使用FindWindow，但如果将来需要它，我已经包含了它的声明。示例代码假定要使用的表单的名称为Form1，并且该代码使用Button1激活。

代码：

Imports System.Runtime.InteropServices 

    Public Class Form1 
     <DllImport("User32", CharSet:=CharSet.Auto, ExactSpelling:=True)> Public Shared Function SetParent(ByVal hWndChild As IntPtr, ByVal hWndParent As IntPtr) As IntPtr 
     End Function 

     Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer 

     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
      Dim PROCHANDLE As System.IntPtr = -1 
      For Each proc In Process.GetProcesses 
       If LCase(proc.ProcessName) = "notepad" Then 
        PROCHANDLE = proc.Handle 
       End If 
      Next 
      If PROCHANDLE = -1 Then 
       PROCHANDLE = Process.Start("C:\windows\notepad.exe").Handle 
       SetParent(PROCHANDLE, Me.Handle) 
      End If 
     End Sub 
    End Class

来源

2012-05-31 14:50:51

这个作品非常好，我刚刚试了一下。这足以创建一个新的Windows窗体项目和到位的Form1的默认代码

Public Class Form1 Dim myProcess As Process = New Process() Public WithEvents thb As Button = New System.Windows.Forms.Button Public Declare Function SetParent Lib "user32" Alias "SetParent" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As System.IntPtr Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles thb.Click myProcess.Start() myProcess.WaitForInputIdle() SetParent(myProcess.MainWindowHandle, Me.Handle) thb.Text = "Open Notepad Again" End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load WindowState = FormWindowState.Maximized MaximizeBox = False ShowIcon = False Text = "Notepad Opener" thb.Location = New System.Drawing.Point(20, 20) thb.Name = "thb" thb.Size = New System.Drawing.Size(200, 23) thb.TabIndex = 1 thb.Text = "Open Notepad" thb.UseVisualStyleBackColor = True Controls.Add(Me.thb) IsMdiContainer = True myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal myProcess.StartInfo.FileName = "notepad.exe" End Sub End Class

粘贴此代码

来源

2016-10-16 21:44:07

在VB.NET MDI窗体中打开外部应用程序表单

回答

相关问题