Ответить

Да, и не только на форму. Пробовал и на форму, и на Txt-блок

Ответить

Esli idti glupim putem to click mojno simulirowat, no eto wse uhodi ot problemi.

Ti opishi kak ti otkriwaesh okno! Kusok koda kin chtoli...

Ответить

Вот код модуля

Declare Function Shell_NotifyIcon Lib "shell32.dll" _
    Alias "Shell_NotifyIconA" (ByVal dwMessage As dwMess, _
    IpData As NOTIFYICONDATA) As Long

Public Enum dwMess
    NIM_ADD = &H0
    NIM_DELETE = &H2
    NIM_MODIFY = &H1
End Enum

Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As uF
    uCallbackMessage As CallMess
    hIcon As Long
    szTip As String * 64
End Type

Public Enum uF
    nif_message = &H1
    nif_icon = &H2
    nif_tip = &H4
End Enum

Public Enum CallMess
    WM_MOUSEMOVE = &H200
    WM_LBUTTONDOWN = &H201
    WM_LBUTTONUP = &H202
    WM_LBUTTONDBLCLK = &H203
    WM_RBUTTONDOWN = &H204
    WM_RBUTTONUP = &H205
    WM_RBUTTONDBLCLK = &H206
    WM_MBUTTONDOWN = &H207
    WM_MBUTTONUP = &H208
    WM_MBUTTONDBLCLK = &H209
    WM_SETFOCUS = &H7
    WM_KEYDOWN = &H100
    WM_KEYFIRST = &H100
    WM_KEYLAST = &H108
    WM_KEYUP = &H101
End Enum

Declare Function loadlibrary Lib "kernel32.dll" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Declare Function LoadIconA Lib "user32" (ByVal hinstance As Long, ByVal IpIconName As String) As Long
Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long

    Dim NID As NOTIFYICONDATA
Sub Addicon()
    Dim IDLib As Long  

    Dim IDICON As Long  
    Const IDMyIcon = 101
    Dim AddREsult As Long
   
    IDICON = frmMain.Picture1                   
    NID.cbSize = Len(NID)
    NID.hwnd = frmMain.hwnd                   
    NID.uID = IDMyIcon
    NID.uFlags = nif_message + nif_icon + nif_tip
    NID.uCallbackMessage = WM_LBUTTONDOWN
    NID.hIcon = IDICON
    NID.szTip = Left$("Zeus", 63) & Chr(0)

    AddREsult = Shell_NotifyIcon(NIM_ADD, NID)
End Sub
Sub DeleteIcon()
    Dim DeleteResult As Long
    DeleteResult = Shell_NotifyIcon(NIM_DELETE, NID)
End Sub

А это в программе

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Y = 0 Then
        Select Case X
        Case 515 * Screen.TwipsPerPixelX
            If ShowFR = False Then
                frmMain.Show
                ShowFR = True
            Else: frmMain.Hide
                ShowFR = False
            End If
            txtHour.SetFocus
        Case 517 * Screen.TwipsPerPixelX
            PopupMenu mnumenu
        End Select
    End If
End Sub

Ответить

Pogodi, naskolko ja ponjal iz koda, to forma to u tebja kak pokaziwaetsa kak raz po cliku na NEJ! Nichego neponjal, ili eto ne wes kod ili on ne rabotaet, kin progu mne na milo, ja glanu...

Ответить

Koroche pofiksil ja ee..

Wot kod kotorij nujno pomenjat:

Private Sub Form_MouseDOWN(Button As Integer, Shift As Integer, X As Single, Y As Single)
   Let Me.ScaleMode = VBRUN.ScaleModeConstants.vbPixels
    If Y = 0 Then
        Select Case X
       
        Case 515
            If ShowFR = False Then

                frmMain.Visible = True
             AppActivate (App.Title)
               txtHour.SetFocus
                ShowFR = True

           End If
        
       Case 517 
         PopupMenu mnumenu
        End Select
   End If
End Sub

Eto pochti toje umnojenije chtobilo u tebja tolko chut bolee rowno, i nije actiwacija twoej formi posle wiwoda na ekran , wot sobstwenno i wse.

Rabotaj

Ответить

Была такая проблема. Помогла эмуляция нажатия кнопки мышки.

Ответить

Da zachem emulatsija? Ja j napisal wot :AppActivate (App.Title)

Etim wse i aktiwiruetsa.

Ответить