Add action Listener to Save Button on A Save File Dialog
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
