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

نام تاپیک: اضافه کردن راست کلیک به برنامم

  1. #1
    کاربر دائمی آواتار masaioki.ono
    تاریخ عضویت
    خرداد 1390
    محل زندگی
    تهران
    پست
    155

    Question اضافه کردن راست کلیک به برنامم

    من چطور میتونم به برنامم راست کلیک اضافه کنم یعنی روی فرم اگر کاربر راست کلیک کرد مثلا کپی پیست و .... یا چیزی که میخوام رو بیاره

  2. #2
    کاربر دائمی
    تاریخ عضویت
    مرداد 1387
    محل زندگی
    MsgBox barnamenevis.org
    پست
    540

    نقل قول: اضافه کردن راست کلیک به برنامم

    دستورش اینه PopupMenu (سرچ بکنی مطلب بیشتر در موردش پیدا میکنی)
    آخرین ویرایش به وسیله vbhamed : چهارشنبه 22 بهمن 1393 در 08:48 صبح

  3. #3

    نقل قول: اضافه کردن راست کلیک به برنامم

    Private Const MF_CHECKED = &H8&
    Private Const MF_DISABLED = &H2&
    Private Const MF_GRAYED = &H1&
    Private Const MF_SEPARATOR = &H800&
    Private Const MF_STRING = &H0&

    Private Const TPM_CENTERALIGN = &H4&
    Private Const TPM_LEFTALIGN = &H0&
    Private Const TPM_RIGHTALIGN = &H8&

    Private Const TPM_BOTTOMALIGN = &H20&
    Private Const TPM_TOPALIGN = &H0&
    Private Const TPM_VCENTERALIGN = &H10&

    Private Const TPM_NONOTIFY = &H80&
    Private Const TPM_RETURNCMD = &H100&

    Private Const TPM_HORNEGANIMATION = &H800&
    Private Const TPM_HORPOSANIMATION = &H400&
    Private Const TPM_NOANIMATION = &H4000&
    Private Const TPM_VERNEGANIMATION = &H2000&
    Private Const TPM_VERPOSANIMATION = &H1000&
    Private Const TPM_RECURSE = &H1&


    Private Type POINTAPI
    x As Long
    y As Long
    End Type

    Private Declare Function CreatePopupMenu Lib "user32" () As Long
    Private Declare Function TrackPopupMenuEx Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal HWnd As Long, ByVal lptpm As Any) As Long
    Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpNewItem As Any) As Long
    Private Declare Function DestroyMenu Lib "user32" (ByVal hMenu As Long) As Long
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long





    Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    Dim pt As POINTAPI
    Dim Retval As Long, hMenu As Long

    hMenu = CreatePopupMenu()

    AppendMenu hMenu, MF_STRING, 1, "Open File"
    AppendMenu hMenu, MF_SEPARATOR, 2, ByVal 0&
    AppendMenu hMenu, MF_STRING, 3, "Compress >>"
    AppendMenu hMenu, MF_STRING, 4, "Decompress <<"
    AppendMenu hMenu, MF_SEPARATOR, 5, ByVal 0&
    AppendMenu hMenu, MF_STRING, 6, "..:: Customize ::.."
    AppendMenu hMenu, MF_SEPARATOR, 7, ByVal 0&
    AppendMenu hMenu, MF_STRING, 8, "//[Console App]\\"
    AppendMenu hMenu, MF_STRING, 9, "^^ About ^^"
    GetCursorPos pt

    Retval = TrackPopupMenuEx(hMenu, TPM_VCENTERALIGN Or TPM_RETURNCMD, pt.x, pt.y, Me.hwnd, ByVal 0&)


    If Retval = 1 Then Call PictureButton1_Click
    If Retval = 3 Then Call PictureButton2_Click
    If Retval = 4 Then Call PictureButton3_Click
    If Retval = 6 Then Customize.Show 1
    If Retval = 9 Then About.Show 1
    If Retval = 8 Then
    objDOS.ExecuteCommand
    objDOS.CommandLine = App.Path + "\console.exe"
    objDOS.ExecuteCommand
    Text2.Text = objDOS.Outputs
    End If



    DestroyMenu hMenu
    End Sub


  4. #4
    کاربر دائمی آواتار masaioki.ono
    تاریخ عضویت
    خرداد 1390
    محل زندگی
    تهران
    پست
    155

    نقل قول: اضافه کردن راست کلیک به برنامم

    تشکر اما میشه توضیح بدی اینها رو دقیقا چجوری استفاده کنم
    آخرین ویرایش به وسیله masaioki.ono : سه شنبه 21 بهمن 1393 در 00:24 صبح

  5. #5
    کاربر دائمی
    تاریخ عضویت
    مرداد 1387
    محل زندگی
    MsgBox barnamenevis.org
    پست
    540

    نقل قول: اضافه کردن راست کلیک به برنامم

    برای تغییر منو مثل عکس زیر، روی فرم راست کلیک کنید:


    Menu.png
    فایل های ضمیمه فایل های ضمیمه

  6. #6

    نقل قول: اضافه کردن راست کلیک به برنامم

    نقل قول نوشته شده توسط masaioki.ono مشاهده تاپیک
    تشکر اما میشه توضیح بدی اینها رو دقیقا چجوری استفاده کنم
    فایل آموزش پیوست شد
    فایل های ضمیمه فایل های ضمیمه

  7. #7
    منتظر تایید آدرس ایمیل
    تاریخ عضویت
    خرداد 1390
    پست
    332

    نقل قول: اضافه کردن راست کلیک به برنامم

    نقل قول نوشته شده توسط Yasser_Sh مشاهده تاپیک
    فایل آموزش پیوست شد
    سلام
    با تشکر از نمونه ای که قرار داده اید
    خواستم بپرسم آیا میتوان میتوان برای این منوها آیکون قرار داد ؟
    با تشکر
    آخرین ویرایش به وسیله nazanin_90 : چهارشنبه 29 بهمن 1393 در 09:07 صبح

  8. #8

    نقل قول: اضافه کردن راست کلیک به برنامم

    نقل قول نوشته شده توسط nazanin_90 مشاهده تاپیک
    سلام
    با تشکر از نمونه ای که قرار داده اید
    خواستم بپرسم آیا میتوان میتوان برای این منوها آیکون قرار داد ؟
    با تشکر
    یک نمونه کد پیوست شد
    عکس های ضمیمه عکس های ضمیمه
    فایل های ضمیمه فایل های ضمیمه

  9. #9
    منتظر تایید آدرس ایمیل
    تاریخ عضویت
    خرداد 1390
    پست
    332
    نقل قول نوشته شده توسط Yasser_Sh مشاهده تاپیک
    یک نمونه کد پیوست شد
    با تشکر
    منظورم این بود که اگر بشود با استفاده از همان کدهای که در نمونه اولی قرارداده بودید از آیکون استفاده کرد.

    نقل قول نوشته شده توسط Yasser_Sh مشاهده تاپیک
    فایل آموزش پیوست شد
    در نمونه فوق چگونه و با چه کدی ساب منو را اضافه نمود ؟

    با تشکر
    آخرین ویرایش به وسیله vbhamed : شنبه 09 اسفند 1393 در 08:16 صبح

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

  1. سوال: غیر فعال کردن راست کلیک در Textbox
    نوشته شده توسط ace_sina در بخش C#‎‎
    پاسخ: 1
    آخرین پست: جمعه 04 آذر 1390, 23:40 عصر
  2. قفل کردن راست کلیک در صفحه بدون پیغام
    نوشته شده توسط majnun در بخش طراحی وب (Web Design)
    پاسخ: 2
    آخرین پست: پنج شنبه 06 مرداد 1390, 08:57 صبح
  3. غیر فعال کردن راست کلیک به طور کلی ( در کل برنامه )
    نوشته شده توسط Mirzabenevis در بخش VB.NET
    پاسخ: 2
    آخرین پست: یک شنبه 23 خرداد 1389, 12:15 عصر
  4. غیر فعال کردن راست کلیک فلش در C#‎
    نوشته شده توسط nmokkary در بخش C#‎‎
    پاسخ: 4
    آخرین پست: سه شنبه 04 اسفند 1388, 06:21 صبح
  5. سوال: غیر فعال کردن راست کلیک در تکست باکس
    نوشته شده توسط arashi در بخش برنامه نویسی در 6 VB
    پاسخ: 12
    آخرین پست: شنبه 22 فروردین 1388, 18:34 عصر

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

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