Description:
We can create the new folder from
Browser Folder dialog, Print dialog is used to print the selected page.
private Sub showbrowserfile()
FolderBrowserDialog1.Description =
"Select a folder for your backups:"
FolderBrowserDialog1.RootFolder = Environment.SpecialFolder.MyComputer
FolderBrowserDialog1.ShowNewFolderButton = True
'FolderBrowserDialog1.ShowDialog()
If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
'Display the selected folder
RichTextBox1.Text = FolderBrowserDialog1.SelectedPath
End If
End Sub
Private Sub printshow()
PrintDialog1.ShowDialog()
Dim objPrintDocument As PrintDocument = New PrintDocument
PrintDialog1.AllowPrintToFile = False
PrintDialog1.AllowSelection = False
PrintDialog1.AllowSomePages = False
PrintDialog1.Document = objPrintDocument
If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Dim objStreamToPrint As StreamReader = New StreamReader(strFileName)
Dim objPrintFont As Font = New Font("Arial", 10)
objPrintDocument.PrinterSettings = PrintDialog1.PrinterSettings
objPrintDocument.Print()
objStreamToPrint.Close()
objStreamToPrint = Nothing
End If
End Sub
Privat Sub calendershow()
MonthCalendar1.Show()
txtFile.Text = MonthCalendar1.TodayDate
End Sub
Contact:
Mr. Roshan P. Helonde
Mobile: +91-7276355704
WhatsApp: +91-7276355704
Email: roshanphelonde@rediffmail.com