یه سوال در مورد ویژوال بیسیک

ما یه تکست باکس داریم که توش نوشته "هوا بارانی است"
چجوری میتونیم چک کنیم یه کلمه مثلا "باران" تو این باکس نوشته شده یا نه؟ به روش کارکتری
 

saalek110

Well-Known Member
سلام حامد جان.
به نظرم باید ساده باشه.
کلمه باران 5 حرف دارد. پس باید از اول رشته 5 تا جدا کنی ببینی مساوی باران هست یا نه بعد حروف دوم تا ششم را
و بعد حروف سوم تا هفتم را. فکر کنم مشکلی نباشه.

از len و رایت و لفت استفاده کن.
 
سلام
اخه می دونین موضوع چیه من میخوام از این موضوع برای یک موتور جستجو که خودم برنامشو نوشتم استفاده کنم
الان کار این موتور اینجوریه که کلمه ای رو که در باکس جستجو نوشته شده با تک تک فیلدا مقایسه و نتایج رو نشون میده
اما من میخوام طوری بگرده که اگه عبارت مورد نظر قسمتی از یه فیلد بود بازم اون فیلد رو نشون بده
در واقع من نمیدونم که فیلد دارای چند کارکتره و کلمه ای که میخواد جستجو بشه هم همینطور
"باران و هوا بارانی بود فقط یه مثال بود به ظاهر سادست ولی چند روزه فکر منو به خودش مشغول کرده و . . .
ممنون میشم کمکم کنین
 
آخرین ویرایش:

nima_dir

Active Member
سلام
من الان دقيق يادم نيست چون خيلي وقته كه با وي بي كار نكردم اما اگه ذهنم ياري كنه دو تا آرگومان ميگرفت بطوريكه يه رشته رو در ديگري پيدا ميكرد(ترتيب آرگومانهاش رو يادم نيست) و يه عدد كه مشخص كننده شروع رشته كوچكه تو بزرگسن برميگردوند. به Msdn مراجعه كنين تا اطلاعات بهتري بدست بيارين
 

saeedsmk

New Member
سلام
خوب هستيد ميتونيد از دستور instr با ارگمان هاي زير استفاده كنيد
کد:
InStr(sCheck, sMatch[, Start[, Compare]])
 
ممنون از دوستان عزیز
من تابع رو پیدا کردم یه مثالم تو msdn بود که وقتی اجرا می کنم تو خط زیر ارور میده
Private Function FindIt(Box As RichTextBox, Srch As String, _
Optional Start As Long)
فکر میکنین مشکل کجاست بعدشم یه ریچ باکس داره این با تکست باکس فرق می کنه؟
 

nima_dir

Active Member
سلام دوست عزيز
بله كاملا فرق داره .اونو بايد به toolbox اضافه كنيد.rich text box با وي بي نصب ميشه بايد اونو اضافه كنيد
 
گرفتم مشکل کجاست من بجای ریچ باکس تکست باکس گذاشته بودم ولی هنوز نفهمیدم ریچ باکس رو از کجا میشه گذاشت تو فرم
 

saalek110

Well-Known Member
باید به جعبه ابزار اضافه کنید. باید به کامپوننت ها بروید و آن را به جعبه ابزار اضافه کنید.



Project menu -> component sub menu -> Microsoft rich textbox control 6.0
 
آخرین ویرایش:

Parthia

Member
آره منم دقیقا همچین مشکلی رو دارم اگر کسی میدونه یه مثال بزنه قضیه حله البته من MSDN ندارم اگه میشه یه مثال ساده هر وقت ذهنتون یاری کرد (دو نقطه دی) راستی میشه اینطوری نوشت :؟
کد:
Dim txt1 As String
txt1 = Left$(txt1,len(txt1) - 1)
البته با استفاده از حلقه For ؟؟؟
 

جدیدترین ارسال ها

بالا