11-12-22, 03:37 AM
11-12-22, 08:58 PM
(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
11-12-22, 10:45 PM
طيب هل يوجد كود فصل الارقام عن الحروف من الحافظة قبل لصقها فب تكست بوكس؟
11-12-22, 11:34 PM
(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