ایجاد سوال
dark_mode
0 دوستدار 0 امتیاز منفی
255 visibility
موضوع: آفیس توسط:

هنگام کار در VBA، یکی از چیزهایی که می توانید ایجاد کنید به عنوان "فرم کاربر" شناخته می شود. این فرم ها به شما این امکان را می دهند که اساسا جعبه های محاوره ای خود را ایجاد کنید. در صورت تمایل می توانید انواع مختلفی از کنترل ها را به فرم کاربر اضافه کنید. به عنوان مثال، می‌توانید برچسب‌ها، جعبه‌های متن، فهرست‌های کشویی، دکمه‌های رادیویی و بسیاری از کنترل‌های دیگر را اضافه کنید. برخی از کنترل هایی که می توانید اندازه آنها را تغییر دهید. دیگران را نمی توانید یکی که نمی توانید اندازه آن را تغییر دهید یک چک باکس است. در حالی که می توانید اندازه فونت مورد استفاده برای برچسب کنار چک باکس را تغییر دهید، نمی توانید اندازه خود چک باکس را تغییر دهید.

اگر چک باکس ها در فرم های کاربری خود را برای سلیقه خود بسیار کوچک می بینید، می توانید با شبیه سازی یک چک باکس، آنها را دور بزنید. شما این کار را با ایجاد یک برچسب به جای چک باکس انجام می دهید. سپس، ویژگی‌های برچسب را طوری تغییر دهید که پس‌زمینه شفافی داشته باشد و فونت مورد استفاده Wingdings باشد. همچنین باید مطمئن شوید که فونت در اندازه بزرگ مانند 20 یا 26 نقطه تنظیم شده است.

اکنون، روی برچسب خود دوبار کلیک کنید، که باید یک پنجره کد باز شود. رویدادی که شما در حال برنامه ریزی آن هستید، رویداد Click برای برچسب است، به این معنی که هر زمان روی برچسب کلیک شود، اجرا می شود. از این به عنوان کد خود استفاده کنید:

Private Sub Label1_Click()
    If Label1.Caption = Chr(254) Then
        Label1.Caption = Chr(168)
    Else
        Label1.Caption = Chr(254)
    End If
End Sub

در فونت Wingding، Chr(254) کادری با علامت چک است و Chr(168) کادری بدون علامت است. هنگامی که فرم کاربر را اجرا می کنید و روی برچسب کلیک می کنید، بین یک کادر خالی و یک کادر علامت دار جابجا می شود. همچنین می‌توانید کدهای دیگری را در صورت لزوم به رویداد Click اضافه کنید که وظایف دیگری را انجام می‌دهد.

اگر خواستی، با این لینک از ما حمایت کن

پاسخ شما

looks_5نام شما برای نمایش - اختیاری
حریم شخصی : آدرس ایمیل شما محفوظ میماند و برای استفاده های تجاری و تبلیغاتی به کار نمی رود
عدد چهار رقمی در تصویر را وارد کنید

برای جلوگیری از این تایید در آینده, لطفا وارد شده یا ثبت نام کنید.
اگر حساب گوگل دارید به راحتی وارید شوید

0 پاسخ وجود دارد

سوال مشابهی یافت نشد

برای دسترسی راحت به مطالب سایت ، اپلیکیشن سایت را نصب کنید
و لطفا بعد از نصب امتیاز دهید. با تشکر از حمایت شما

23.2k سوال

8.5k پاسخ

610 دیدگاه

10.3k کاربر

336 نفر آنلاین
0 عضو و 336 مهمان در سایت حاضرند
بازدید امروز: 7081
بازدید دیروز: 23669
بازدید کل: 18279929
...