vb commondialog 默认加载一个文件

Question

vb commondialog 默认加载一个文件,现在我用ShowOpen会让人去点一下打开按钮的动作,我可不可以漠认一个文件每次都打开的是这个文件.

Answer 1

Private Sub Command1_Click()
    CommonDialog1.FileName = "c:\1.txt"
    CommonDialog1.ShowOpen
End Sub

Answer 2

Dim Fname$
Fname="c:\test.txt" '默认的打开文件
CommonDialog1.FileName = Fname
With CommonDialog1
   .DialogTitle = "打 开"
   .DefaultExt = ".txt" ' 设置默认的扩展名
   .Filter = "Data(*.txt)|*.txt"
   .InitDir = left(Fname,3)
   .ShowOpen ' 显示打开对话框
End With

Answer 3

可能我没表达明白,我的意识是不点任何操作,在FORM_LOAD的时候就自动加到里面.你们的方法还是要出现打开窗口按个打开按钮.

Answer 4

我的是这样的
Private Sub Form_Load()   
  'ComDlg.ShowOpen
  ComDlg.FileName="C:\1.TXT"            
    fn = ComDlg.FileName        
    If fn = "" Then Exit Sub    
    LoadFile fn                 
End Sub

Answer 5

Private Sub Form_Load()   
  LoadFile "C:\1.TXT"   
End Sub

Answer 6

如果是第一次使用需要CommonDialog1，以后就只打开第一次这个文件的话，另说