تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
برنامج صغير لعرض ايقونه في الTask bar
#1
كاتب الموضوع : AhmedEssawy

كود :
' shell_notify icon is api which instruct to the the operating
' system to show icon in a taskbar
' it contain two parameter first give message what to be
' done another parameter notifyicon object which contain the
' property of icon
Private Declare Function Shell_NotifyIcon Lib _
"shell32.dll" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
'To create structure which variable contain the property of icon
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szToolTip As String * 64
End Type
'then create a object which pass the NotifyIcon procedure
Dim notify As NOTIFYICONDATA
'It declare the constant value
Const NIM_ADD = &H0 'constant value for add the icon in a taskbar
Const NIM_DELETE = &H2 'constant value for remove the icon in a taskbar
Const NIF_TIP = &H4
Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const WM_MOUSEMOVE = &H200

Private Sub Form_Load()
Me.mnurun.Checked = False
Me.mnuStop.Checked = False
With notify
.cbSize = Len(obj)
.hwnd = Picture1.hwnd 'to assign the pointer or handle
'property of picture
.uID = 1&
.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON
.uCallbackMessage = WM_MOUSEMOVE

.hIcon = Picture1.Picture
.szToolTip = "Yellow Color" 'to show the message when
'mouse over on the icon

End With

'lastly,we setup the icon througth the procedre
Shell_NotifyIcon NIM_ADD, notify 'first give message to add
'the icon in a taskbar
End Sub
Private Sub mnurun_Click()
Me.mnurun.Checked = True
Me.mnuStop.Checked = False
'Load Form1
End Sub
Private Sub mnuStop_Click()
Me.mnurun.Checked = False
Me.mnuStop.Checked = True
Shell_NotifyIcon NIM_DELETE, notify
' Unload Form1
Unload Me
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Me.PopupMenu Main
End If
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  برنامج للتحويل بين انظمة العد المختلفة abulayth 6 2,300 06-05-15, 03:49 PM
آخر رد: ro3h
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 379 04-04-15, 05:57 PM
آخر رد: abulayth
  الا تحلم بقنوات تلفزية على خيارك .. انتظر ... بامكانك تاثيث برنامج لقنواتك المفضلة derbaliammar 0 677 17-07-13, 05:46 AM
آخر رد: derbaliammar
  برنامج توليد ارقام عشوائية من عشر منازل RaggiTech 0 797 17-10-12, 03:10 PM
آخر رد: RaggiTech
  تفضلو برنامج بسيط (بمناسبة شهر رمضان الكريم) RaggiTech 0 526 17-10-12, 03:09 PM
آخر رد: RaggiTech
  لايقاف برنامج ما ومنعه من التشغيل RaggiTech 0 364 17-10-12, 12:55 AM
آخر رد: RaggiTech
  كيفية اغلاق أي برنامج من خلال الفيجوال بيسك RaggiTech 0 1,003 17-10-12, 12:51 AM
آخر رد: RaggiTech
  ارسال ايميل باستخدام برنامج آوت لوك RaggiTech 0 368 17-10-12, 12:14 AM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم