AutoSize در Textbox

[loads]

سلام دوستان
آیا راهی هست که بشه به Textbox خاصیت AutoSize داد ؟ یعنی وقتی متن به خط بعدی رفت به اندازه یک کاراکتر به ارتفاع Textbox اضافه بشه

[vahid_d_0101]

من یه نمونه همین جور سورسی داشتم ولی هرچی می گردم پیداش نمی کنم
یه چیزایی ازش یادمه
سورسش به این ترتیب بود که وقتی text به آخرین len می رسید 200 تا به text.Height اضافه می کرد یعنی این جوری :
Text1.Height = Text1.Height + 200
ولی اون کدی که چه جوری می فهمید رسیده به Len آخر را نمی دونم اگه پیدا کردم حتما می زارم.

[ابوذر محمودی]

سلام .

من 2 تا پروژه رو توی فایل ضمیمه واستون قرار دادم .

بهترین راه از نظر من اینه که با هر تغییری در تکست باکس تعداد خطوط اون رو بدست بیاریم ، بعد بر مبنای اون به ارتفاع تکست باکس بیافزاییم.

یه راه دیگه هم هست که با گفتن این ضرب المثل قدیمی چینی منظورمو بیان می کنم .
درسته که تکست Auto Size نداره غمی نیست Label که داره


من هر 2راه رو واستون نوشتم و آپ کردم .

احتمالا دوستان نیز راه حلهای دیگه ای دارند .

موفق باشید

[A.Eimani]

سلام هموطن

با ضرب المثلت حال کردم (معادل چینیش رو نداری)

[ابوذر محمودی]

نمونه برنامه قبلی، فقط به اندازه ارتفاع Text اضافه می کرد و اگه تعداد خطهاش کم میشد ... ارتفاع رو کم نمی کرد.... این یکی کامل ترشه...

البته اگه بازم مشکل داشت لطفاً بهم اطلاع بدید.... :لبخندساده:

موفق باشید

سلام

دوست عزیز این برنامه 2تا مشکل داره ، اگه اونا رو رفع کنید خیلی کاملتر می شه

اولیش اینه که همیشه ارتفاع تکست رو کم نمیکنه . بعضی وقت ها اونم به صورت ناقص اینکارو انجام میده .

مشکل عمده این برنامه اینه که تا وقتی که enter زده نشه ارتفاع تکست رو افزایش نمی ده.

برای تست می تونید یک کلید رو نگه دارید بعد خودتون نتیجه کار رو ببینید.

[ابوذر محمودی]

سلام .

تو برنامه ای که نوشتم (پروژه 1) یه مشکل کوچیک داشت اونو برطرف کردم می تونید دوباره دانلود کنید.

[parselearn]

فايل project1.exe ويروس داره (Auto Size.rar)
در نتيجه كامپيوتر ويروس داره
نتيجه 2: كامپيوتر ديگران هم ويروسي ميشه

[ابوذر محمودی]

فايل project1.exe ويروس داره (Auto Size.rar) در نتيجه كامپيوتر ويروس داره نتيجه 2: كامپيوتر ديگران هم ويروسي ميشه سلام . ممنون که این مسئله رو اطلاع دادید . فایل ضمیمه دوباره آپ شد . اشتباه از من بود که فایل اجرایی رو حذف نکردم . دوستان عذر خواهی منو بپذیرید
کامپیوتر من تنها جایی هستش که تمام ویروسهای کوچولو به طور مسالمت آمیز با هم زندگی می کنند.

[مهران رسا]

بچه های به خاصیت FontSize شی Textbox هم باید توجه داشته باشید ...

[مهران رسا]

کامپیوتر من تنها جایی هستش که تمام ویروسهای کوچولو به طور مسالمت آمیز با هم زندگی می کنند.


یک مهمون کوچولوی ناشناخته نمی خواین ؟! :لبخندساده: :بامزه:

[ابوذر محمودی]

بچه های به خاصیت FontSize شی Textbox هم باید توجه داشته باشید ...

برای پروژه 1 که تو فایل ضمیمه قرار داره می تونید اندازه فونت تکست رو بدست بیارید و با دستورات شرطی بر اساس اون مقداری رو به ارتفاع تکست اضافه کنید .

برای پروژه 2 هم کافیه که کد زیر رو در برنامه قرار بدید .

Private Sub Form_Load()
TH.FontSize = Text1.FontSize
TH_Chang
End Sub
یک مهمون کوچولوی ناشناخته نمی خواین ؟!با کمال میل !! مهمون حبیب خداست

[ابوذر محمودی]

یک مهمون کوچولوی ناشناخته نمی خواین ؟! :لبخندساده: :بامزه:

سلام . من فایلتون رو دانلود کردم ، حالا بهتره اینو از تاپیک سریعتر حذف کنید تا بچه ها اونو به اشتباه دانلود نکنن . در ضمن واسه اینکار بهتر بود فایل رو به ایمیلم ارسال می کردید ، نه تو تاپیک.