26-11-18, 06:19 PM
وعليكم السلام ،،
لنفرض النص موجود في تكست بوكس 2
الكود يكون كالتالي :
لنفرض النص موجود في تكست بوكس 2
الكود يكون كالتالي :
كود :
MsgBox(TextBox2.TextLength)
For i = 1 To TextBox2.TextLength
MsgBox(Mid(TextBox2.Text, i, 1000))
i = Val(i) + 999
Next
يا رحمن الدنيا والآخرة ورحيمهما

