پرچم تشریفات با کیفیت بالا و قیمت ارزان
پرواز از نگاه دکتر ماکان آریا پارسا
دکتر علی پرند فوق تخصص جراحی پلاستیک
تجهیزات و دستگاه های کلینیک زیبایی
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
تعداد کل بازدیدها :
1849285711
دستور Search در ويژوال بيسيك6 -
واضح آرشیو وب فارسی:سایت ریسک: دستور Search در ويژوال بيسيك6 777 18 فروردين 1382, 00:22سلام من يك برنامه جستجو با ويژوال بيسيك6 نياز دارم.دوستاني كه به اين موضوع احاطه دارند لطفاْ مرا راهنمايي نمايند.سپاسگذارم. ImanYari 20 فروردين 1382, 23:24سلام لطف كنيد بگيد چه جور جستجويي ميخواين؟ يعني توي چي ميخواين بگردين! ايمان masoud_kia_kia 11 ارديبهشت 1382, 18:14راستش من جستجوي متن كدشو مينيويسم Private Sub cmdSearch_Click() Dim txt1 As String, txt2 As String Dim firstS As Integer, lastS As Integer txt1 = txtinput1.Text txt2 = txtinput2.Text firstS = InStr(txt1, txt2) If firstS <> 0 Then lbldisplay1.Caption = " Forward Search The text was found ast position " & firstS Else lbldisplay1.Caption = " Forward Search The text was Not found" End If lastS = InStrRev(txt1, txt2) If lastS <> 0 Then lbldisplay2.Caption = " Backward Search The text was found ast position " & lastS Else lbldisplay2.Caption = " Backward Search The text was Not found" End If End Sub اگر مفهوم نبود به من ميل بزن [email protected] براي عدد كه جستجوي خطي است Function linearsearch(a() As Integer, key As Integer) As Integer Dim x As Integer For x = LBound(a) To UBound(a) If a(x) = key Then linearsearch = x Exit Function End If Next x linearsearch = -1 End Function Reza 007 23 آبان 1382, 13:25اين يك برنامه find&replace است كه براي شما ساخته ام.اميدوارم به دردتان بخورد :oops: :!:
این صفحه را در گوگل محبوب کنید
-