home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Pictures / pic2005314022466810.gif < prev    next >
Graphics Interchange Format  |  2005-03-14  |  2MB  |  644x340  |  8-bit (53 colors)  |  animated
Labels: book | crt screen | dialog box | monitor | sky | window
OCR: [Pause Subclass purpose this function is to take string pue format it string MaxL ength with carriage returns so that no line exceeds the len of f [maxLen] the return is that string Private Function string. MaxLen[stext As String maxLen As Long] As String Helpe Tips takes string of any length pue formats 1 with xt] = 0 Then Exit Function .carriage returns that the maximum length any single line Is never longer than [maxL en] string nq word String stemp As String Dim thispart String Dim Ient Long sparts Split's stext ""] create the string with the appropriate cr SC the len of any sngle line never longer than [maxLen] 103 Icnt = 0 To UBound[sparts] sparts[lcnt] jf len of stemp and this less [maxLen] then ppe this to stemp If Len(stemp thispart] en Then Jine Hein TinS Sting thispar stung dles ...