خب حالا كه محفل برنامه نويسيه و اساتيد ارجمند هم هستند من علي الحساب 2 تا سوال ميپرسم تا مشكلات كوچيكش رو رفع كنم.
1- من وقتي از داخل كد برنامه متن فارسي رو كپي ميكنم كلا متن بهم ميريزه و غير قابل استفاده ميشه مثلا:
Çíæá ÈÇÈÇ Îíáí ÎÇÑÌí ÈæÏ
بايد چه كار كنم تا اين مشكل نباشه؟
2- من آخرش هم متوجه نشدم كامپوننت mscomctl.ocx به صورت پيش فرض در ويندوز اكس پي قرار داره يا نه؟ چون من اينو داخل ستاپ قرار ندادم و بعضي ها كه دريافت كردن گفتن كه برنامه كار نكرد و اينو ميخواست... و اين خيلي بد شد هم براي كسي كه برنامه رو گرفته و هم براي من!
كلا هميشه با اين مساله مشكل دارم.
محمد جان خواهش :oops: شرمنده ميكني
كامران جان اولا به خاطر معرفي در سايتت ممنون البته من نميتونم ببينمش نميدونم چرا باز نميشه!
اون ocx رو هم داخل ستاپ قرار دادم چون ديدم خيلي ها باهاش مشكل دارن
در مورد Html Object Library هم دقيقا منظورت كجا هست؟ من از اين كامپوننت استفاده نكردم از يكسيري توابع براي ايجاد كليپ برد HTML استفاده كردم
![[تصویر: 23.gif]](http://asefsoft.com/qsimages/23.gif)
سوال اول رو كسي جواب نميده؟ كار كردن به صورت يونيكد و ...[/list][/list]
سلام
ببين اين تابع رو ازمايش كن
کد:
Public Function UNICODE(PREREP As String)
DoEvents
REPIT$ = ""
For p = 1 To Len(PREREP)
REPIT$ = REPIT$ & Chr(0) & Mid(PREREP, p, 1)
Next p
UNICODE = REPIT$
End Function
در ضمن منظورم براي فرستادن متون به تكست باكس ها و فيلدها بود كه از چه روشي استفاده كردي.
سلام
ببين اين تابع رو ازمايش كن
کد:
Public Function UNICODE(PREREP As String)
DoEvents
REPIT$ = ""
For p = 1 To Len(PREREP)
REPIT$ = REPIT$ & Chr(0) & Mid(PREREP, p, 1)
Next p
UNICODE = REPIT$
End Function
در ضمن منظورم براي فرستادن متون به تكست باكس ها و فيلدها بود كه از چه روشي استفاده كردي.
راستي فارسي نويسيش مستقل از ويندوزه؟!
![[تصویر: 1.gif]](http://asefsoft.com/qsimages/1.gif)
اصف جان شما اون متن رو تو يه تكيت باكس بنويس و اينويسيبل كن و هرچي رو كه ميخواي مساوي تكست باكس قرار بده
فكر كنم مشكلت حل شه :wink:
ایول داش آصف حال کردم شدید . بابا شما اینجوری بودی به کسی نمی گفتی ؟
![[تصویر: 00.gif]](http://asefsoft.com/qsimages/00.gif)
نقل قول: سلام
ببين اين تابع رو ازمايش كن
كد:
...
در ضمن منظورم براي فرستادن متون به تكست باكس ها و فيلدها بود كه از چه روشي استفاده كردي.
1- نه اين جواب نميده.
2- هرچند كه خيلي امنيتيه ولي من ميگم
![[تصویر: 22.gif]](http://asefsoft.com/qsimages/22.gif)
از Paste
![[تصویر: 34.gif]](http://asefsoft.com/qsimages/34.gif)
نقل قول: اصف جان شما اون متن رو تو يه تكيت باكس بنويس و اينويسيبل كن و هرچي رو كه ميخواي مساوي تكست باكس قرار بده
فكر كنم مشكلت حل شه
مهدي جان منظورتون رو متوجه نشدم
ببينيد من كار خاصي براي اين قسمت از برنامه (فعلا) انجام ندادم. يه تكست باكس گذاشتم و فونت اون رو تاهما قرار دادم و تنظيم Script فونت رو قرار دادم Arabic. حالا متن داخل تكست باكس رو كپي ميكنم به كليپ برد ولي اين متن كپي شده با فارسي مشكل داره!
با يكي آشنا هاي برنامه نويسم كه صحبت ميكردم ميگفت بايد از كنترل هاي يونيكد استفاده كني و ... و ايشون در سي بيلدر منظورشون بود و تجربه داشتند ولي در وي بي هنوز وقت نكردم پيشو بگيرم.
ميخواستم ببينم الان بايد چه كار بكنم. يه بحثي روش بشه خوبه
![[تصویر: 21.gif]](http://asefsoft.com/qsimages/21.gif)
![[تصویر: 20.gif]](http://asefsoft.com/qsimages/20.gif)
نقل قول: ایول داش آصف حال کردم شدید . بابا شما اینجوری بودی به کسی نمی گفتی ؟
![[تصویر: 24.gif]](http://asefsoft.com/qsimages/24.gif)
چجوري؟ بزار ببينم! نه شاخم ندارم كه!
![[تصویر: 30.gif]](http://asefsoft.com/qsimages/30.gif)
باتوجه به استقبال خوبي كه ازش شد فقط دعا كنيد پهناي باند كم نياريم كه خيلي بد ميشه. البته من فكر اينجاشم تاحدودي كردم
![[تصویر: 28.gif]](http://asefsoft.com/qsimages/28.gif)
بچه ها چه خبر؟ معلومه ازش استفاده نميكندا!
![[تصویر: 110.gif]](http://asefsoft.com/qsimages/110.gif)
![[تصویر: 121.gif]](http://asefsoft.com/qsimages/121.gif)
![[تصویر: 84.gif]](http://asefsoft.com/qsimages/84.gif)
![[تصویر: 83.gif]](http://asefsoft.com/qsimages/83.gif)
![[تصویر: 109.gif]](http://asefsoft.com/qsimages/109.gif)
![[تصویر: 118.gif]](http://asefsoft.com/qsimages/118.gif)