مشخص شدن حرف اول یک خط در data grid در vb.net

[ali asgari]

سلام
ببخشید روشی هست که اوین حرف کلمه خط دوم یک data grid مشخص بشه مثلا اگه کلمه خط دوم apple بود یک پیام بده حرف "a"
یا مثلا visual basic بود پیام بده "v" ؟
اگه میشه ، میشه برا textbox هم همین کارو کرد ؟:متفکر:
آیا میشه فقط حرف دوم یا سوم به صورت msgbox یا هر حرفی که خودمون بخواهیم نشون داده بشه؟

[336699]

سلام

منظورتون از (خط دوم یک data grid) همون سطر دوم هست یا ... ؟؟؟

دیتا گریدها می توانند شامل چند سطر و ستون باشند. شما باید مشخص کنی کدام سطر و ستون مد نظرتون هست.

[gilsoft]

میشه برا textbox هم همین کارو کرد ؟:متفکر:

سلام دوست عزیز

این مربوط به TextBox :
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String = TextBox1.Text.ToLower
Select Case str
Case "apple", "apricot", "avocado"
MessageBox.Show("A")
Case "banana", "bilberry", "blackberry", "blackcurrant", "blueberry"
MessageBox.Show("B")
Case "cherry", "Coconut"
MessageBox.Show("C")
End Select
End Sub

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

[gilsoft]

آیا میشه فقط حرف دوم یا سوم به صورت msgbox یا هر حرفی که خودمون بخواهیم نشون داده بشه؟

سلام مجدد
اینم کد مربوطه :
Private Sub TextBox1_Leave(sender As Object, e As System.EventArgs) Handles TextBox1.Leave
'Dim str As String = TextBox1.Text.ToLower.Substring(0, 1) 'اولین کارکتر
Dim str As String = TextBox1.Text.ToLower.Substring(1, 1) 'دومین کارکتر
'Dim str As String = TextBox1.Text.ToLower.Substring(2, 1) 'سومین کارکتر
'Dim str As String = TextBox1.Text.ToLower.Substring(3, 1) 'چهارمین کارکتر

Select Case str
Case "a" : MessageBox.Show("A")
Case "b" : MessageBox.Show("B")
Case "c" : MessageBox.Show("C")
End Select
End Sub

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

[gilsoft]

سلام
ببخشید روشی هست که اوین حرف کلمه خط دوم یک data grid مشخص بشه مثلا اگه کلمه خط دوم apple بود یک پیام بده حرف "a"
یا مثلا visual basic بود پیام بده "v" ؟

اینم کد مربوطه :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim row As Integer = 1
'For row = 0 To DataGridView1.RowCount() - 1
If (CStr(DataGridView1.Rows(row).Cells(0).Value).ToLo wer.Substring(0, 5) = "apple") Then
MessageBox.Show("A")
ElseIf (CStr(DataGridView1.Rows(row).Cells(0).Value).ToLo wer.Substring(0, 12) = "visual basic") Then
MessageBox.Show("V")
End If
'Next
End Sub

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

[336699]

اینم کد مربوطه :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim row As Integer = 1
'For row = 0 To DataGridView1.RowCount() - 1
If (CStr(DataGridView1.Rows(row).Cells(0).Value).ToLo wer.Substring(0, 5) = "apple") Then
MessageBox.Show("A")
ElseIf (CStr(DataGridView1.Rows(row).Cells(0).Value).ToLo wer.Substring(0, 12) = "visual basic") Then
MessageBox.Show("V")
End If
'Next
End Sub

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

این کد که فقط محدود به دو کلمه شده

اگه کلمه دیگری در دیتاگرید باشه دیگر این کد جواب نمی دهد

کد اصلاح شده

Dim word As String
MsgBox(word)

[ali asgari]

سلام دوباره
ببخشید روشی هست مثلا فهمید یک text box چند حرف هست ؟ مثلا برای حرف apple یک پیام بده 5 حرفی هست . یا برای vb یه پیام بده 2 .

[336699]

سلام دوباره
ببخشید روشی هست مثلا فهمید یک text box چند حرف هست ؟ مثلا برای حرف apple یک پیام بده 5 حرفی هست . یا برای vb یه پیام بده 2 .


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim leng As Integer
MsgBox(leng)
End Sub