سوال در رابطه با TextBox

[AliRezaBeytari]

سلام به دوستان برنامه نویس.
من در یکی از برنامه هایم ی خوام یه دستور شرطی (if) برای TextBox1 بزارم.
دستور شرطیم می خواهم این گونه باشد که اگر حرف سوم TextBox1.Text برابر شد با H یه اتفاق بیفتد.مثلا یه مسیج بده.

من می خواهم بدونم چطوری میشه این دستور شرطی را نوشت؟

[tolid123456789]

سلام دوست عزيز
در رويداد textChange مربوط به تكست باكس كد زير رو بنويسيد

If TextBox1.Text.Length = 3 Then
If Microsoft.VisualBasic.Right(TextBox1.Text.Trim, 1) = "h" Then
MsgBox("h")
Else

End If
End If

[SHD.NET]

سلام.

کد بالا درست کار می کنه و صحیحه، اما در صورتی که طول متنتون 3 کاراکتر باشه، مثلا وقتی متنی رو توی تکست باکس Paste کینم دیگه کد بالا جواب نمیده، از طریق کد زیر هم میتونید راحت تر این کارو انجام بدین:
Dim lef As String = Strings.Left(TextBox1.Text, 3)
Dim righ As String = Strings.Right(lef, 1)
If righ = "h" And TextBox1.Text.Length >= 3 Then MsgBox("h found")


** موفق باشید**

[AliRezaBeytari]

sh.dehnavi جان دستت درد نکنه.:بوس:
یه سوال هم داشتم.
اگر بخوهیم بجای حرف ، کلمه باشد باید چیکار کنم؟:متفکر:

[shahryari]

آيا منظورتان اين بود؟؟؟
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str_1() As String = TextBox1.Text.Split(" ")
For Each str_2 In str_1
If str_2 = "MyWord" Then MsgBox(str_2)
Next
End Sub