13-11-12, 05:30 AM
(آخر تعديل لهذه المشاركة : 13-11-12, 01:02 PM {2} بواسطة lynche1986.)
السلام عليكم و رحمة الله و بركاتة
اخي الكريم جرب هذا
لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله وبركاته
اخي الكريم جرب هذا
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim txtlong As Integer = TextBox1.Text.Length
Dim result As String = ""
TextBox1.Text = TextBox1.Text.ToLower
For i = 0 To txtlong
On Error Resume Next
result = result & TextBox1.Text.Substring(0, i).ToUpper & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1) & Environment.NewLine
result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1) & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
result = result & TextBox1.Text.Substring(0, i) & TextBox1.Text.Substring(i, 1).ToUpper & TextBox1.Text.Substring(i + 1, txtlong - i - 1).ToUpper & Environment.NewLine
Next
MessageBox.Show(result)
End Sub
السلام عليكم ورحمة الله وبركاته