تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود يعمل مشاكل
#1
السلام عليكم

كتبت كود اظهار ايقونة في شريط المهام

المهم شريط المهام مقسم الى 4 اقسام (قسم زر ابدأ ، قسم ايقونات الاختصارات ، قسم البرامج المفتوحة او المجلدات المفتوحة ، قسم مصغرات ايقونات البرامج المفتوحة )

و في القسم الثالث لا تظهر ايقونة ثابتة لبرنامجي بل تتحرك في بعض الحالات لذا هل يمكن ازالة هذه الايقونة ثم اعادة تحميلها
الرد }}}}
تم الشكر بواسطة:
#2
هذا هو الكود

كود :
Private Declare Function Shell_NotifyIcon Lib _
"shell32.dll" Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
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

Dim notify As NOTIFYICONDATA

Private Const NIM_ADD = &H0
Private Const NIM_DELETE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_MESSAGE = &H1
Private Const NIF_TIP = &H4
''''''''''''''''''''''''''''''''
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONUP = &H202
Private Const WM_RBUTTONUP = &H205


Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

Call delicon

End Sub

Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)

If Button = 2 Then

Me.PopupMenu ee

End If

End Sub

Public Sub seticon()

With notify

.cbSize = Len(obj)

.hWnd = Picture1.hWnd

.uID = 1&

.uFlags = NIF_TIP Or NIF_MESSAGE Or NIF_ICON

.uCallbackMessage = WM_MOUSEMOVE

.hIcon = Picture1.Picture

.szToolTip = "vb4arab.com"

End With

Shell_NotifyIcon NIM_ADD, notify

End Sub



Public Sub delicon()

Shell_NotifyIcon NIM_DELETE, notify

End Sub

و في الفورم لود :

delicon
Call seticon
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [سؤال] مشاكل فى برمجة مفاتيح بحث،تعديل محمد إبراهيم على حسن 0 87 18-08-16, 07:34 PM
آخر رد: محمد إبراهيم على حسن
  [vb6.0] المشروع لا يعمل على الاجهزة الاخرى DeMahdi 1 138 09-06-16, 12:59 AM
آخر رد: عبد العزيز البسكري
  سؤال : زر الطباعة في التقرير لا يعمل mh66 4 680 03-03-16, 10:59 AM
آخر رد: محمود العجيري
  [سؤال] بعد عمل الحزمة ﻻ يعمل البرنامج على ويندوز 7 amrelgadaa 2 751 13-11-14, 11:14 AM
آخر رد: amrelgadaa
  البرنامج يعمل على جهازى فقط ولا يعمل على اجهزه اخرى Yasso 6 723 06-08-13, 12:21 AM
آخر رد: esmaeelmalkawi
  مشاكل الطباعة في فجوال 6 محمد الشرع 1 383 15-06-13, 12:28 AM
آخر رد: VB_Coder
  كيف اضع قواعد بيانات برمجي المرفق في ملف dll واجعل برنامجي يعمل عليها ؟؟ softmail8 5 690 11-06-13, 06:02 PM
آخر رد: softmail8
  مشاكل في تحزيم البرنامج بالست اب فاكتوري وكذلك بالفيجول hamada666 2 464 08-06-13, 08:06 PM
آخر رد: hamada666
  مشاكل تحزيم البرنامج ابن الشام 4 558 04-03-13, 11:42 PM
آخر رد: hago

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


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