کسی چنین برنامه ای سراغ داره ؟

[phpphp7]

سلام
به یک برنامه ای نیاز دارم که مثلا یک متن رو داخلش قرار بدم و بعد از کلیک روی دکمه ی ok ، بین تمامی متن یک فاصله enter بگذارد

مثال :
این یک تست است
امروز 6 تیر 1392 است


بعد از کلیک روی دکمه ی ok متن بالا به صورت زیر تبدیل بشود :
این یک تست است

امروز 6 تیر 1392 است

[mohammadsamadi1377]

با VbNewLine یه خط جدید میسازه

[mehran901]

دوست عزیز یك تکست باکس با اسم text1 بذار رو فرمت


Dim i, j
For i = 1 To Len(Text1.Text)
If Trim(Mid(Text1, i, 1)) = vbCr Then
j = j & vbCrLf
Else
j = j & Mid(Text1, i, 1)
End If
Next
MsgBox j


یك متن بنویس که طی خطوط مختلف شکسته شده باشه، تمام خطوط ضرب در یکی فاصله اضافه میشه
درضمن مولتی لاین رو True کن و خاصیت scrollbars رو برابر 2 بذار

مثلا تو تکستباکس وارد میکنی
Mehran 1
901

Test
خروجی :
Mehran 1

901


Test

[just4froum]

با سلام :

می تونی از این کد هم استفاده کنی :

Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text, vbCrLf, vbCrLf & vbCrLf)
End Sub

موفق باشید

[phpphp7]

از هر دو دوست متشکرم
یک مشکلی هست وقتی که متن فارسی را درون text box کپی میکنم تا بین اون فاصله بزاره ، همه چیز به صورت علامت سوال ظاهر میشه
به نظرتون مشکلی از کجاست؟
ممنون

[just4froum]

با سلام :

قبلا بحث شده بود ولی دقیقا یادم نیست. چیزی که یادمه اینه که اول باید زبان کامپیوتر رو پارسی کنی بعد کپی و پیست کنی. ( یا یه همچین چیزایی )

موفق باشید

[alipoor2009]

می تونی از کامپوننت uniSuiteFree استفاده کنی
اینم لینک دانلود :
http://www.cyberactivex.com/Download/UniSuiteFree.exe

[phpphp7]

آقا این ویژوال بیسیک چه جور برنامه نویسی هست ؟!؟!؟!؟!؟؟!×!؟
هرچی از اینترنت کپی میکنم و اونو تو text box میزارم و روی دکمه ok کلیک میکنم ، برنامه کار میکنه ولی بین بیشتر حروف علامت ؟ درج میکنه !!!
کسی میدونه مشکل از کجاست؟؟؟؟؟

[matrix-program]

آقا این ویژوال بیسیک چه جور برنامه نویسی هست ؟!؟!؟!؟!؟؟!×!؟
هرچی از اینترنت کپی میکنم و اونو تو text box میزارم و روی دکمه ok کلیک میکنم ، برنامه کار میکنه ولی بین بیشتر حروف علامت ؟ درج میکنه !!!
کسی میدونه مشکل از کجاست؟؟؟؟؟

فونت تکست باکس رو tahoma قرار بده درست میشه

[phpphp7]

فونت تکست باکس رو tahoma قرار بده درست میشه
باز هم نشد
عکس رو نگاه کنید :

http://www.uploadtak.com/images/l662_untitled.jpg

[matrix-program]

هنوز فک کنم sans هستش
زبان کامپیوترت رو هم چک کن یونیکد هم باید روی utf-8 باشه

[phpphp7]

هنوز فک کنم sans هستش
زبان کامپیوترت رو هم چک کن یونیکد هم باید روی utf-8 باشه
باز هم نشد !
همه چیز زبان کامپیوتر درست هستش نمیدونم چرا کار نمیکنه!
از کجا باید یونیکد روی utf-8 تنظیم بشه ؟

[m.4.r.m]

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

[phpphp7]

موقع کپی و پیست زبان کیبورد حتما و حتما باید روی فارسی باشه در غیر اینصورت مشکل خواهی داشت
بازم نمیشه جناب !
من همیشه با زبان فارسی ویژوال بیسیک در همه ی کامپیوتر ها مشکل داشتم و مشکلی خواهم داشت !!!

[AxissXs]

درود
مشکل نخواهی داشت
به این نمونه که ضمیمه کردم توجه کن
دوست عزیز شما باید از فونت هایی که حروف گ چ پ ژ رو دارند بکاربگیری
مثل فونت های فارسی(B Titr)
یا بعضی فونت ها که متون عربی رو پشتیبانی میکنند (Arial)
فونت Arial مناسب تره
چون تو هر کامپیوتری هست

امیدوارم کمکت کنه

.:|AxissXs|:.

[m.4.r.m]

عزیزم این جوابی که من به شما دادم آخرین جواب سوال شماست جز این کار هیچ کار دیگری نمی تونی بکنی مگه اینکه کد نویسی کنی قبل از این کار حتما از کنترل پنل فارسی ساز رو نصب کن در Regional and language همه گزینه ها رو روی ایران یا persian در ویندوز 7 ست کن بعدش این کار رو بکن مشکلت 100 % حل خواهد شد

[phpphp7]

درود
مشکل نخواهی داشت
به این نمونه که ضمیمه کردم توجه کن
دوست عزیز شما باید از فونت هایی که حروف گ چ پ ژ رو دارند بکاربگیری
مثل فونت های فارسی(B Titr)
یا بعضی فونت ها که متون عربی رو پشتیبانی میکنند (Arial)
فونت Arial مناسب تره
چون تو هر کامپیوتری هست

امیدوارم کمکت کنه

.:|AxissXs|:.
از زحمتی که بابت آپلود کردن عکس کشیدید ممنونم
وقتی خودم تو برنامه متنی رو به صورت فارسی تایپ میکنم ، برنامه به صورت کامل کار میکنه و زبان فارسی نیز به خوبی کار میکنه !
تنظیماتی که شما گفتید رو هم انجام دادم !
ولی وقتی از اینترنت یک متن رو کپی میکنم و تو برنامه paste میکنم ، به صورت زیر ظاهر میشه :

http://uploadtak.com/images/n141_untitled.jpg

[phpphp7]

عزیزم این جوابی که من به شما دادم آخرین جواب سوال شماست جز این کار هیچ کار دیگری نمی تونی بکنی مگه اینکه کد نویسی کنی قبل از این کار حتما از کنترل پنل فارسی ساز رو نصب کن در Regional and language همه گزینه ها رو روی ایران یا persian در ویندوز 7 ست کن بعدش این کار رو بکن مشکلت 100 % حل خواهد شد
همه چیز رو فارسی هست !
عکس های زیر رو نگاه کنید :

http://uploadtak.com/images/u1678_untitled.jpg


دیگه از کجا عکس بگیرم من ؟:لبخند:

[AxissXs]

خب یه امتحان کن ببین وقتی کپی میکنی توی یه برنامه ی دیگه مثل Office Word همینطور میشه؟؟!
اگه آره چک کن ببین از آ-ی چه حروفی رو ؟ میذاره؟؟!

[phpphp7]

خب یه امتحان کن ببین وقتی کپی میکنی توی یه برنامه ی دیگه مثل Office Word همینطور میشه؟؟!
اگه آره چک کن ببین از آ-ی چه حروفی رو ؟ میذاره؟؟!
وقتی متنی رو از اینترنت تو برنامه های آفیس ، note pad و ... به درستی کار میکنه و فقط تو ویژوال بیسیک این مشکل رو دارم

[AxissXs]

من یه مغز به فکرم رسید که میتونه کمکت کنه!
Ctrl + T بزن و کامپوننت Microsoft Forms 2 Object Library رو انتخاب کن و به جای تکست باکس های پیش فرض از تکست باکس های اون استفاده کن ببین چی میشه
یادت باشه فونت تکست باکس رو یه فونت درست قرار بدی

امیدوارم کمکت کنه

.:|AxissXs|:.

[phpphp7]

من یه مغز به فکرم رسید که میتونه کمکت کنه!
Ctrl + T بزن و کامپوننت Microsoft Forms 2 Object Library رو انتخاب کن و به جای تکست باکس های پیش فرض از تکست باکس های اون استفاده کن ببین چی میشه
یادت باشه فونت تکست باکس رو یه فونت درست قرار بدی

امیدوارم کمکت کنه

.:|AxissXs|:.

ممنون:تشویق::تشویق::تشویق:
فقط با textbox مشکل داشت !
با ابزار Microsoft Forms 2 Object Library و UniSuiteFree به خوبی کار کرد

[vbhamed]

سلام
طبق عكسهايي كه گذاشتين، با حرف ي مشكل داريد، تو اينترنت چون اكثرا يونيكد استفاده ميشه از ی فارسي استفاده مي‌كنن و كامپيوتر شما ي عربي (تفاوت ظاهريشون در دو نقطه زير ي عربي هست)
مي‌تونيد اينكار رو هم انجام بدين
text1 = Replace(s,"ی","ي")
البته اينجا داره برعكس نشون ميده، اول ی فارسي هست بعد ي عربي
s هم رشته اي هست كه كپي گرفتين كه ميشه با Clipboard.GetText بدستش آورد

اما بهترين راه استفاده از TextBox هاي يونيكد هست كه بهترينشون تكست باكس كامپوننت Codejock هست البته نسخه يونيكدش