Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

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