PDA

View Full Version : سوال: مشکل در کلیپ برد



ali-software
پنج شنبه 02 مهر 1388, 20:43 عصر
دوستان من یک تکست باکس دارم که وقتی اونو bold و underline می گیرم و رنگ متن رو عوض می کنم وقتی به کلیپ برد می فرستم به حالت ساده در میاد؟باید چه کار کنم؟


clipboard.settext(text1.text)

ali-software
جمعه 03 مهر 1388, 13:39 عصر
کسی نیست جواب بده.لطفا کمک کنید.ممنون

shedayat
جمعه 03 مهر 1388, 14:08 عصر
متد clipboard نمی تونه شکل و اندازه و رنگ متن رو توی خودش نگه داره و در موقع Paste کردن متن به شکل حالت مقصد در میاد.

ali-software
جمعه 03 مهر 1388, 14:13 عصر
خب من باید چیکار کنم.چه جوری متن رو به کلیپ برد بفرستم؟

shedayat
جمعه 03 مهر 1388, 18:54 عصر
با همون دستوری که خودت گفتی می تونی متن مورد نظرت رو به کلیپ بور ارسال کنی اما رنگ و فونت و ... رو نمی تونی. آخه بستگی به رنگ و فونت TextBox مقصد داره.

ali-software
یک شنبه 05 مهر 1388, 17:16 عصر
دوستان یکم کمک کنید.

xxxxx_xxxxx
یک شنبه 05 مهر 1388, 23:02 عصر
همون متنی که copy میکنید رو تو محیط word پیست کنید. باز هم همونطوره؟

shedayat
دوشنبه 06 مهر 1388, 11:46 صبح
همون متنی که copy میکنید رو تو محیط word پیست کنید. باز هم همونطوره؟

نه دیگه! بستگی به اندازه و تنظیمات فونت در Word (مقصد) داره.

relax_cp
دوشنبه 06 مهر 1388, 12:28 عصر
باید تکست باکس رو با رنگ و فونت جدید مرتب کنید و بعد از آن past کنی

ali-software
پنج شنبه 09 مهر 1388, 16:09 عصر
خب دوست عزیز من چه جوری می تونم این کار رو انجام بدم.

pcdownload.bloghaa.com
پنج شنبه 09 مهر 1388, 23:59 عصر
برای کاری که می خوای انجام بدی باید یه فرمت جدید برای
خودت بسازی یعنی مثلا متن زیر را:
ali-software
به صورت :
ali-software{col=red,und=1}
در کلیپ برد ذخیره کنی و وقتی میخوای
متن رو paste کنی برنامه ات عبارت داخل {} رو بخونه و متن رو تنظیم کنه
و{}را هم نباید نشون بده : عین کاری که برنامه ورد مایکروسافت انجام میده.

vbhamed
جمعه 10 مهر 1388, 02:00 صبح
سلام

براي اين كار به جاي TextBox از RichTextBox استفاده كن
از ليست كامپوننتها گزينه Microsoft Richtextbox رو اضافه كن
براي تغيير رنگ و فونت و ساير خاصيتها بايد اون قسمت يا تمام متن رو انتخاب كني
مشابه كد زير



With RichTextBox1
.SelStart = 0
.SelLength = 10
.SelColor = vbRed
.SelFontName = "tahoma"
.SelFontSize = 20
.SelLength = Len(.Text)
.SetFocus
End With


جايي هم كه Paste مي كني بايد RichTextBox باشه
البته برنامه هايي مثل Word و Wordpad درست نشون مي دن

ali-software
جمعه 10 مهر 1388, 13:59 عصر
من از richtextbo استفاده کردم.ولی بازم همون مشکلو داره.میشه یک مثال بهم بدید.ممنون

vbhamed
شنبه 11 مهر 1388, 02:29 صبح
سلام

چطوري كپي گرفتين
با استفاده از شي ء Clipboard نبايد كپي بگيريد
مي تونيد Ctrl+C رو با دستور SendKeys به RichTextBox بفرستيد

ASedJavad
یک شنبه 26 مهر 1388, 21:54 عصر
برای کاری که می خوای انجام بدی باید یه فرمت جدید برای
خودت بسازی
عین کاری که برنامه ورد مایکروسافت انجام میده.



ولي فکر نمي کنم اين جوري باشه.
شما يه متن که فرمت بخشي از اون با فرمت کل متن متفاوته (مثلا متني که نصفش ايتاليکه و نصفش ساده است) رو تو ورد بنويس.
حالا کل اون متن رو کپي کن و تو Notepad‌پيستش کن.
اگه اين متن، به صورت کد شده تو کليپ بورد ذخيره شده باشه، وقتي تو notepad‌پيست ميشه، بايد کدش پيست بشه نه عين متن. در صورتي که چنين نيست.