A.Private Sub Command1_Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.doC)|*.doc" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=2 End Sub
B.Private Sub Command1_Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.do C)|*.doc" CommonDialog1.FilterIndex=1 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=2 End Sub
C.Private Sub Command1 Click ( ) CommonDialog1.FileName="Save" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.do C)|*.doc" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="SaveFile" CommonDialog1.Action=2 End Sub
D.Private Sub Command1 Click ( ) CommonDialog1.FileName="SaveFile" CommonDialog1.Filter="AllFiles|*.*|(*.txt)|*.txt|(*.do C)|*.doc" CommonDialogl.FilterIndex=1 CommonDialog1.DialogTitle="Save" CommonDialog1.Action=1 End Sub