Mega Code Archive

 

Categories / VB.Net / GUI

 

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