Tutorials on visual basic 2008, Manuals on visual basic 2008 - all projects include visual basic project file source codes! Visual Basic 2008 Tutorial. Easy Programs done on VB 2008
Showing posts with label file maker. Show all posts
Showing posts with label file maker. Show all posts
Thursday, July 5, 2012
Batch File Maker Using Visual Basic 2008
Desing
Running
You will need the following:
*1 Rich Text Box
* 1 Menu Strip
* 1 Save Dialog
Program Codes :
Public Class Form1
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Try
PictureBox1.Visible = True
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save Batch File"
dlg.Filter = "Batch File (*.bat)|*.bat"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.PlainText)
End If
Catch ex As Exception : End Try
PictureBox1.Visible = False
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Batch File Maker Created By Roatan Softwares")
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Try
PictureBox1.Visible = True
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Save Batch File"
dlg.Filter = "Batch File (*.bat)|*.bat"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.PlainText)
End If
Catch ex As Exception : End Try
PictureBox1.Visible = False
End Sub
Private Sub NewToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Batch File Maker Created By Roatan Softwares")
End Sub
Labels:
2008,
basic,
batch,
coding,
file maker,
information,
programming,
simple,
system,
tutorials,
visual
Subscribe to:
Posts (Atom)



