Koding Menu Utama Menggunakan VB 06

Option Explicit

Private Declare Function ShellExecute Lib "shell32.dll" _

Alias "ShellExecuteA" (ByVal hwnd As Long, _

ByVal lpOperation As String, ByVal lpFile As String, _

ByVal lpParameters As String, ByVal lpDirectory As String, _

ByVal nShowCmd As Long) As Long

Private Const SW_NORMAL = 1

Private Const SW_SHOW = 5

Private Sub background_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fprog.Visible = False

fpres.Visible = False

fpenulisan1.Visible = False

fpenulisan2.Visible = False

End Sub

Private Sub Form_Load()

fprog.Visible = False

fpres.Visible = False

fpenulisan1.Visible = False

fpenulisan2.Visible = False

End Sub

Private Sub Image4_Click()

End Sub

Private Sub imgcover_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\Halaman judul.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgdaftargambar_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR GAMBAR.docx", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgdaftarisi_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR ISI.docx", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgdaftarlampiran_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR LAMPIRAN.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgdaftarpustaka_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR PUSTAKA.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgdaftartabel_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR TABEL.docx", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgexit_Click()

Beep

End

End Sub

Private Sub imgflowchart_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\21. flowchart program.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgkatapengantar_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\KATA PENGANTAR.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imglampiraninternet_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\17. Lampiran 2.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imglampiranmetode_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\18. Lampiran 3.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imglampirannota_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\16. Lampiran 1.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imglampiranperiperal_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\19. Lampiran 4.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imglisting_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LISTING PROGRAM.docx", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgpendahuluan_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\BAB I.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgpenulisan1_Click()

Beep

End Sub

Private Sub imgpenulisan1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fprog.Visible = False

fpres.Visible = False

fpenulisan1.Visible = True

fpenulisan2.Visible = False

End Sub

Private Sub imgpenulisan2_Click()

Beep

End Sub

Private Sub imgpenulisan2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fprog.Visible = False

fpres.Visible = False

fpenulisan1.Visible = False

fpenulisan2.Visible = True

End Sub

Private Sub imgpenutup_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\BAB IV PENUTUP.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgpersetujuan_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\Persetujuan dan pengesahan.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgpres_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PRESENTASI\Presentation.pptx", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub Imgpresentasi_Click()

Beep

End Sub

Private Sub Imgpresentasi_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fprog.Visible = False

fpres.Visible = True

fpenulisan1.Visible = False

fpenulisan2.Visible = False

End Sub

Private Sub imgpro_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PROJECT\TB_Rekso_Logam.vbp", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgproject_Click()

Beep

End Sub

Private Sub imgproject_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

fprog.Visible = True

fpres.Visible = False

fpenulisan1.Visible = False

fpenulisan2.Visible = False

End Sub

Private Sub imgriwayathidup_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR RIWAYAT.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgsistemberjalan_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\BAB II.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgsistemusulan_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\BAB III.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub imgsuratlulus_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\Surat keterangan lulus.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub L1_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LAMPIRAN 1.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub L2_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LAMPIRAN 2.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub L3_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LAMPIRAN 3.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub L4_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LAMPIRAN 4.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub L5_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\LAMPIRAN 5.doc", "", "", SW_SHOW Or SW_NORMAL

End Sub

Private Sub Label1_Click()

ShellExecute Form1.hwnd, "Open", App.Path + "\PENULISAN\DAFTAR LAMPIRAN.docx", "", "", SW_SHOW Or SW_NORMAL

End Sub