A.
Private Sub Command1_ Click() CommonDialog1.FileName = 'Data' CommonDialog1.Filter = 'All Files|*.|* |(*.txt)|(*.doc)|*.doc' CommonDialog1.Filterlndex = 2 CommonDialog1.DialogTitle = “保存” CommonDialog1.Action = 2 End Sub
B.
Private Sub Command1_ Click() CommonDialog1.FileName = 'Data' CommonDialog1.Filter = 'All Files|*.*|(*.txt)|(*.doc)|*.doc' CommonDialog1.FilterIndex = 2 CommonDialog1.DialogTitle =“保存” CommonDialog1.Action = 1 End Sub
C.
Private Sub Command1_ Click() CommonDialog1.FileName = 'Data' CommonDialog1.Filter = 'All Files|*.*|(*.txt)|(*.doe)|*.doc' CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = “保存” CommonDialog1.Action = 1 End Sub
D.
Private Sub Command1_ Click() CommonDialog1.FileName = 'Data' CommonDialog1.Filter = 'All Files|*.*|(*.txt)|(*.doc)|*.doc' CommonDialog1.FilterIndex = 1 CommonDialog1.DialogTitle = “保存” CommonDialog1.Action = 2 End Sub