النسخة الحديدة من البرنامج MSOMS PC SHUTDOWN V2.0 من برمجتي

[WaHdAiN]

برنامج رائع ومفيد جدا

جزاك الله خير يامبدع ولا تحرمنا جديد ها الإبداع

ملاحظات بسيطة جدا :-
1- تلغي خاصي التحجيم بما ان الأدوات لاتعمل resizing

2- تجعل البرنامج كأيقونة في شريط الإعام بجوار الساعة

3- وسلامتك بس xD

[Narcon-sama]

برنامج رائع ومفيد جدا

جزاك الله خير يامبدع ولا تحرمنا جديد ها الإبداع

ملاحظات بسيطة جدا :-
1- تلغي خاصي التحجيم بما ان الأدوات لاتعمل resizing

2- تجعل البرنامج كأيقونة في شريط الإعام بجوار الساعة

3- وسلامتك بس xD

لقد تم حل الملاحظة و لكن الثانية لست خبيرا فيها

[WaHdAiN]

لقد تم حل الملاحظة و لكن الثانية لست خبيرا فيها

قمت بتحليل برنامجك وطلع انه معمول بالفيجوال بيسك



قم بوضع هذا الكود بداخل Module جديد:

 
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
    "Shell_NotifyIconA" (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
    hIcon As Long
    szTip As String * MAX_TOOLTIP
End Type
Public nfIconData As NOTIFYICONDATA
Public Function CreateIt(Form As Form, Icon As StdPicture, ToolTip As String)
With nfIconData
        .hwind = Form.hwnd
        .uId = Form.Icon
        .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP Or NIM_ADD
        .uCallBackMessage = WM_MOUSEMOVE
        .hIcon = Icon.Handle
        .szTip = ToolTip & Chr$(0)
        .cbSize = Len(nfIconData)
 
    End With
    Call Shell_NotifyIcon(NIM_ADD, nfIconData)
End Function
Public Function CloseIt()
    Call Shell_NotifyIcon(NIM_DELETE, nfIconData)
End Function

ثم ضع هذا الكود في حدث Form_Load وقبل نهاية الأمر End Sub :

Do
                    DoEvents
If Right(CurPath, 1) <> "\" Then CurPath = CurPath & "\"
CreateIt Me, Me.Icon, "وصف برنامجك بجوار الساعة هنا"
                Loop

وهذا الكود للإظهار النموذج في حال النقر مرة واحدة او مرتين على الايقونة بجوار الساعة :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 On Error GoTo 10
    Select Case (X \ Screen.TwipsPerPixelX)
 
           Case &H203
            Form1.Show
            Me.WindowState = 3
           Case &H202
           Form1.Show
 
    End Select
10:
End Sub

وأي إستفسار أنا في الخدمة ^_^