نمایش نتایج 1 تا 4 از 4

نام تاپیک: فراخوانی Handle از آیتم ها منوی سیستمی

  1. #1
    کاربر دائمی آواتار ROSTAM2
    تاریخ عضویت
    اسفند 1390
    محل زندگی
    روستایی در کنج استان فارس
    پست
    1,266

    Question فراخوانی Handle از آیتم ها منوی سیستمی

    سلام.

    من با توابع API و این کد همین کد آی.دی آیتم منو رو گرفتم ولی تابع GetSubMenu درست عمل نمی کنه!
    مشکل کد من کجاست؟!

    توابع API:

    Declare Function GetMenuItemCount Lib "user32" (hMenu As IntPtr) As Integer
    Declare Function GetMenuItemID Lib "user32" (hMenu As IntPtr, nPos As Integer) As Integer
    Declare Function GetSubMenu Lib "user32" Alias "GetSubMenu" (
    ByVal hMenu As IntPtr,
    ByVal nPos As Integer) As Integer


    کدهای من:

    Dim Count As Integer = GetMenuItemCount(hMenu)
    Dim MenuID As Integer = 0
    Dim MenuHandle As Integer = 0
    For i = 0 To Count - 1
    MenuID = GetMenuItemID(hMenu, i)
    MenuHandle = GetSubMenu(hMenu, i)
    Dim Expr As String = String.Format("{0}) {1}/{2}", hMenu, MenuHandle, MenuID)
    Debug.Print(Expr)
    Next




  2. #2
    کاربر دائمی آواتار ROSTAM2
    تاریخ عضویت
    اسفند 1390
    محل زندگی
    روستایی در کنج استان فارس
    پست
    1,266

    نقل قول: فراخوانی Handle از آیتم ها منوی سیستمی

    سلام.

    این منویی که من Handle اون رو می گیرم (hMenu) یک منو از MainMenu در ریسورس dll هست و بصورت Popup یا همون ContextMenu فراخوانی می شه.
    popupmenu01.jpg
    آخرین ویرایش به وسیله ROSTAM2 : پنج شنبه 17 آذر 1401 در 19:07 عصر

  3. #3
    کاربر دائمی آواتار ROSTAM2
    تاریخ عضویت
    اسفند 1390
    محل زندگی
    روستایی در کنج استان فارس
    پست
    1,266

    نقل قول: فراخوانی Handle از آیتم ها منوی سیستمی

    سلام مجدد.
    من از طریق WndProc برای PopupMenu به نتیجه نرسیدم و از روشی که بصورت اصولی هست استفاده کردم (متاسفانه )

    برای نمایش منو بصورت Popup یا همون ContextMenu از تابع TrackPopupMenu از توابع API استفاده می شه:


    Private Declare Function TrackPopupMenu Lib "user32" (
    ByVal hMenu As Long,
    ByVal wFlags As Long,
    ByVal X As Long,
    ByVal Y As Long,
    ByVal nReserved As Long,
    ByVal hwnd As Long,
    ByVal lprc As Long) As Integer


    حالا منو از هرکجا اومده باشه چه ریسورس یک DLL یا از خود پروژه Handle از اون نیاز هست و برای برگردوندن آی.دی آیتم کلیک شده پارامتر ورودی wFlags باید TPM_RETURNCMD ست بشه که آی.دی رو برگردونه:

    Private Const TPM_RETURNCMD = &H100&


    برای استفاده از تابع TrackPopupMenu من یک تابع دیگه ساختم که اون ورودی رو بصورت پیشفرض داره و با کلیک روی آیتم های منو آی.دی آیتم رو بر می گردونه و اگر آیتمی انتخاب نشده باشه 0 بر می گردونه و می شه بعد از استفاده از این تابع مشروط بر اینکه آی.دی بیشتر از صفر باشه رویداد یا دستورات ما اجرا بشه:

    Public Function TrackPopupMenu(hMenu As IntPtr,
    ByVal p As System.Drawing.Point,
    ByVal hwnd As Long) As Integer
    Return TrackPopupMenu(hMenu, TPM_RETURNCMD, p.X, p.Y, 0, hwnd, 0)
    End Function


    این هم برای استفاده از تابع و اجرای دستور بعد از کلیک آیتم های منو که طبق آی.دی مد نظرتون می تونید براش دستور بنویسید:
    در رویداد MouseUp از شیء:


    Private Sub Parent_MouseUp(sender As Object, e As MouseEventArgs) Handles Parent.MouseUp
    Dim MenuID As Integer = 0
    If e.Button = MouseButtons.Right Then
    MenuID = rs.TrackPopupMenu(PopupMenu, Control.MousePosition, CType(sender, Control).Handle)
    If MenuID > 0 Then
    MsgBox(MenuID.ToString)
    End If
    End If
    End Sub

  4. #4
    کاربر دائمی آواتار ROSTAM2
    تاریخ عضویت
    اسفند 1390
    محل زندگی
    روستایی در کنج استان فارس
    پست
    1,266

    نقل قول: فراخوانی Handle از آیتم ها منوی سیستمی

    سلام.
    و بالاخره Finally:

    گرفتن آی.دی آیتم منوی کلیک شده توسط WndProc بدون خطا:

    Public Const WM_MENUSELECT = &H11F

    Protected Overrides Sub WndProc(ByRef m As Message)
    Static a As Integer = 0
    Static MenuID As Long = 0
    If m.Msg = WM_MENUSELECT And m.LParam <> hSysMenu Then
    If m.LParam Then
    MenuID = m.WParam.ToInt64 And &HFFFF&
    RaiseEvent Selected(MenuID)
    Else
    If MenuID > 0 Then
    RaiseEvent Clicked(MenuID)
    MenuID = 0
    End If
    End If
    ElseIf m.Msg = WM_MENUSELECT Then
    MenuID = 0
    End If
    MyBase.WndProc(m)
    End Sub


    hSysMenu منوی سیستمی فرم هست که از طریق تابع GetSystemMenu از API مقداردهی شده است.

    Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" (
    ByVal hwnd As Long,
    ByVal bRevert As Boolean) As Long


    SysMenuAddedItem01.jpg
    عکس های ضمیمه عکس های ضمیمه

تاپیک های مشابه

  1. پاسخ: 2
    آخرین پست: یک شنبه 02 فروردین 1394, 21:28 عصر
  2. سوال: handle کردن کلیک روی یک سلول از یک Table در سرور ساید
    نوشته شده توسط wantonboy13 در بخش ASP.NET Web Forms
    پاسخ: 1
    آخرین پست: چهارشنبه 25 آبان 1390, 07:20 صبح
  3. مقاله: اطلاعاتی در مورد Handle Property در دات نت و سیستم عامل ویندوز
    نوشته شده توسط mosini در بخش C#‎‎
    پاسخ: 3
    آخرین پست: چهارشنبه 06 خرداد 1388, 16:56 عصر
  4. ْبدست آوردن Window Handle از Proccess Handle
    نوشته شده توسط A.Nemati در بخش مباحث عمومی دلفی و پاسکال
    پاسخ: 1
    آخرین پست: سه شنبه 05 آذر 1387, 13:17 عصر
  5. پاسخ: 7
    آخرین پست: چهارشنبه 26 اردیبهشت 1386, 02:56 صبح

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •