c6a9cd69c2
* NEW: Add examples again. I hope correctly this time. git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
19 lines
No EOL
335 B
Text
19 lines
No EOL
335 B
Text
' Gambas class file
|
|
|
|
Public Sub _new()
|
|
|
|
Dim Rlbl As ReportLabel
|
|
Dim i As Integer
|
|
'Report.Debug = True
|
|
For i = 0 To 200
|
|
|
|
Rlbl = New ReportLabel(RVBCont)
|
|
Rlbl.Text = "Ligne " & i
|
|
Rlbl.Border.bottom.Width = "1px"
|
|
Rlbl.Padding.Top = "3 mm"
|
|
Rlbl.Padding.Bottom = "1mm"
|
|
Rlbl.Padding.Left = "2 mm"
|
|
|
|
Next
|
|
|
|
End |