[asmarsou]

(11-12-22, 03:37 AM)حسن الجلب كتب : السلام عليكم ورحمه الله وبركاته عاوز كود جلب الاحرف الانجليزيه

و عليكم السلام ورحمه الله وبركاته
تفضل مثال بطريقتين

PHP كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a As String
        a = 65
        Do
            If a > 90 Then
                Exit Do
            Else
                ListBox1.Items.Add(Chr(a))
                a = a + 1
            End If
        Loop
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For ascii = 65 To 90
            ListBox1.Items.Add(Chr(ascii))
        Next
    End Sub 


اما اذا كنت تقصد فصل الحروف من نص يحوي حروف و ارقام فهذا سيفي بالغرض

PHP كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim sample As String = TextBox1.Text
        Dim letters = sample.Where(Function(c) Char.IsLetter(c)).ToArray()
        Dim word = New String(letters)
        Label1.Text = word
    End Sub