关于文件的问题 请大家多帮忙！～

Question

在FileListBox中 同时显示 .txt 文件 和 .bmp点击确定按钮 将用记事本打开.txt文件 ，用画图打开.bmp文件 如何做？请大家指教！

Answer 1

Option ExplicitPrivate Sub File1_DblClick()
    If UCase(Right(File1.FileName, 4)) = ".TXT" Then
        Shell "notepad " & File1.Path & File1.FileName, vbNormalFocus
    ElseIf UCase(Right(File1.FileName, 4)) = ".BMP" Then
        Shell "MSPaint " & File1.Path & File1.FileName, vbNormalFocus
    End If
End SubPrivate Sub Form_Load()
    File1.Path = "C:\"
End Sub

Answer 2

多谢 lxcc(虫子|专注于抢分) 指教还有半个问题呢在FileListBox中 同时显示 .txt 文件 和 .bmp 文件？
.Pattern属性 好像只能显示一种文件 如何显示2种 请大家帮助

Answer 3

不设置Pattern属性
或者
Option ExplicitPrivate Sub File1_DblClick()
    If UCase(Right(File1.FileName, 4)) = ".TXT" Then
        Shell "notepad " & File1.Path & File1.FileName, vbNormalFocus
    ElseIf UCase(Right(File1.FileName, 4)) = ".BMP" Then
        Shell "MSPaint " & File1.Path & File1.FileName, vbNormalFocus
    End If
End SubPrivate Sub Form_Load()
    File1.Path = "C:\"
    File1.Pattern = "*.txt;*.bmp"
End Sub