Public Class Form1 Private Sub Form1_Load(ByVal sender As Object ... ) Handles Me.Load
'タスクバーにアイコンを表示・画面は非表示 Application.DoEvents() ShowInTaskbar = False Me.Hide() '画面を非表示 NotifyIcon1.Visible = True 'タクストレイのアイコン End Sub '画面を表示
Private Sub Menu_Open_Click(ByVal send ... ) Handles Menu_Open.Click Me.Show() End Sub '画面を非表示 Private Sub Menu_Close_Click(ByVal send ... ) Handles Menu_Close.Click Me.Hide() End Sub 'プログラムの終了 Private Sub Menu_End_Click(ByVal send ... ) Handles Menu_End.Click Application.Exit() End Sub End Class |