نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: ايجاد فرم بدون منوبار (فرم خالي بدون هيچ دكمه اي)

  1. #1


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    Cap ايجاد فرم بدون منوبار (فرم خالي بدون هيچ دكمه اي)

    سلام دوستان

    بعضي وقتا ما ميخوايم يه پيغامي به كاربر بديم ولي نميخوايم كاربر بتونه پيغام ما رو حذف كنه. يا مثلا ميخوايم يه فرمي داشته باشيم كه فقط دكمه هاي دلخواه ما رو داشته باشه. براي اين كار به فرمي كه منوبار نداشته باشه نياز داريم.
    در اين آموزش ميخوام يك فرم براتون بسازم كه منوبار نداشته باشه. منوبار نوار بالايي فرم هست كه دكمه هاي خروج و ماكزيمايز و مينيمايز روش هست.
    اين هم نمونه نهايي فرم

    برای دیدن سایز بزرگ روی عکس کلیک کنید

نام:  form_without_manubar.jpg
مشاهده: 49
حجم:  23.7 کیلو بایت

    خب حالا بريم سراغ آموزش:
    ابتدا يك فرم ميسازيم با هر محتوايي كه لازم داريم. سپس روي فرم كليك كرده و F7 رو ميزنيم تا وارد محيط كدنويسي فرم بشيم. (ميتونين روي فرم راست كليك كرده و گزينه view code رو بزنين)

    حالا اين كدها رو به ابتداي كدها اضافه ميكنيم:
    کد:
    Option Explicit
    Const GWL_STYLE = -16
    Const WS_CAPTION = &HC00000
    Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
    Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
    
    Private Sub UserForm_Initialize()
        Dim lngWindow As Long, lFrmHdl As Long
        lFrmHdl = FindWindowA(vbNullString, Me.Caption) ' The UserForm must have a caption
        lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
        lngWindow = lngWindow And (Not WS_CAPTION)
        Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
        Call DrawMenuBar(lFrmHdl)
    End Sub
    به همين راحتي فرم ما به حالت دلخواه در اومد.

    براي راحتي شما دوستان يك نمونه هم به تاپيك پيوست ميكنم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده


  2.  

  3. #2
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    با تشکر از امیر عزیز
    تو فایل پیوست علاوه بر حذف دکمه ضربدر ( خروج یا Exit ) حاشیه دور فرم هم حذف شده که امیدوارم مفید واقع بشه ( در ضمن روی ویندوزهای 64 بیتی هم جواب میده )
    فايل هاي پيوست شده فايل هاي پيوست شده



  4. #3


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    با تشکر از امیر عزیز
    تو فایل پیوست علاوه بر حذف دکمه ضربدر ( خروج یا Exit ) حاشیه دور فرم هم حذف شده که امیدوارم مفید واقع بشه ( در ضمن روی ویندوزهای 64 بیتی هم جواب میده )

    آموزش اين فرم ها رو هم گذاشته بودم كه
    آموزشي: ايجاد فرم بدون منوبار (فرم خالي بدون هيچ دكمه اي)
    ویرایش توسط Amir Ghasemiyan : 2014/12/07 در ساعت 12:15


  5. #4
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط amir ghasemiyan نمایش پست ها

    آموزش اين فرم ها رو هم گذاشته بودم كه
    آموزشي: ايجاد فرم بدون منوبار (فرم خالي بدون هيچ دكمه اي)
    بله حق با شماست
    منتها فایل شما رو سیستم من ( 64 بیتی) ارور میده ولی فایل خودم اجرا میشه دلیل چشه؟؟؟؟



  6. #5


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط M_R_M نمایش پست ها
    بله حق با شماست
    منتها فایل شما رو سیستم من ( 64 بیتی) ارور میده ولی فایل خودم اجرا میشه دلیل چشه؟؟؟؟
    جالبه.
    فايل من عبارت PtrSafe داره كه فايل شما نداره. در سايت خود آفيس اين توضيح رو براي عبارت توصيفي PtrSafe آورده:

    PtrSafe Indicates that the Declare statement is compatible with 64-bits. This attribute is mandatory on 64-bit systems.

    با اين توضيحات يعني در سيستم 64 بيتي اضافه كردن اين عبارت توصيفي اجباريه. بعد چطوري تو سيستم شما اجرا نميشه؟


    پ ن: پست ها به تاپيك مربوطه انتقال داده شد


  7. #6


    آخرین بازدید
    2023/04/24
    تاریخ عضویت
    April 2014
    محل سکونت
    كرج
    نوشته ها
    892
    امتیاز
    4526
    سپاس
    2,297
    سپاس شده
    2,910 در 801 پست
    سطح اکسل
    64.00 %

    سیستم من 64 بیتیه و فایلهای که امیر گذاشته هم کار میکنه ، اشکال باید جای دیگه ای باشه از 64 بیتی نیست !

  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط misammisam نمایش پست ها
    سیستم من 64 بیتیه و فایلهای که امیر گذاشته هم کار میکنه ، اشکال باید جای دیگه ای باشه از 64 بیتی نیست !
    فكر كنم بستگي به ورژن آفيس هم داشته باشه ميثم جان


  10. #8


    آخرین بازدید
    2022/12/14
    تاریخ عضویت
    March 2011
    محل سکونت
    کرج
    نوشته ها
    649
    امتیاز
    1611
    سپاس
    2,233
    سپاس شده
    1,581 در 464 پست
    سطح اکسل
    80.00 %

    Alireza به Yahoo ارسال پیام
    امیر جان مدتی بود دنبال این کد بودم ممنونم از لطف و زحمت شما واقعا عالی بود
    تنها راهي که به شکست مي انجامد، تلاش نکردن است



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است