这个VB程序怎么运行不了啊

Private Sub cmdEdit_Click()
    C1.Action = 1
    retval = Shell("c:\windows\system32\mspaint.exe" & " " & C1.FileName)
End Sub

Private Sub Form_Load()
    C1.FileName = "*.bmp"
    C1.InitDir = "c:\windows"
    C1.FileName = "Pictures(*.bmp)|*.bmp|All Files(*.*)|*.*"
    C1.FilterIndex = 1
End Sub

C1.Filter = "Pictures(*.bmp)|*.bmp|All Files(*.*)|*.*" 改成这个 这是过滤 抄得也太。。。。

这一句话有错吧：

C1.FileName = "Pictures(*.bmp)|*.bmp|All Files(*.*)|*.*"

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息