Vb.net VB-如何从任务栏还原最小化的记事本

我曾多次使用StackOverFLow来窃取代码片段。这一次我有一个问题，因为我的偷窃技能似乎有所下降。我正在使用VB.NET

我的应用程序中有一个NoteButton。第一次单击记事本按钮记事本以特定文本文件开始。 在随后单击记事本按钮时-如果记事本和文件已打开，则激活记事本

如果记事本已最小化，如何将WindowsState/AppWinstyle更改为“正常”，并将其置于前台

这是我所拥有的

---

转到EHandler时出错

Dim TheDirectory=MyApp.My.Application.Info.DirectoryPath
如果正在运行exe（“notepad.exe”），则“检查notepad是否已在运行”
出错时继续下一步
AppActivate（“MyList.txt-记事本”）
如果错误号为0，则
错误清除（）
Process.Start（“notepad.exe”，TheDirectory&“\MyList.txt”）
如果结束
'我需要将最小化的记事本恢复到“正常”状态，并放在前台
在这里
出口接头
如果结束
Process.Start（“notepad.exe”，TheDirectory&“\MyList.txt”）
出口接头
埃汉德勒：
MsgBox（“打开文本文件时出错。”，vbOKOnly+vbInformation）

---

谢谢你抽出时间

---

Greg

Google“vb.net ui自动还原窗口”。这个问题应该可以帮助您解决：。它是C语言的，但是你应该能够很容易地翻译它，尽管你可以在.net中使用，请不要在错误转到时使用

。

。我们遇到了异常，

Try…Catch…Finally…End Try

感谢所有人的帮助。我确实让它工作了，但为了避免我的尴尬，我不会在这里发布我的代码。Mary-当Excel 4.0宏语言被放弃，我被迫将我的外接程序从宏语言移植到VBA时，我学会了VBA。这并不容易。那大约是在1996年。我第一次接触vb.Net是这个应用程序。它做我需要和想要的（它与我的3D打印机对话）。这已经足够好了，没有人会跟在我后面整理我的意大利面。谷歌“vb.NETUI自动恢复窗口”。这个问题应该可以帮助您解决：。它是C语言的，但是你应该能够很容易地翻译它，尽管你可以在.net中使用，请不要在错误转到时使用

。

。我们遇到了异常，

Try…Catch…Finally…End Try

感谢所有人的帮助。我确实让它工作了，但为了避免我的尴尬，我不会在这里发布我的代码。Mary-当Excel 4.0宏语言被放弃，我被迫将我的外接程序从宏语言移植到VBA时，我学会了VBA。这并不容易。那大约是在1996年。我第一次接触vb.Net是这个应用程序。它做我需要和想要的（它与我的3D打印机对话）。这已经足够好了，没有人会跟在我后面整理我的意大利面。

    On Error GoTo EHandler
    Dim TheDirectory = MyApp.My.Application.Info.DirectoryPath
    If IsRunningExe("notepad.exe") Then  'Check if notepad is already running
        On Error Resume Next
        AppActivate("MyList.txt - Notepad")
        If Err.Number <> 0 Then
            Err.Clear()
            Process.Start("notepad.exe", TheDirectory & "\MyList.txt")
        End If
                    'I need to restore a minimized Notepad to "Normal" state and in the foreground 
                     here.
        Exit Sub
    End If
    Process.Start("notepad.exe", TheDirectory & "\MyList.txt")
    Exit Sub
    EHandler:
    MsgBox("There was an error opening the text file.", vbOKOnly + vbInformation)