PDA

View Full Version : Textbox



morika
شنبه 03 مرداد 1388, 16:19 عصر
سلام
من تو برنامم یک تکس باکس دارم که باید توش یه آدرس وارد کرد که این آدرس حتما باید آردس یک فایل مشخص باشه حالا می خوام به تکس باکس بگم که اگه اخر آدرس کلمه Mirro.rar قرار داشت کار رو انجام بده. یعنی در واقع آدرس پشت این کلمه دو خط هم که باشه مهم نیست و فقط مهم اینه که آدرس این فایل باشه.
حالا چیکار باید بکنم؟
ممنون

mortezamhd
شنبه 03 مرداد 1388, 18:24 عصر
سلام دوست عزیز
از کد زیر استفاده کن




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click


If TextBox1.Text.Length < 10 Then


MsgBox("Invalid Value")
Exit Sub
End If
If TextBox1.Text.Substring(TextBox1.Text.Length - 10) = "mirror.rar" Then
MsgBox("Mirror.rar")
End If


End Sub



حالا میتونی یکاری بکنی . بیای بگی اگر در آخر مسیر Mirror.rar نبود خودش به اخر مسیر اضافه کنه



موفق باشی

ACorvinus
شنبه 03 مرداد 1388, 19:25 عصر
اینجوری هم میتونی بنویسی !!!




If Me.TextBox1.Text.Split("\").Contains("Mirror.rar") AndAlso IO.File.Exists(TextBox1.Text) Then
MessageBox.Show("Mirror.rar is Exist in Textbox")
Else
MessageBox.Show("Mirror.rar is Not Exist in This Path")
End If

Mani_rf
شنبه 03 مرداد 1388, 19:54 عصر
تابع MId برای همین کار ساخته شده که شما یک قسمتی از یک تکست را انتخاب کنی.
اینجوری :



If Mid(Text,Len(Text) -4 ,4).ToUpper = ".Rar"".ToUpper Then Msgbox(True)

Navid Asadi
شنبه 03 مرداد 1388, 23:36 عصر
از تابع Right هم میتونی استفاده کنی


if strings.right(textbox1.text,9)<>"Mirro.rar" then