الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]

[WaHdAiN]

* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟

ضع هذ الكود في موديول
[PHP]Option Explicit

Declare Function shell_notifyicon Lib "shell32.dll" Alias _
"Shell_NotifyA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205

Public Const WM_MOUSEMOVE = &H200
Public Const NIF_ICON = &H2
Public Const WM_COMMNOTIFY = &H44

Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64

Type NOTIFYICONDATA
cbsize As Long
hwind As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
h As Long
szTip As String * MAX_TOOLTIP
End Type[/PHP]وفي الجنرال للنموذج ضع هذا الكود
[PHP]Dim nfData As NOTIFYICONDATA[/PHP]وكود وضع الأيقونة بجوار الساعة ضعه في بداية حدث تحميل الفورم
[PHP]With nfData

.hwind = Form1.hWnd

.uID = Form1.

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

.uCallbackMessage = WM_MOUSEMOVE

.h = Form1..Handle

.szTip = "أكتب هنا إسم برنامجك والذي سيظهر كتلميح عند وقوف الماوس على الأيقونة بجوار الساعة" & Chr$(0)
.cbsize = Len(nfData)
End With

[/PHP]وكود الإستدعاء ووضع الأيقونة بجوار الساعة هو
[PHP]Call shell_notifyicon(NIM_ADD, nfData)[/PHP]ضعه في المكان الذي يعجبك والأفضل ان يكون في حدث تحميل الفورم ^^

وأيضا كود إزالة الأيقونة من جوار الساعة
[PHP]Call shell_notifyicon(NIM_DELETE, nfData)[/PHP]