من يعرف كيف اجعل البرنامج يختفي ويظهر كرمز صغير بجانب الساعة

اولا

السلام عليكم

ثاني بالنسبه لهذا الموضوع فهو سهل جدا

وسوف اقوم بصنع مثال على ذلك واحضره لك بعد نهاية اختبارات الاسبوع القادم

سوف تجد المثال في معمل الانترنت بعد اسبوع إن شاء الله

نظر هذا المثال وتعلم

قسم الاعلانات العامة

Public 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

Public Const NIM_ADD = &H0

Public Const NIM_MODIFY = &H1

Public Const NIM_DELETE = &H2

Public Const NIF_MESSAGE = &H1

Public Const NIF_ICON = &H2

Public Const NIF_TIP = &H4

Public nid As NOTIFYICONDATA

حدث Load للفورم الرئيسية

With nid

.cbSize = Len(nid)

.hwnd = Me.hwnd

.uId = vbNull

.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE

.uCallBackMessage = WM_MOUSEMOVE

.hIcon = Me.Icon

.szTip = "الاستحقاقات" & vbNullChar

End With

Shell_NotifyIcon NIM_ADD, nid

وهذا كل شئ والكود منسوخ من برنامج قيد التشغيل حاليا منذ أكثر من سنة

(g) (f)

بسم الله الرّحمن الرّحيم

جرب الأداة التالية :

اضغط هنا