SaveFileDialog.FileOk : SaveFileDialog « System.Windows.Forms « VB.Net by API

1. VB.Net by API
2. System.Windows.Forms
3. SaveFileDialog

SaveFileDialog.FileOk

  


Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Diagnostics
Imports System.Drawing.Printing
Imports System.ComponentModel


Public Class MainClass
    Shared Dim  WithEvents dlgSaveData As System.Windows.Forms.SaveFileDialog
    
    Shared Sub Main()
        dlgSaveData = New System.Windows.Forms.SaveFileDialog
        If dlgSaveData.ShowDialog() = Windows.Forms.DialogResult.OK Then
            MessageBox.Show(dlgSaveData.FileName)
        End If
    End Sub
    
    Shared Private Sub dlgSaveData_FileOk(ByVal sender As Object, _
     ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgSaveData.FileOk
        
        
        If Not dlgSaveData.FileName.EndsWith(".dat") Then
            MsgBox("File " & dlgSaveData.FileName & _
                " is not a .dat file", _
                MsgBoxStyle.Exclamation, _
                "Invalid File Type")
            e.Cancel = True
        End If
    End Sub    
End Class

   
    
  

Related examples in the same category