Shortcuts.vb
- Public Class Shortcuts
- Private Shared PanelInstance As Shortcuts
- Public Shared Function GetInstance() As Shortcuts
- If (PanelInstance Is Nothing) Then
- PanelInstance = New Shortcuts
- End If
- Return PanelInstance
- End Function
- Private Sub Shortcuts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- AddHandler AccountingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler AccountingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler AccountingPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler AccountingPIC.MouseUp, AddressOf StartUp.PicMouseUp
- AddHandler SettingPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler SettingPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler SettingPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler SettingPIC.MouseUp, AddressOf StartUp.PicMouseUp
- AddHandler ImportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler ImportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler ImportPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler ImportPIC.MouseUp, AddressOf StartUp.PicMouseUp
- AddHandler ExportPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler ExportPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler ExportPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler ExportPIC.MouseUp, AddressOf StartUp.PicMouseUp
- AddHandler BoxPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler BoxPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler BoxPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler BoxPIC.MouseUp, AddressOf StartUp.PicMouseUp
- AddHandler ChartPIC.MouseEnter, AddressOf StartUp.PicMouseEnter
- AddHandler ChartPIC.MouseLeave, AddressOf StartUp.PicMouseLeave
- AddHandler ChartPIC.MouseDown, AddressOf StartUp.PicMouseDown
- AddHandler ChartPIC.MouseUp, AddressOf StartUp.PicMouseUp
- End Sub
- Private Sub Shortcuts_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
- MainView.GetInstance.HideSubPic()
- End Sub
- Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
- StartUp.OpenNewTab(Setting.GetInstance)
- End Sub
- Private Sub SettingPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingPIC.Click
- StartUp.OpenNewTab(Setting.GetInstance)
- End Sub
- Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
- StartUp.OpenNewTab(ViewBox.GetInstance)
- End Sub
- Private Sub BoxPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BoxPIC.Click
- StartUp.OpenNewTab(ViewBox.GetInstance)
- End Sub
- Private Sub ImportPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImportPIC.Click
- StartUp.OpenNewTab(NewSell.GetInstance)
- End Sub
- Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
- StartUp.OpenNewTab(NewSell.GetInstance)
- End Sub
- Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
- StartUp.OpenNewTab(NewProduct.GetInstance)
- End Sub
- Private Sub ExportPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExportPIC.Click
- StartUp.OpenNewTab(NewProduct.GetInstance)
- End Sub
- Private Sub AccountingPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AccountingPIC.Click
- StartUp.OpenNewTab(About.GetInstance)
- End Sub
- Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
- StartUp.OpenNewTab(About.GetInstance)
- End Sub
- Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
- StartUp.OpenNewTab(Charts.GetInstance)
- End Sub
- Private Sub ChartPIC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChartPIC.Click
- StartUp.OpenNewTab(Charts.GetInstance)
- End Sub
- End Class