111,083
社区成员




'最小化隐藏主窗体,显示到托盘
Private Sub Form1_SizeChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.SizeChanged
Try
If Me.WindowState = FormWindowState.Minimized Then
Me.NotifyIcon1.Visible = True
Me.Hide()
End If
Catch ex As Exception
MessageBox.Show(ex.Message.Trim)
End Try
End Sub
'点托盘图标显示主窗体和菜单
Private Sub NotifyIcon1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDown
Try
If e.Button = MouseButtons.Left Then //判断下鼠标哪个键,因为右键是弹出菜单的
Me.Visible = True
Me.NotifyIcon1.Visible = False
Me.WindowState = FormWindowState.Normal
Me.Activate()
ElseIf e.Button = MouseButtons.Right Then
End If
Catch ex As Exception
MessageBox.Show(ex.Message.Trim)
End Try
End Sub
'开机自动启动
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
If MenuItem7.Checked = False Then
Dim starupPath As String = Application.ExecutablePath
Dim loca As RegistryKey = Registry.LocalMachine
Dim run As RegistryKey = loca.CreateSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run")
Try
run.SetValue("OA上网助手", starupPath)
MessageBox.Show("开机自动启动设置成功!!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
loca.Close()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
MenuItem7.Checked = True
MenuItem8.Checked = False
End If
End Sub