• ¡Welcome to Square Theme!
  • This news are in header template.
  • Please ignore this message.
مهمان عزیز خوش‌آمدید. ورود عضــویت


امتیاز موضوع:
  • 8 رای - 2.5 میانگین
  • 1
  • 2
  • 3
  • 4
  • 5
Title: سرچ در ویژال بیسیک
حالت موضوعی
#1
سلام,
کسی میتونه به من کمک کنه؟
یک تکست باکس داریم که مولتی لاین هست.بعد کلی کد نوشته شده در هر خط بعد یک تکست باکس دیگرهم داریم که در آن یکی از آن کد ها را بنویسیم پیدا کنه اگه پیدا شد مسیج باکس بگه پیدا شد اگر نشد بگه پیدا نشد

 
 
پاسخ
#2
سلام ؛


تو کد زیر text1.text محتوای شماست (تکست باکس مولتی لاین) و text2.text اون کلمه ای که دنبالی هستی!!!




کد:
Private Sub Command1_Click()
   If InStr(1, Text1.Text, Text2.Text, vbTextCompare) > 0 Then
       MsgBox "yas"
   Else
       MsgBox "no"
   End If
End Sub

 

 

 
 
پاسخ
  


موضوعات مشابه ...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سورس کدهای ویژوال بیسیک Amin_Mansouri 8 12,503 05-15-2017، 04:35 PM
آخرین ارسال: minarad69
  سورس کد شماره گیری از مودم (ویژوال بیسیک 6 ) Amin_Mansouri 1 5,125 05-07-2017، 06:54 PM
آخرین ارسال: alikorg
  چگونه فایل exe با ویژوال بیسیک بسازیم ؟ Amin_Mansouri 4 11,438 08-13-2015، 10:08 PM
آخرین ارسال: Amin_Mansouri
  مشکل با ارور ویژوال بیسیک aghamali 4 5,368 07-03-2015، 11:14 AM
آخرین ارسال: aaaaaaaaa
  مشکل با paste بیسیک 6 aghamali 1 2,504 01-18-2015، 08:53 PM
آخرین ارسال: aghamali
  2 مشکل بیسیک 6 در ویندوز سون aghamali 3 5,360 11-07-2014، 04:25 PM
آخرین ارسال: aghamali
  سورس کد زوم کردن بر روی عکس ویژوال بیسیک 6 Amin_Mansouri 1 5,877 04-26-2014، 11:11 PM
آخرین ارسال: سلام
  دانلود 2 هزار 300 سورس کد ویژوال بیسیک 6 (ویژوال بیسیک 6 از ابتدا تا حرفه ای شدن Amin_Mansouri 4 14,897 04-16-2014، 10:16 PM
آخرین ارسال: Amin_Mansouri
  دانلود 398 ایکون ویژوال بیسیک 6 Amin_Mansouri 0 6,064 02-04-2014، 09:52 AM
آخرین ارسال: Amin_Mansouri
  دانلود نسخه کامل ویژوال بیسیک 6 به همراه msdn Amin_Mansouri 9 15,594 11-11-2013، 08:04 AM
آخرین ارسال: seaside

پرش به انجمن:


Browsing: 1 مهمان