PDA

View Full Version : سوال: سه سؤال ساده



Hassan2500
یک شنبه 17 اردیبهشت 1391, 21:45 عصر
سلام
1- کد این چی میشه که حرف سوم تکست1 وقتی مینویسمش رنگش قرمز بشه؟
2- کد این چی میشه که وقتی مولتی لاین تکست1 True است خط دوم حرفش قرمز شود؟
Text1 = "A" & VbNewLine & "B" VbNewLine & "C"
یعنی مثلاً در اینجا B قرمز شود یا مثلاً C
3- چکار کنم که شکل فایل exe را تغییر شکل بدم مثلاً تصویر روش بزارم یا چیزی روش بنویسم؟
86743

ho3ein.3ven
یک شنبه 17 اردیبهشت 1391, 21:54 عصر
سلام
2 تا سوال اولت رو نمیشه با تکست باکس نوشت باید از rich text box استفاده کنی.
سوال سومت هم آیکون فرم startup رو عوض کن آیکون پروژه هم تغییر می کنه.

Hassan2500
یک شنبه 17 اردیبهشت 1391, 22:11 عصر
اگه میشه سؤال اول و دوم رو خودتون برام بنویسید و در مورد سؤال سوم دقیقاً چکار کنم

ROSTAM2
یک شنبه 17 اردیبهشت 1391, 22:18 عصر
سلام
1- کد این چی میشه که حرف سوم تکست1 وقتی مینویسمش رنگش قرمز بشه؟
2- کد این چی میشه که وقتی مولتی لاین تکست1 True است خط دوم حرفش قرمز شود؟1 Text1 = "A" & VbNewLine & "B" VbNewLine & "C"


یعنی مثلاً در اینجا B قرمز شود یا مثلاً

می خوای Color Code مثل محیط برنامه نویسی یا انجور چیزی داشته باشی/ بسازی ؟

ho3ein.3ven
یک شنبه 17 اردیبهشت 1391, 22:56 عصر
text1.SelColor = vbred
با این کد رنگ قسمتی که انتخاب شده قرمز میشه.

m.4.r.m
دوشنبه 18 اردیبهشت 1391, 00:35 صبح
بهش ماهی ندین ماهی گیری یاد بدین

Hassan2500
دوشنبه 18 اردیبهشت 1391, 07:33 صبح
چرا کسی درست و حسابی جواب نمیده من به این کدها احتیاج دارم

ho3ein.3ven
دوشنبه 18 اردیبهشت 1391, 10:26 صبح
بهتون گفتم که از کامپوننت ها rich text box رو اضافه کنید . بعد با اون کد می تونید رنگش رو تغییر بدین

SlowCode
دوشنبه 18 اردیبهشت 1391, 12:10 عصر
همون طور که دوستان گفتن richtextbox رو به فرمت اضافه کن، بعد توی فرم لود اینو بنویس:
With RichTextBox1
.Text = "A" & vbNewLine & "B" & vbNewLine & "C"
.SelStart = 6
.SelLength = 1
.SelColor = vbRed
.SelStart = 0
End With
نقطه شروع رو 6 نوشتم چون سر سطر هم یک کاراکتر محسوب میشه.

چیزی که به ذهنم رسید این بود، شاید راه کوتاه تری هم باشه.