VB中如何打开自己指定类型的文件

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

Private

Const

SW_SHOW

=

5

Private

Sub

Form_Load()

ShellExecute

Me.hWnd,

"open",

"C:\User.doc",

vbNullString,

vbNullString,

SW_SHOW

End

Sub

把上面的"C:\User.doc"改成你要打开的文件，还可以是网址或E-mail。

这个是用默认的程序打开已知类型的文件。还能打开网址，E-mail地址。

1、点击对话框下菜单，点击打开文件对话框。

2、点击FileName控件，设置FileName文件名。

3、然后在这里设置对象可见性的级别。

4、点击Title选项，设置标题的名称。

5、按F8开始单步调试代码，点击Command2，进入单步调试功能。

6、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

Private

Sub

Command1_Click()

Shell

"d:\中文文件夹\loe.exe",

vbNormalFocus

'打开你指定的文件

Timer1.Enabled

=

True

'开始计时

Timer1.Interval

=

60000

End

Sub

Private

Sub

Timer1_Timer()

Command2_Click

End

Sub

Private

Sub

Command2_Click()

MsgBox

"command2被点击了!"

End

Sub

---