Programalama > VISUAL BASIC


Ort. 0
Puan ver:
Private Type NOTIFYICONDATA
         cbSize As Long
         hwnd As Long
         uId As Long
         uFlags As Long
         ucallbackMessage As Long
         hIcon As Long
         szTip As String * 64
End Type
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const WM_MOUSEMOVE = &H200
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" _
         (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim tk As NOTIFYICONDATA
 
Public Sub trayicon(kontrol As Boolean)
         tk.cbSize = Len(tk)
         tk.hwnd = Form1.Picture1.hwnd
         tk.uId = 1&
         tk.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
         tk.ucallbackMessage = WM_MOUSEMOVE
         tk.hIcon = Form1.Picture1.Picture                ‘ İkon resmi
         tk.szTip = " Sarkıntı " & Chr$(0)
         If kontrol = False Then Shell_NotifyIcon NIM_DELETE, tk
         If kontrol = True Then Shell_NotifyIcon NIM_ADD, tk
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
         If Hex(x) = "1E3C" Then
                  Me.PopupMenu MnPr              ‘ İkon PopUp mönüsü
         End If
End Sub
 
Private Sub Form_Load()
         trayicon True                                             ' SysTray’e ikon eklenir
End Sub
Private Sub Form_Unload(Cancel As Integer)
         trayicon False                                  ' SysTray’den ikon silinir
End Sub


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2018 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.