Как сделать что бы при нажатии на кнопку, программа сворачивалась в системный трей? - VB
Формулировка задачи:
Как сделать что бы при нажатии на кнопку, программа сворачивалась в системный трей?
Решение задачи: «Как сделать что бы при нажатии на кнопку, программа сворачивалась в системный трей?»
textual
Листинг программы
Private Sub Form_Load() ' Заносим иконку в трей и скрываем форму TaskIcon1.Add Form1.Icon, "Example" Form1.Hide End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) ' Удаляем иконку из трея TaskIcon1.Delete End Sub Private Sub Form_Resize() ' Если окно минимизировано, то скрываем форму и возвращаем ей нормальный размер If Form1.WindowState = 1 Then Form1.Hide: Form1.WindowState = 0 End Sub Private Sub menu1_Click() MsgBox "Пример помещения иконки" + Chr$(34) + "туда где часики" + Chr$(34) End Sub Private Sub menu3_Click() Unload Form1 End Sub Private Sub TaskIcon1_DblClick() Form1.Show End Sub Private Sub TaskIcon1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' При нажатии правой кнопки мыши выводим меню If Button = 2 Then PopupMenu menu End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д