تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836088910
دستور 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: :!:
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 5675]
-
گوناگون
پربازدیدترینها