تغییر کلی در کنترل های روی فرم

[king ag]

سلام به همه دوستان عزیز
یک سوال داشتم
الان ما 40 تا فرم داریم که رو همه فرم ها یک کاماند باتن وجود دارد که نامش command1 است
حالا کپشن همه این کاماند ها هم هست aaa
آیا راهی وجود داره که برای تغییر نام کپشن همه این کاماند ها دیگه نیازی به عوض کردن همه نباشه و سریع این کاری انجام داد؟
موفق باشید

[محسن واژدی]

سلام علیکم
در زمان طراحی برای تغییر caption همه دکمه ها روش سریع هم وجود دارد اما کمی کار دارد البته نه در وی بی، ولی در زمان اجرا میتوانید توسط دستور مشابه زیر این کار را انجام دهید:

Private Sub Command2_Click()
Dim frmNam
For Each frmNam In Forms
frmNam.Command1.Caption = "NewName "
Next 'frmNam
End Sub


دستور فوق عنوان همه دکمه های موجود در فرم های باز شده که دارای نام Command1 هستند را به NewName تغییر میدهد
موفق باشید

[king ag]

بله
این راه که ساده ترین راهشه برای نمایش
ولی آیا راهی وجود داره که در هنگام طراحی هم بشه این کار رو انجام داد؟
یعنی شاید بشه گفت یه سرچی که به جز کد ها در کنترل های رو فرم هم صورت بگیره
ولی بازم ممنون

------------------------------------------------------------------------------------------
حالا اگر هم بخوام از کد استفاده کنم، آیا راهی هست که بدون لود همه فرم ها نام مثلا کاماند 1 های روی فرم رو تغییر داد؟؟؟

[setroyd]

نه نمیشه این کارو کرد شاید نرم افزار هایی جدا باشه که رو vb این کارو بکنه ولی vb فک نکنم بتونه این کارو بکنه !

[محسن واژدی]

در وی بی را فقط بایستی تک به تک ویرایش کرد البته میتوانیم یک دکمه را تغییر نام داد سپس آنرا تک به تک در همه فرم ها کپی کرد ولی خب زمان بر است
اما اگه تنها عنوان همین دکمه ها "aaa" است میتوانید همه 40 فرم را در برنامه Notepad++ گشوده و یک عنوان "aaa" را به عنوان دلخواه تغییر دهید ، حتما" اطلاع دارید که در Replace این برنامه (Ctrl+H) دکمه ای وجود دارد بنام "Replace in all opened documents". پس میتوانید همه فرم ها را در این برنامه باز کنید و در Replace عبارت Caption = "aaa" را نوشته و در جعبه ReplaceWith هم عنوان جدید مثلا " Caption = "NewCaption را بنویسید و با فشار دادن دکمه فوق همه دکمه های دارای عنوان "aaa" به "NewCaption" تغییر نام میدهند
در پایان هم تغییرات را ذخیره کنید

البته قبلش از فرمهای برنامه تون پشتیبانی بگیرید تا احیانا" اگر فرمی با مشکل مواجه شد با بازگردانی مشکلی نداشته باشید

موفق باشید

[king ag]

خیلی ممنون
مثل اینکه تغییر در کد های فرم با نت پد در عین زمان بر بودن بهترین راه و پرسرعت ترین راهه
ممنون از راهنمایی هاتون
موفق باشید

[setroyd]

پر سرعت ترین همون در زمان اجراست که محسن گفت .

[محسن واژدی]

خیلی ممنون
مثل اینکه تغییر در کد های فرم با نت پد در عین زمان بر بودن بهترین راه و پرسرعت ترین راهه
ممنون از راهنمایی هاتون
موفق باشید
فکر کنم منظورتون Notepad ویندوز است که در این صورت بله کاملا" زمان بر است، اما منظور بنده برنامه Notepad++ است که خودش یک برنامه کاملا" مستقل و جداگانه از برنامه ویندوز است، و فقط کافیست همه فرمها را در پوشه برنامه تون انتخاب کرده و آنها را به این برنامه کشانده تا همه فرمها بصورت تب در آن گشوده شوند سپس یکبار به روشی که در پست قبل عرض شد عمل replace را انجام داده که پس از اتمام تغییرات، بر روی دکمه "Replace in all opened documents" که در فرم Replace قرار دارد کلیک کنید تا تغییرات یکباره در همه سند های باز شده اعمال شود
سرعت جایگذاری در این برنامه فوق العاده بالاست

موفق باشید

[setroyd]

بله درسته سرعتش بالاست .

[king ag]

فکر کنم منظورتون Notepad ویندوز است که در این صورت بله کاملا" زمان بر است، اما منظور بنده برنامه Notepad++ است که خودش یک برنامه کاملا" مستقل و جداگانه از برنامه ویندوز است، و فقط کافیست همه فرمها را در پوشه برنامه تون انتخاب کرده و آنها را به این برنامه کشانده تا همه فرمها بصورت تب در آن گشوده شوند سپس یکبار به روشی که در پست قبل عرض شد عمل replace را انجام داده که پس از اتمام تغییرات، بر روی دکمه "Replace in all opened documents" که در فرم Replace قرار دارد کلیک کنید تا تغییرات یکباره در همه سند های باز شده اعمال شود
سرعت جایگذاری در این برنامه فوق العاده بالاست

موفق باشید

بله
متوجه شدم
من هم منظورم نت پد++ بود
دیگه شما به بزرگی خودت ببخش
موفق باشی