محبوبترینها
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1840422926
یه editore کوچیک با vb یه جاش موندم (؟)
واضح آرشیو وب فارسی:سایت ریسک: View Full Version : یه editore کوچیک با vb یه جاش موندم (؟) tito27th February 2007, 11:37 AMسلام من تازه دارم vb یاد می گیرم! یه editor کوچیک نوشتم ولی وقتی می خوام مثلا رنگ فونت عوض کنه میاد رنگ تمام چیزایی که تو text نوشته شده عوض می کنه یا موقع پاک کردن می یاد تمام text رو پاک می کنه تو اندازه فونتم همینجوریه چیکار باید کنم که برنامه جایی که select می کنه کاربر بیاد تغییر بده ! فرض کنیم این پایین text من حالا من وقتی اندازه فونت تغییر میدم ABC اندازش تغییر میکنه ولی من فقط C رو select کردم می خوام یه جوری بشه هر چی select شد اون تغییر بده مرسی منتظر کمکم! َ ABC فقط شرمنده یه مقدار عجله دارم مرسی Dim d As String Private Sub ABI_Click() t1.BackColor = RGB(0, 0, 170) End Sub Private Sub BLACK_Click() t1.ForeColor = RGB(0, 0, 0) End Sub Private Sub Bold_Click() t1.FontBold = True End Sub Private Sub BROWN_Click() t1.ForeColor = RGB(170, 0, 0) End Sub Private Sub COPY_Click() d = t1.SelStart End Sub Private Sub CUT_Click() d = t1.SelText t1.SelText = "" t1.SetFocus End Sub Private Sub Defulte_Click() t1.BackColor = vbWhite End Sub Private Sub Delete_Click() MsgBox ("Delet all text ") t1.Text = "" End Sub Private Sub Exit_Click() If MsgBox("Are you sure to exit?", _ vbQuestion + vbOKOnly) = vbNo Then Cancel = True If vbOK Then End End If End Sub Private Sub Fontcolor_Click() Fontcolor = True End Sub Private Sub GHahveie_Click() t1.BackColor = RGB(170, 0, 0) End Sub Private Sub Ghermez_Click() t1.BackColor = RGB(220, 0, 0) End Sub Private Sub GREEN_Click() t1.ForeColor = RGB(0, 255, 0) End Sub Private Sub Help_Click() If MsgBox("Hehehehe, !!!!!!", _ vbCritical + ok) = vbNo Then Cancel = True End Sub Private Sub Italic_Click() t1.FontItalic = True t1.FontStrikethru = True End Sub Private Sub Meshki_Click() t1.BackColor = RGB(0, 0, 0) End Sub Private Sub op1_Click() t1.FontSize = 11 End Sub Private Sub op2_Click() t1.FontSize = 15 End Sub Private Sub op3_Click() t1.FontSize = 21 End Sub Private Sub op4_Click() t1.FontSize = 26 End Sub Private Sub op5_Click() t1.FontSize = 31 End Sub Private Sub op6_Click() t1.FontSize = 36 End Sub Private Sub op7_Click() t1.FontSize = 42 End Sub Private Sub op8_Click() t1.FontSize = 90 End Sub Private Sub PAST_Click() t1.SelText = d t1.SetFocus End Sub Private Sub PINK_Click() t1.ForeColor = RGB(255, 100, 100) End Sub Private Sub RED_Click() t1.ForeColor = RGB(255, 0, 0) End Sub Private Sub SABZ_Click() t1.BackColor = RGB(0, 250, 0) End Sub Private Sub SILVER_Click() t1.ForeColor = RGB(155, 155, 155) End Sub Private Sub Soorati_Click() t1.BackColor = RGB(255, 100, 100) End Sub Private Sub standardmodel_Click() t1.FontBold = False t1.FontItalic = False t1.FontStrikethru = False t1.FontUnderline = False End Sub Private Sub Strikethru_Click() t1.FontStrikethru = True End Sub Private Sub t1_Change() a = t1.Text End Sub Private Sub Underline_Click() t1.FontUnderline = True End Sub Private Sub YELLOW_Click() t1.ForeColor = RGB(250, 252, 0) End Sub Private Sub Zard_Click() t1.BackColor = RGB(250, 252, 0) End Sub dady_jabery1728th February 2007, 07:25 AMشما برای رفع این مشکل باید از Microsoft Rich Text Box استفاده کنی که از Component های VB هستش و ویژگی های مثل SelColor داره که فقط قسمتی که انتخاب شده را رنگ می کنه ! اینجا وبلاگ من هست که در مورده VB هستش بیای اونجا بپرسی بهت جواب می دم! کاربران ثبت نام کرده قادر به مشاهده لینک می باشند**********.com (کاربران ثبت نام کرده قادر به مشاهده لینک می باشند******.com) سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 429]
-
گوناگون
پربازدیدترینها