PDA

View Full Version : سوال: تنظیم خواص دکمه های فرم از جدول تنظیمات



mohammadsaleh
پنج شنبه 09 اردیبهشت 1400, 10:22 صبح
سلام دوستان
به عللی قصد دارم تنظیمات دکمه های فرم از قبیل رنگ زمینه دکمه ، رنگ فونت، کپشن، فعال یا غیر فعال بودن اونها از طریق جدولی انجام شود. همه تنظیمات اعمال می شود به جز تنظیم رنگ ها. امیدوارم دوستان راهنمایی بفرمایند

نکته: علی القاعده برنامه لزومی به این شکل تنظیمات ندارد اما در برنامه تحت شبکه ممکن است شما بخواهید یک دکمه را غیرفعال کنید یا کپشن آن را عوض کنید یا با تغییر رنگ توجه کاربر را بیشتر جلب کنید و یا حتی دستوری که اجرا می کند را تغییر بدهید. با این کار کنترل بهتری بر برنامه خواهید داشت

mazoolagh
پنج شنبه 09 اردیبهشت 1400, 18:18 عصر
رنگ ها رو بصورت long integer مشخص کنین - هم در جدول تنظیمات و هم در کد.

mohammadsaleh
پنج شنبه 09 اردیبهشت 1400, 19:36 عصر
سلام تشکر
مثل همیشه راهنمایی تون عالیه
:تشویق::تشویق::تشویق::تشویق:

البته فایل ضمیمه حاوی یک تابع تبدیل است که درست کار نمی کند. ولی روش بهتره همان است که جناب MAZOOLAGH گفتند

mohammadsaleh
جمعه 10 اردیبهشت 1400, 13:57 عصر
آیتم دیگری هم که در جدول تنظیمات گنجانده خواهد شد نام توابع است. بعد از تنظیم مشخصات ظاهری دکمه در صورتی که بخواهیم اجرای تابع خاصی را با یکی از دکمه فرمانها اجرا کنیم نام تابع را در فیلد مربوط گنجانده و مطابق زیر عمل می کنیم




Public Function UpdateProgram()
MsgBox "اجرای دستورات تابع"
End Function


Private Sub Command3_Click()
Application.Run Me.TextBox
End Sub


فرض می کنیم نام تابع بعد از فراخوانی در تکست باکس گذارده شده است
موضوعی که وجود دارد نام تابع به عنوان یک متغیر شناسایی نشده و اجرا نمی شود.
راه حل من که عملی نشد ضمن تلاش مجدد منتظر راه حل دوستان می مانم

mazoolagh
شنبه 11 اردیبهشت 1400, 12:07 عصر
پیشتر برای انتساب یک تابع به رخداد onclick یک command button نمونه گذاشته بودم.
در تاپیک زیر پست 17 و به بعد رو ببینین:
https://barnamenevis.org/showthread.php?539924

به طور خلاصه روش این هست که یک function تعریف میکنیم.
این تابع باید در فرمی که باتن هست قابل دسترس باشه، یعنی اگر خارج از فرم و در یک ماژول هست باید public تعریف بشه.
بعد برای باتن onclick تعریف میکنیم:

CommandButton.OnClick="=FunctionName()"

به = قبل از اسم تابع و () بعد از اون دقت کنین!

mohammadsaleh
شنبه 11 اردیبهشت 1400, 17:02 عصر
سلام استاد. ممنون از نگاه مهربونتون به پست هام. مثل همیشه عالیه
عاقبت به خیر و سلامت باشید