محبوبترینها
از کجا بفهمیم قاشق چنگال اصل است | قاشق چنگال تقلبی نخرید!
با چاپ روی وسایل یک کسب و کار پرسود بسازید
قیمت دیگ بخار و تولیدکننده اصلی دیگ بخار
معروف‌ترین هدیه و سوغاتی یزد مشخص شد!
آشنایی با انواع دوربین مداربسته ضد آب
پرداخت اینترنتی قبوض ساختمان (پرداخت قبض گاز، برق و آب)
بهترین دوره آموزش سئو محتوا در سال 1403 با نام طوفان ۱۴۰۳ در فروردین ماه شروع می شود
یک صرافی ارز دیجیتال چه امکاناتی باید داشته باشد؟
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
تعمیرگاه مجاز تعمیر ماشین لباسشویی در شرق تهران
جراحی و درمان ریشه دندان عفونی با خانم دکتر صفوراامامی
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1799205731
دستور 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]
[تعداد بازديد از اين مطلب: 5665]
-
گوناگون
پربازدیدترینها