Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User novamen's Avatar
    Join Date: Feb:2009
    Location: shumen
    Posts: 136

    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. ?

  2. #2
    Undead user Oldman's Avatar
    Join Date: Oct:2003
    Location: outside
    Posts: 432
    Quote Originally Posted by novamen View Post
    ...
    2. ?
    Microsoft: msdn.
    .

  3. #3
    Registered User novamen's Avatar
    Join Date: Feb:2009
    Location: shumen
    Posts: 136
    !

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |