چک کردن کاراکترهای ادیت تکست

[milad19 113]

باسلام

ببخشید دوستان چطور میشه تعریف کرد که وقتی یک رویدادی رخ میده قبلش چک کنه در ادیت تکست ببینه اگر متن مثلا "net" بود که هیچ اگر نبود ببینه متن "web" هست یا نه اگر نبود یک مسیج باکس نمایش بده؟

[پژمان نیکروان 6,055]

منظورتون از رویداد که یعنی اینه که هرجا مثلا موقع کلیک روی باتون.

و بیاد چک کنه که داخل ادیت تکست نوشته بود net یا نوشته بود web کار رو انجام بده؟ و این کار میتونه هرچی باشه. مثل مسیج؟

منظورتون اینه؟

If Edittext1.Text="net" OR Edittext1.Text="web" Then
ToastMessageShow("کار انجامید",False)
End If

[پژمان نیکروان 6,055]

فکر کنم الان منظورت رو فهمیدم.

اگر داخل ادیت تکست نوشته نشده بود net بیاد چک کنه که داخلش نوشته web یا نه؟؟؟

که اگه بازم توش ننوشته بود web یه مسیج بده.

که اینجوری میشه:

If Edittext1.Text<>"net" Then
If Edittext1.Text<>"web" Then
ToastMessageShow("aval net check shod nabod va dobare web check shod bazam nabod!",True)
End If
End If

[نیما قبادی 246]

اینجوری

if edittext="net" then

end if

if edittext="web" then
msgbox("","")
end if

همین

[milad19 113]

ممنون از هردو بزرگوار*قلب*

[milad19 113]

فکر کنم الان منظورت رو فهمیدم.

اگر داخل ادیت تکست نوشته نشده بود net بیاد چک کنه که داخلش نوشته web یا نه؟؟؟

که اگه بازم توش ننوشته بود web یه مسیج بده.

که اینجوری میشه:

If Edittext1.Text<>"net" Then
If Edittext1.Text<>"web" Then
ToastMessageShow("aval net check shod nabod va dobare web check shod bazam nabod!",True)
End If
End If

تشکر بابت کدتون

من میخوام یک کلمه در متن رو چک کنه

اینجوری بگم

هردو عبارتی که میخوام چک بشه آدرس اینترنتی هست به این صورت

http://mesal.com/dggdhjjdfkkflfl

حالا تا / میتونه چک کنه اما میخوام وقتی اون حروف بعد از اسلش که فرق دارن هم قرار میگیره اروری نده

[امیرنیوکی 147]

دقیق میخوای چیکار کنی من 2 و3 باز متن شمارو خوندم اما متوجه نشدم لطفا دقیق و واضح توضیح بدین

میخواین / بعد از .com رو چک کنین یا بعد از http:// رو ؟

[پژمان نیکروان 6,055]

مثلا این متن:

slam inja neveshte web va mikham ino begiram

حالا میخواین بررسی کنید سرچ کنه که داخل این متن نوشته بود web ؟

بجای همون اینجوری استفاده کنید... یعنی سرچ کنید:

    If EditText1.Text.Contains("net")=False Then
If EditText1.Text.Contains("web")=False Then
ToastMessageShow("aval net check shod nabod va dobare web check shod bazam nabod!",True)
End If
End If 

من نوشتم false یعنی اگه پیدا نکرد هاااا.

اگه متن سرچ شده توش بود true میده وگرنه false میده.

[مجید آرتا 5,875]

به شکلی ساده تر :

  Dim Txt As String = Edittext1.Text
  Select Txt 
   Case "Web" , "Net"
    Msgbox ( "Net Or  Web","")
    Case Else
     Msgbox("Nothing Every One","")
    End Select

[milad19 113]

ممنون از دوستان

شرمنده این سوال رو اینجا میپرسم

مشکل این کد چیه که فاصله نمی اندازه؟

Msgbox("لینک با &CRLF& http://line.me/ti/p/ و یا &CRLF& http://line.naver.jp/ti/p/ &CRLF& شروع میشود ","لینک اشتباه است")

[مجید آرتا 5,875]

کدتون درستش اینه :

Msgbox("لینک با" &CRLF&" http://line.me/ti/p/ و یا "&CRLF&" http://line.naver.jp/ti/p/ "&CRLF&" شروع میشود ","لینک اشتباه است")

[پژمان نیکروان 6,055]

میلاد جان اینو اینجوری بنویس:

Msgbox("لینک با "&CRLF&" http://line.me/ti/p/ و یا "&CRLF&" http://line.naver.jp/ti/p/ "&CRLF&" شروع میشود ","لینک اشتباه است")

[پژمان نیکروان 6,055]

ببخشید منو مجید باهم دیگه ارسال کردیم!*سرپایین*