怎样用VB打开记事本并显示？

Question

你好，我是刚才那个“如何用VB打开记事本”问题的提问者，你给的答案很好，可是记事本显示出来之后是最小化的，能不能让它显示在桌面上啊？

Answer 1

用API函数! 以下就是ShellExecute函数的声明：

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Public Const SW_SHOWNORMAL As Long = 1
Public Const SW_HIDE As Long = 0
使用时就是下面这样子

Call ShellExecute(Me.hWnd, "Open", "c:\你的文本文件.TXT", vbNullString, _
App.Path, SW_SHOWNORMAL)
就是这么简单. 以下是函数参数的说明,你可以看看了解一下!
“hWnd”：表示那个你将要作为父窗体的窗体句柄。

“Operatio”：该参数付值为“Open”，表示使用“打开”方法来操作该文档。

“File”：该参数表示要操作哪个文件，必须用该文件的完全路径表示。

“Parameters”：该参数表示打开文件时的命令行参数。

“Directory”：该参数用于指定该应用程序的默认目录。

“ShowCmd”：该参数将被设置为“SW_SHOWNORMAL”以打开文档。

Answer 2

其实后面那个人已经回答了，他还给了注释的，就是加个参数vbNormalFocusPrivate Sub command_click()Shell "notepad.exe " +App.path + "\评分.txt",vbNormalFocusUnload meEnd Sub

Answer 3

Shell("C:\WINDOWS\Notepad.exe",VbMaximizedFocus)