تور لحظه آخری
امروز : دوشنبه ، 27 اسفند 1403    احادیث و روایات:  امام صادق (ع):هر كس يك روز ماه رمضان را (بدون عذر)، بخورد - روح ايمان از او جدا مى‏شود.
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

خرید پرینتر سه بعدی

سایبان ماشین

اجاره سند در شیراز

armanekasbokar

armanetejarat

Future Innovate Tech

آموزشگاه آرایشگری مردانه شفیع رسالت

پی جو مشاغل برتر شیراز

خرید یخچال خارجی

بانک کتاب

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

قیمت فرش

خرید بلیط هواپیما

بلیط اتوبوس پایانه

خرید از چین

خرید از چین

خرید سرور اچ پی ماهان شبکه

خودارزیابی چیست

رزرو هتل خارجی

تولید کننده تخت زیبایی

سی پی کالاف

دوره باریستا فنی حرفه ای

چاکرا

استند تسلیت

کلینیک دندانپزشکی سعادت آباد

پی ال سی زیمنس

دکتر علی پرند فوق تخصص جراحی پلاستیک

تعمیر سرووموتور

تحصیل پزشکی در چین

مجله سلامت و پزشکی

تریلی چادری

خرید یوسی

مهاجرت به استرالیا

ایونا

تعمیرگاه هیوندای

کاشت ابرو با خواب طبیعی

هدایای تبلیغاتی

خرید عسل

صندوق سهامی

تزریق ژل

خرید زعفران مرغوب

تحصیل آنلاین آمریکا

سوالات آیین نامه

سمپاشی سوسک فاضلاب

بهترین دکتر پروتز سینه در تهران

صندلی گیمینگ

دفترچه تبلیغاتی

خرید سی پی

قالیشویی کرج

سررسید 1404

تقویم رومیزی 1404

ویزای توریستی ژاپن

قالیشویی اسلامشهر

قفسه فروشگاهی

چراغ خطی

ابزارهای هوش مصنوعی

آموزش مکالمه عربی

اینتیتر

استابلایزر

خرید لباس

7 little words daily answers

7 little words daily answers

7 little words daily answers

گوشی موبایل اقساطی

ماساژور تفنگی

قیمت ساندویچ پانل

مجوز آژانس مسافرتی

پنجره دوجداره

خرید رنگ نمای ساختمان

ناب مووی

خرید عطر

قرص اسلیم پلاس

nyt mini crossword answers

مشاوره تبلیغاتی رایگان

دانلود فیلم

قیمت ایکس باکس

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

مهد کودک

پخش زنده شبکه ورزش

 






آمار وبسایت

 تعداد کل بازدیدها : 1865808656




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

مشكل با جستجوي حرف "ك" در TextBox


واضح آرشیو وب فارسی:سایت ریسک: mehdi_yg13-03-2006, 01:25 PMسلام چرا وقتی میخوام داخل یه textbox حرف " ک" رو جستجو کنم پیدا نمیکنه ولی بقیه حروف رو به راحتی پیدا میکنه ؟ Mostafa 102413-03-2006, 06:29 PMخب چطور جستجو ميكني كه پيدا نميكنه ؟ mehdi_yg13-03-2006, 07:02 PMخب چطور جستجو ميكني كه پيدا نميكنه ؟ http://www.barnamenevis.org/forum/attachment.php?attachmentid=2816&d=1142197884 اين برنامه رو ببين هر حرفي رو كه تو textbox2 تایپ میکونی تو textbox1 پیدا میکنه بجوز حرف " ک " اصلاً هر کلمه ای رو که توش "ک" داشته باشه پیدا نمیکنه . مشکلش چیه ؟ mehdi_yg14-03-2006, 11:39 AMكم كم داريم ميريم تو سال 85 ولي هنوز كسي كمكم نكرده ! Mostafa 102414-03-2006, 03:15 PMمهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟: Dim x As Integer s=1 if text1.selstart<>0 then s = text1.selstart+1 endif x = InStr(s, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End If mehdi_yg15-03-2006, 08:17 AMمهدي جون من كدتو يه مقداري عوض كردم . ببين جواب ميده ؟: Dim x As Integer s=1 if text1.selstart<>0 then s = text1.selstart+1 endif x = InStr(s, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End If نه آقا Mostafa جواب نداد . بازم ممنون از توجه شما Payman_6215-03-2006, 12:28 PMالآن برنامتو ديدمو دانلود كردم. يه تغييراتي توش دادم. ببين اين كد چه طوره. !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! رابین هود15-03-2006, 01:38 PMدوست عزیز سلام معمولا در برنامه نویسی ها حرف ک و ی مشکل ساز هستند ما دو نوع ک داریم: ک و ك ی و ي برای همین همیشه دردسر ساز میشن اگه توی برنامتون دقت کنید میبینید که حرف ك اگر به این شکل تایپ بشه بدرستی سرچ رو انجام میده ولی به شکل معمول نه. کدی هم دوستمان پیام نوشته اند کاملا درست کار میکنه و دقیقا همین کاری که میگم انجام میده یعنی موقعی که ک رو تایپ میکنی و میخوای جستجو انجام بدی اونو به این ك تبدیل میکنه. ایشااله موفق باشی Payman_6215-03-2006, 06:06 PMپست قبليو اديت كردم. بهتره به جاي اون 6 خط از replace استفاده شه. اگه متنت هميشه همين قدر كوتاهه كه هيچي ولي اگه ممكنه متن بلند باشه بهتره الگوريتم برنامه رو طوري تغيير بدي كه هر وقت در متن تغييري ظاهر شد تابع replace وارد عمل شه كه با هر بار سرچ تو كل متن دنبال ك نگرده و سرعت نياد پايين. عمل replace رو براي ي كه رابين هود اشاره كرد هم انجام بده. Mostafa 102415-03-2006, 08:42 PMآق مهدي من موقعي كه پست قبلي رو فرستادم وي بي دم دستم نبود كه تستش كنم . ولي امروز همون برنامه زير رو توي وي بي باز كردم . احتمالا مشكل توي اون فونتي هست كه انتخاب كردي . چون من فونت Arial رو انتخاب كردم و خيلي راحت جواب داد x = InStr(1, Text1.Text, Text2.Text, vbTextCompare) If x <> 0 Then Text1.SelStart = Int(x) - 1 Text1.SelLength = Len(Text2.Text) Text1.SetFocus Else Text1.SelStart = 0 End I mehdi_yg16-03-2006, 01:17 AMاز همه دوستان سپاسگذارم مشكل حل شد و برنامه بخوبي كار ميكنه بازم ممنون سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود




این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 386]

bt

اضافه شدن مطلب/حذف مطلب




-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن