+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] سؤال عن كود جلب الاحرف الانجليزيه (/showthread.php?tid=44534)
سؤال عن كود جلب الاحرف الانجليزيه - حسن الجلب - 11-12-22
السلام عليكم ورحمه الله وبركاته عاوز كود جلب الاحرف الانجليزيه
RE: سؤال عن كود جلب الاحرف الانجليزيه - asmarsou - 11-12-22
(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
RE: سؤال عن كود جلب الاحرف الانجليزيه - حسن الجلب - 11-12-22
طيب هل يوجد كود فصل الارقام عن الحروف من الحافظة قبل لصقها فب تكست بوكس؟
RE: سؤال عن كود جلب الاحرف الانجليزيه - asmarsou - 11-12-22
(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