Visual Basic Programming Code Examples
Visual Basic > Applications VBA Code Examples
Making wordwrap in code
Making wordwrap in code
'WordWrap 2
'make a new project with a form (name = frmWordWrap)
'one textbox (name = text1)
'two labels with an index (name = label1(0) & label1(1)
'two textboxes with an index (name = text2(0) & text2(1)
'a command button (name = command1)
'insert the code
'press F5
Option Explicit
Dim intLM as Integer
Dim intMaxLength as Integer
Private sub Command1_Click()
Printer.ScaleMode = vbMillimeters
Printer.Scale (0, 0)-(210, 290)
Call PrintExample
Printer.EndDoc
End Sub
Private sub Form_Load()
dim strDummy as String
strDummy = "wie weet waar willem wouter woont?" & vbCrLf
strDummy = strDummy + "willem wouter woont weit weg."
Text1.Text = strDummy
Text2(0).Text = "15"
Text2(1).Text = "20"
End Sub
Private sub PrintExample()
intLM = CInt(Text2(0).Text)
intMaxLength = CInt(Text2(1).Text)
Printer.CurrentX = intLM
Call CheckLine(Text1.Text)
End Sub
Public sub Wrap(source as String)
dim intCounter as Integer
dim strPart as String
dim intTeller as Integer
intCounter = 1
Do While intCounter < Len(source)
strPart = Mid$(source, intCounter, intMaxLength)
If intCounter + Len(strPart) < Len(source) Then
For intTeller = Len(strPart) To 1 Step -1
If Mid$(strPart, intTeller, 1) = Chr(32) Then
Printer.CurrentX = intLM
Printer.Print Mid$(source, intCounter, intTeller)
intCounter = intCounter + intTeller
intTeller = 1
end If
Next intTeller
Else
Printer.CurrentX = intLM
Printer.Print strPart
intCounter = Len(source)
end If
Printer.CurrentX = intLM
Loop
End Sub
Public sub CheckLine(source as String)
dim positie
dim intLenght as Integer
dim intCounter as Integer
dim strDummy as String
intLenght = Len(source)
strDummy = source
'vanaf eerste teken tot aan het laatste teken
For intCounter = 1 To intLenght
'als teken is harde return
If Mid$(strDummy, intCounter, 1) = Chr(10) Then
If Len(Mid$(strDummy, 1, intCounter - 2)) > intMaxLength Then
Call Wrap(Mid$(strDummy, 1, intCounter - 2))
Else
Printer.CurrentX = intLM
Printer.Print Mid$(strDummy, 1, intCounter - 2)
end If
strDummy = Right$(strDummy, intLenght - intCounter)
intCounter = 1
intLenght = Len(strDummy)
end If
Next intCounter
If Len(strDummy) > intMaxLength Then
Call Wrap(strDummy)
Else
Printer.CurrentX = intLM
Printer.Print strDummy
end If
End Sub
Return
