[حسن الجلب]

السلام عليكم ورحمه الله وبركاته عاوز كود جلب الاحرف الانجليزيه

[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 


[حسن الجلب]

طيب هل يوجد كود فصل الارقام عن الحروف من الحافظة قبل لصقها فب تكست بوكس؟

[asmarsou]

(11-12-22, 10:45 PM)حسن الجلب كتب : طيب هل يوجد كود فصل الارقام عن الحروف من الحافظة قبل لصقها فب تكست بوكس؟

تفضل ضع الكود التالي في زر

PHP كود :

Dim sample As String = Clipboard.GetText
        Dim letters = sample.Where(Function(c) Char.IsDigit(c)).ToArray()
        Dim num = New String(letters)
        TextBox1.Text = num