Как сделать что бы при нажатии на кнопку, программа сворачивалась в системный трей? - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы