سورس و آموزش جستجو در متن و Highlight کردن آن در ویژوال بیسیک

جستجو در متن

یک آموزش جذاب ساده و کاربردی براتون در نظر دارم این آموزش جستجو در متن یا Highlight متن در وی بی ۶ است.در حال نوشتن یک سفارش به درخواست کاربران عزیز بودم که باید این بخش بهش اضافه میشد بعد از نوشتنش گفتم شاید به این آموزش نیز نیاز داشته باشید.یه مثال ساده:در نرم فزار word تا به حال شده به دنبال کلمه خاصی بوده اید و آن را را جستجو کنید ؟ این برنامه نیز همان کار را انجام میدهد.با استفاده یک Input Box متن را از کاربر گرفته و به دنبال آن در جمله میگرده و بعد از پیداکردنش Highlight میکنه.برای این مورد یک فانکشن قرار میدم و بعد آن را فراخوانی میکنیم در پروژه.در ادامه برای ساخت این آموزش با ما باشید… 🙂

۱-طراحی فرم

ابتدا باید فرمی همانند فرم زیر طراحی کنید.

جستجو در متن

۲-ایجاد یک تابع به نام FindString که کد جستجو را درون آن مینویسیم .

 Private Function FindString(Control As Control, FindStr As String, Optional StartPos As Integer = 1) As Boolean
    Dim a As Integer
    a = InStr(StartPos, LCase$(Control.Text), LCase$(FindStr))
    If a = 0 Then
    FindString = False
    Else
    FindString = True
    Control.SetFocus
    Control.SelStart = a - 1
    Control.SelLength = Len(FindStr)
    End If
    End Function

دقت کنید ما با استفاده از StartPos و LCase متن Control.Text را برسی مکنیم بیشتر عملیات توسط این دو انجام خواهد شد.کاملا هم روش نوتشن مشخصه !

۳-اجرا فاکنش تابع FindString

کد زیر را برای اجرا پروژه و فراخوانی تابع FindString در دکمه ای که در فرم قرار داده اید بنویسید.

Dim msp As String
msp = InputBox("Enter a word to search:")
If FindString(Text1, msp , 1) = True Then
MsgBox ("Found text!")
Else
MsgBox ("Not found text!")
End If

خیلی ساده و کاربردی… 🙂

در ضمن سورس کدهم در انتها براتون قرار دادم.

عباس ارجمند

نوشته‌های مرتبط

دیدگاه‌ها

*
*

این سایت از اکیسمت برای کاهش هرزنامه استفاده می کند. بیاموزید که چگونه اطلاعات دیدگاه های شما پردازش می‌شوند.

    سیما پاسخ

    واقعا لذت بردم

    مهدی پاسخ

    سلام چطور میشه برنامه ای شبیه جستجو در ویندوز در ویژوال ساخت اگه میشه لطفا راهنمایی کنید. یا سورس رو به ایمیلم بفرستید.
    با تشکر

    ramin پاسخ

    سلام ببخشید من ویژوال بیسیک رو ویندوز هشت و یک نصب کردم
    اینم فایل ویژوال بیسیک که نصب کردم

    ولی این ارور ها رو میده

    تو وسط های نصب ---------------------------
    Error
    ---------------------------
    C:\Program Files\Common Files\Microsoft Shared\DAO\DAO2535.TLB

    Unable to register the type library: RegisterTypeLib failed; code 0x8002801C.

    Error accessing the OLE registry.

    Click Retry to try again, Ignore to proceed anyway (not recommended), or Abort to cancel installation.
    ---------------------------
    Abort Retry Ignore
    ---------------------------

    بعد از نصب
    ---------------------------
    Setup
    ---------------------------
    Unable to execute file:

    C:\Windows\regedit.exe

    CreateProcess failed; code 740.

    The requested operation requires elevation.
    ---------------------------
    OK
    ---------------------------

    بعد ارور بالا
    ---------------------------
    VBC6 Utility 1.1.4
    ---------------------------
    Could Not Load A Support Utility Library
    ---------------------------
    OK
    ---------------------------

    احمد پاسخ

    سلام , می بخشید من می خواستم در دیتا گرید جستجوی بین اعداد داشته باشم مثلاً بین اعداد 1 تا 100 اعداد بین 40 تا 70 رو برام بیاره _ لطفاً کمکم کنید

ما یک پرسشنامه‌ی کوچولو داریم، که قول میدیم وقتتون رو خیلی نمی‌گیره، ولی کلی به ما کمک می‌کنه، چون هم assessment مونه ,و هم شما به ما در این زمینه کمک میکنید.بزن بریم