Job2
*********************************************************************************
ให้นักศึกษา สร้าง Form Menu โดยตั้งชื่อเป็น frmMenu.vb จากนั้นให้ใช้เครื่องมือดังนี้
1. MenuStrip
2. Label
3. Timer
------------------------------------------------------------------------------------------------------------
Imports
System.DateTime
Imports
System.Windows.Forms.VisualStyles.VisualStyleElement
------------------------------------------------------------------------------
Public Class frmMenu
Inherits
System.Windows.Forms.Form
Public Const AW_BLEND = &H80000
Public Declare Function
AnimateWindow Lib "user32"
(ByVal hwnd As
Int32, ByVal dwTime As
Int32, ByVal dwFlags As
Int32) As Boolean
Dim winHide
As Integer =
&H10000
Dim
winBlend As Integer
= &H80000
Dim ans As String
---------------------------------------------------------------------------------
'ToolStrip
Private Sub ExitToolStripMenuItem_Click_1(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ExitToolStripMenuItem.Click
ans = MsgBox("คุณต้องการออกจากระบบใช่หรือไม่ ",
MsgBoxStyle.YesNo, "การประมวลผล")
AnimateWindow(Me.Handle.ToInt32,
CInt(500), winHide Or
winBlend)
If ans
= vbYes Then
End
End If
End Sub
------------------------------------------------------------------------------
Private Sub ProductDatabaseToolStripMenuItem1_Click_1(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ProductDatabaseToolStripMenuItem1.Click
ans = MsgBox("คุณต้องการไปยังระบบการจัดเก็บข้อมูลสินค้าใช่หรือไม่", MsgBoxStyle.YesNo, "การประมวลผล")
If ans
= vbYes Then
Me.Hide()
frmProduct.Show()
End If
End Sub
----------------------------------------------------------------------------
Private Sub SaleToolStripMenuItem1_Click_1(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
SaleToolStripMenuItem1.Click
ans = MsgBox("คุณต้องการไปยังระบบการขายสินค้าใช่หรือไม่",
MsgBoxStyle.YesNo, "การประมวลผล")
If ans
= vbYes Then
Me.Hide()
frmSale.Show()
End If
End Sub
-------------------------------------------------------------------------------
Private Sub frmMenu_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
lblDTime.Text = Format(Now, "dddd dd-MMMM-yyyy
h:mm:ss tt")
Timer1.Enabled = True
End Sub
------------------------------------------------------------------------------
Private Sub Timer1_Tick(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
lblDTime.Text = Format(Now, "dddd dd MMMM yyyy
h:mm:ss tt")
End Sub
------------------------------------------------------------------------------
Private Sub ReportSaleToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ReportSaleToolStripMenuItem.Click
ans = MsgBox("คุณต้องการไปยังรายงานรายสรุปการขายสินค้าใช่หรือไม่", MsgBoxStyle.YesNo, "การประมวลผล")
If ans
= vbYes Then
Me.Refresh()
frmReportSale.Show()
End If
End Sub
------------------------------------------------------------------------------
Private Sub ReportTypeSaleToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
ReportTypeSaleToolStripMenuItem.Click
ans = MsgBox("คุณต้องการไปยังรายงานรายสรุปการขายสินค้าแต่ละประเภทใช่หรือไม่", MsgBoxStyle.YesNo, "การประมวลผล")
If ans
= vbYes Then
Me.Refresh()
frmReportTypeSale.Show()
End If
End Sub
--------------------------------------------------------------------------------
End Class
ไม่มีความคิดเห็น:
แสดงความคิดเห็น