السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
هذا الموضوع خاص بالادوات : اداة TextBox
بيئة العمل : VB.NET 2019 - يعمل على جميع اصدارات VB.NET
============================================
'24-تجميع عدة اسطر بسطر واحد
كود PHP:
Public Class Form1
Function RemoveExtraSpaces(ByVal _
source As String) As String
Dim thisIsWhiteSpace, _
prevIsWhiteSpace As Boolean
Dim result As New System.Text.StringBuilder _
(source.Length)
Dim counter As Integer
For counter = 0 To source.Length - 1
prevIsWhiteSpace = thisIsWhiteSpace
thisIsWhiteSpace = _
Char.IsWhiteSpace(source.Chars(counter))
If (thisIsWhiteSpace = False) Then
If (prevIsWhiteSpace = True) AndAlso _
(result.Length > 0) Then result.Append(Space(1))
result.Append(source.Chars(counter))
End If
Next
Return result.ToString()
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = RemoveExtraSpaces(TextBox1.Text)
End Sub
End Class
'24-تجميع عدة اسطر بسطر واحد
'25- استخدام ctrl+a بداخل التكست
كود PHP:
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar = Convert.ToChar(1) Then
DirectCast(sender, TextBox).SelectAll()
e.Handled = True
End If
End Sub
End Class
'25- استخدام ctrl+a بداخل التكست
رد مع اقتباس