VB如何实现打开文件的命令，简单化

shell

"cmd

/c

notepad

C:\1.txt"

这个命令可以用记事本打开一个文本文档,C:\1.txt为文件路径

shell

"cmd

/c call

C:\1.exe"

这个命令可以打开一个可执行程序,C:\1.exe为文件路径,文件类型还可以是.bat

或.com等

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

url = InputBox("请输入网页地址：", "查看源文件", "http://zhidao.baidu.com/question/44356139.html")

If Len(url) Then

tmp = Environ("TMP") &"\" &Format(Now, "YYMMDDHHMMSS")

URLDownloadToFile 0, url, tmp, 0, 0

Shell "notepad.exe " &tmp, vbNormalFocus

End If

End Sub

文本框通常用来显示文本字符，以下是用 VB 编写的打开某 txt 文件，并把文件内容显示在文本框的步骤及代码：

1、添加必要的组件（文本框、按钮）

2、设置属性：

3、编写按钮的响应代码：

代码如下：

Private Sub Command1_Click()

    Dim a$

    Text1.Text = ""

    Open "d:\test.txt" For Input As #1

      Do

        Input #1, a

        Text1.Text = Text1.Text & a & vbCrLf

      Loop Until EOF(1)

    Close #1

End Sub

运行结果：

---