Import dan mengolah text document bag.5

Menu utama

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim kosong As New Persiapan
kosong.Show()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim proses As New Form1
proses.Show()
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim export As New export
export.Show()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim importf As New import
importf.Show()
End Sub

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
If e.Button Is ToolBarButton1 Then
Dim cur As New Persiapan
cur.Show()
ElseIf e.Button Is ToolBarButton2 Then
Dim import As New import
import.Show()
ElseIf e.Button Is ToolBarButton3 Then
Dim prose As New Form1
prose.Show()
ElseIf e.Button Is ToolBarButton4 Then
Dim expot As New export
expot.Show()
Else
End
End If
End Sub

Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Dim kosong As New Persiapan
kosong.Show()
End Sub

Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim importf As New import
importf.Show()
End Sub

Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
Dim proses As New Form1
proses.Show()
End Sub

Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
Dim export As New export
export.Show()
End Sub

Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
End
End Sub

Private Sub Mainmenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tgl As Date = System.DateTime.Now
StatusBar1.Panels(1).Text = CDate(tgl).ToShortDateString
StatusBar1.Panels(2).Text = CDate(tgl).ToLongTimeString
StatusBar1.Panels(0).Text = "CopyRifht ©Juli2008"
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Dim kosong As New Persiapan
kosong.Show()
End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
Dim importf As New import
importf.Show()
End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
Dim proses As New Form1
proses.Show()
End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
Dim export As New export
export.Show()
End Sub
End Class