Results 1 to 3 of 3
Thread: CommonDialog1.Flags
Hybrid View
-
6th May 2010 21:09 #1
CommonDialog1.Flags
Visual Basic 6.0
:Code:Private Sub Command1_Click() Dim newfile As String On Error GoTo errizbor CommonDialog1.CancelError = True CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNOverwritePrompt CommonDialog1.Filter = "All Files (*.*)|*.*|Rich Text Files" & "(*.rtf)|*.rtf| Text Files (*.txt)|*.txt|" CommonDialog1.FilterIndex = 2 CommonDialog1.ShowSave newfile = CommonDialog1.FileName RichTextBox1.SaveFile newfile Exit Sub
1. CommonDialog1.Flags
2. ?
-
6th May 2010 22:02 #2
Microsoft: msdn.
.
-
6th May 2010 23:06 #3




Reply With Quote

Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in