Function for Remove the Wrap Text in Windows Applications

Chikul
Posted by Chikul under VB.NET category on | Views : 1782
' Purpose : Function for Remove the Wrap Text in Windows Applications
' Variable: Variable strin,charcount

Private Function removewrap(ByVal strin As String, ByVal charcount As Integer) As String
Dim i As Integer
Dim str As Integer
For i = 0 To strin.Length / charcount
str = InStr(strin, Chr(13))
If str <> 0 Then
strin = strin.Remove(str - 1, 1)
End If
Next
Return strin
End Function

Comments or Responses

Login to post response