كيفية استخدام "علبة النظام" مباشرةً من Visual Basic

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية176085
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
يوضح هذا المقال كيفية الاستفادة الكاملة من علبة النظام Windows أو ناحية إعلام شريط المهام "، باستخدام Visual Basic. يتم وضع رمز اختيارك في "ناحية إعلام شريط المهام" التي سيتم عرض تلميح وات اختيارك عند الماوس rested فوقه سيؤدي استعادة التطبيق عند النقر فوق و سيتم عرض قائمة منبثقة عند لقد بالنقر بزر الفأرة الأيمن. وهذا ممكن كافة وبسبب القدرة على Visual Basic مباشرةً معالجة الاستدعاء ، لذلك الاستفادة الكاملة من الدالة Shell_NotifyIcon التي يتم تصدير بواسطة Shell32.dll.
معلومات أخرى
يمكن إضافة المثال التالي أي الأساسية لمشروع Visual نموذج واحد على الأقل "و" الوحدة نمطية قياسية.

مثال خطوة بخطوة

  1. قم بإضافة التعليمات البرمجية التالية إلى المقطع التعريفات من الوحدة النمطية القياسية في المشروع:
          'user defined type required by Shell_NotifyIcon API call      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      'constants required by Shell_NotifyIcon API call:      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 Const WM_MOUSEMOVE = &H200      Public Const WM_LBUTTONDOWN = &H201     'Button down      Public Const WM_LBUTTONUP = &H202       'Button up      Public Const WM_LBUTTONDBLCLK = &H203   'Double-click      Public Const WM_RBUTTONDOWN = &H204     'Button down      Public Const WM_RBUTTONUP = &H205       'Button up      Public Const WM_RBUTTONDBLCLK = &H206   'Double-click      Public Declare Function SetForegroundWindow Lib "user32" _      (ByVal hwnd As Long) As Long      Public Declare Function Shell_NotifyIcon Lib "shell32" _      Alias "Shell_NotifyIconA" _      (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean      Public nid As NOTIFYICONDATA					
  2. قم بإضافة التعليمات البرمجية التالية إلى أي شكل في المشروع الذي تريد الاستجابة إلى رمز علبة النظام أو رموز إعلام للتطبيق الخاص بك:
          Private Sub Form_Load()       'the form must be fully visible before calling Shell_NotifyIcon       Me.Show       Me.Refresh       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 = "Your ToolTip" & vbNullChar       End With       Shell_NotifyIcon NIM_ADD, nid      End Sub      Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)      'this procedure receives the callbacks from the System Tray icon.      Dim Result As Long      Dim msg As Long       'the value of X will vary depending upon the scalemode setting       If Me.ScaleMode = vbPixels Then        msg = X       Else        msg = X / Screen.TwipsPerPixelX       End If       Select Case msg        Case WM_LBUTTONUP        '514 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_LBUTTONDBLCLK    '515 restore form window         Me.WindowState = vbNormal         Result = SetForegroundWindow(Me.hwnd)         Me.Show        Case WM_RBUTTONUP        '517 display popup menu         Result = SetForegroundWindow(Me.hwnd)         Me.PopupMenu Me.mPopupSys       End Select      End Sub      Private Sub Form_Resize()       'this is necessary to assure that the minimized window is hidden       If Me.WindowState = vbMinimized Then Me.Hide      End Sub      Private Sub Form_Unload(Cancel As Integer)       'this removes the icon from the system tray       Shell_NotifyIcon NIM_DELETE, nid      End Sub      Private Sub mPopExit_Click()       'called when user clicks the popup menu Exit command       Unload Me      End Sub      Private Sub mPopRestore_Click()       'called when the user clicks the popup menu Restore command       Dim Result As Long       Me.WindowState = vbNormal       Result = SetForegroundWindow(Me.hwnd)       Me.Show      End Sub					
  3. جعل "إعدادات الخصائص" التالية في نفس النموذج الذي قمت بإضافته رمز أعلاه:
       Property         Required Setting for Taskbar Notification Area example   -----------------------------------------------------------------------   Icon           = The icon you want to appear in the system tray.   Minbutton      = True   ShownInTaskbar = False					
  4. إضافة عناصر القائمة التالية إلى نفس النموذج باستخدام محرر قائمة:
       Caption      Name          Enabled   Visible   Position   ---------------------------------------------------------   &SysTray     mPopupSys      True      False    Main Level   &Restore     mPopRestore    True      True     Inset one   &Exit        mPopExit       True      True     Inset one					
يمكنك إضافة عناصر القائمة إضافية حسب الحاجة.

مرونة ناحية إعلام شريط المهام

يمكنك تعديل تعريف الأدوات التي تظهر الإعلام الرمز بواسطة تغيير السطر التالي في الإجراء Form_Load:
   .szTip = "Your ToolTip" & vbNullChar				
استبدال "الخاص بك ToolTip" مع النص الذي تريد ظهوره.

يمكنك تعديل الرمز الذي يظهر في "ناحية إعلام شريط المهام" بواسطة تغيير السطر التالي في الإجراء Form_Load:
   .hIcon = Me.Icon				
استبدال Me.Icon مع أي رمز في المشروع.

يمكنك تغيير أي إعدادات "منطقة الإعلام في شريط المهام" في أي وقت بعد الاستخدام ثابت NIM_ADD بواسطة إعادة تعيين القيم في متغير nid ثم استخدام التباين التالية استدعاء API Shell_NotifyIcon:
   Shell_NotifyIcon NIM_MODIFY, nid.				
ولكن, إذا كنت ترغب في نموذج مختلف تلقي رد الاتصال ثم سوف تحتاج إلى حذف الرمز الحالي أولاً باستخدام "NIM_Delete Shell_NotifyIcon ، nid" كما لن تقبل دالة NIM_Modify Hwnd جديد أو سوف تحتاج إلى إضافة رمز آخر إلى أدوات النظم لاستخدام نموذج جديد "Shell_NotifyIcon NIM_ADD nid" بعد refilling نوع nid مع الجديدة النماذج Hwnd. يمكن أيضاً بتعريف نسخ منفصلة من النوع nid عن كل نموذج تريد عرض رمز في علبة النظام Windows وتغييرها في كل نموذج على تنشيط الحدث باستخدام تسلسل NIM_DELETE و NIM_ADD.
مراجع
للحصول على مزيد من المعلومات المتعلقة باستخدام "علبة النظام" أو باستخدام "ناحية إعلام شريط المهام" من 4.0 Visual Basic أو من إصدار سابق، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
149276كيفية استخدام رموز مع نظام التشغيل Windows 95/98/Me "شريط المهام منطقة الإعلام"
شريط المهام

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 176085 - آخر مراجعة: 12/05/2015 08:09:12 - المراجعة: 2.5

Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic Control Creation Edition, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition

  • kbnosurvey kbarchive kbmt kbbug kbhowto KB176085 KbMtar
تعليقات