سلام
دوستان كسي مي تونه من بي نوا را در اين سوال همراهي كنه بيچاره مي شم رسماااااااااا
برنامه اي بنويسيد كه با دريافت نوع كنترل و رنگ از كاربر در هنگام اجراي يك فرم رنگ قلم همه كنترلهاي از آن نوع را برابر رنگ دريافتي نمايد.
با عرض سلام
سوالي كه شما پرسيديد خيلي راحته اينم جواب :
براي اين كار ابتدا كنترل Common Dialog به كنترل باكس اضافه كنيد ( اگه بلد نيستيد مراحل زير رو دنبال كنيد :
بر روي كنترل باكس راست كليك كنيد و از منوي كشويي بر روي Components كليك كنيد ؛ از ليست آمده تيك
گزينه Microsoft Common Dialg Control 6.0 را بزنيد سپس بر روي OK كليك كنيد . )
خب بعد از آوردن كنترل Common Dialog بر روي كنترل باكس بر روي آيكن آن كليك كنيد و بروي فرم بگذاريد .
خاصيت Name = cmd
خاصيت Flags = 1
در فرم Load برنامتون اين كدهارو بنويسيد :
cmd.showFont
text1.font = cmd.fontname
حالا هرچندتا كنترل رو فرمتون هست به همين ترتيب تو رويداد فرم Load تون به جاي Text1 نام كنترل
موردنظرتون رو بنويسيد .
براي تغيير اندازه هم تو همون بخش ( Form_Load ) اين كد رو بنويسيد :
text1.fontsize = cmd.fontsize
اين كدهارو هم واسه ساير كنترلها بنويسيد .
اگه ميخواهيد كه نوشته Bold , Italic , UnderLine شود از اين كدها استفاده كنيد :
text1.FontBold = cmd..fontbold
text1.fontItalic = cmd.fontItalic
text1.fontunderLine = cmd.fontunderLine
بازم اين كدها رو واسه ساير كنترلها هم بنويسيد .
با تشكر . اگه بازم مشكلي بود بفرماييد .