زمان جاریtime : پنجشنبه 14 تیر 1403 - 4:38 قبل از ظهر
شما در سایت ما ثبت نام نکرده اید و یا وارد اکانت کاربری خود نشده اید. از شما خواهشمند هستیم
You are not log in to site. Please
وارد شویدlogin یاor ثبت نام کنیدregister .
|
سورس تابع contains به زبان VB (طرزکارواقعی تابع ) تعداد بازدیدvisits : 626
|
|||||||||
ariaman5
 
|
سورس تابع contains به زبان VB (طرزکارواقعی تابع )
Public Function contains1(ByVal str1 As String, ByVal find1 As String) As Boolean Dim q As Boolean str1 = LCase(Trim(str1)) For i = 1 To Len(str1) If Mid(str1, i, Len(find1)) = find1 Then q = True Exit For ElseIf Mid(str1, i, Len(find1)) find1 Then q = False End If Next Return q End Function |
||||||||
| شنبه 21 دی 1392 - 18:56 |
|
||||||||
beauty
 
|
پاسخAnswer 1 : ممنونم ولی قبلش ی توضیحی بدین منتو بیوتی مرجع تخصصی در زمینه پوست ومو وزیبایی می باشد. منتو بیوتی مرجع تخصصی در زمینه پوست ومو وزیبایی می باشد.
|
||||
| چهارشنبه 30 تیر 1395 - 13:34 |
|
برای ارسال پاسخ ابتدا باید لوگین یا ثبت نام کنید.