| Вопрос: Помогите по VB!!!!!!......Элементарное!!!! | Добавлено: 11.06.04 18:29 |
Автор вопроса:  EDIK
|
| Как добавить контекстное меню когда иконка находится в трее (при нажатии на иконке правой кнопкой ) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Chill ICQ: 554200 Вопросов: 101 Ответов: 343 |
Профиль | | #1 | Добавлено: 11.06.04 22:26 |
|
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim msg As Long '//The callback value If Y = 0 Then If (Me.ScaleMode = vbPixels) Then msg = X Else msg = X / Screen.TwipsPerPixelX End If Select Case msg Case WM_LBUTTONDBLCLK '515 restore form window If Me.Visible = False Then 'если форма видна, то ничего не делаем Me.WindowState = vbNormal Call SetForegroundWindow(Me.hWnd) Me.Show End If Case WM_RBUTTONUP '517 display popup menu Call SetForegroundWindow(Me.hWnd) Me.PopupMenu Me.mnuSystray Case WM_LBUTTONUP '514 restore form window End Select End If End Sub |
||
Страница: 1 |