السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'22- احصاء عدد الكلمات الموجودة بالتكست
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = TextBox1.Text
If str = "" Then
Else
Dim wordCount As Integer = Strings.Split _
(str, Strings.Space(1)).Length
MessageBox.Show((str + Constants.vbNewLine _
& "عدد الكلمات: ") + wordCount.ToString)
End If
End Sub
End Class
'22- احصاء عدد الكلمات الموجودة بالتكست
'23-البحث عن كلمة ما بداخل التكست
كود PHP:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String = TextBox1.Text
Dim i As Integer = str.IndexOf("string")
If Not i = -1 Then
MessageBox.Show("Yes, that string is in here!")
Else
MessageBox.Show("No, the string is not in here!")
End If
End Sub
End Class
'23-البحث عن كلمة ما بداخل التكست
رد مع اقتباس
