VB打开记事本程序源码，即用VB调用记事本，或用记事本打开一个txt文本文件。

VB打开记事本程序源码，即用VB调用记事本，或用记事本打开一个txt文本文件。

用VB调用记事本程序比较简单，可以API函数ShellExecute来实现，很简单，只要一行代码。

先在窗体模块声明API函数：
Private 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

代码1,直接调用，只打开一个空的记事本，以下代码写在一个按钮点击事件中。
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "notepad.exe", "", 1, 5
End Sub

打开空的记事本也可以用以下代码，也只要一句代码。

Shell "notepad.exe"

--------------------------------------------

代码2,用记事本打开一个txt文本。先假定C盘有一个名叫abc的文本文件。
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "open", "notepad.exe", "c:\abc.txt", 1, 5
End Sub

打开一个文本文件，也可以用以下代码：
Shell "notepad.exe " & "c:\abc.txt"  '请注意，exe后面有一个空格

 ----来自 五笔打字通

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/163.html