un USF et label

[ballo]

bonjour le forum
j'ai fai un code ci-dessus pour créer des label au dessus d'un multipage..et j'arrive pas ...
[ Dim ltop As Integer
Dim nblabel As Byte

Private Sub MultiPage()
Dim montexte, multi As Control
nblabel = 0
Set multi = Controls.Add('Forms.MultiPage.1')
With multi
.Left = 50
.Top = 20 'ltop 'on renvoi la valeur de ltop
.Width = 200
.Style = 2
.Height = 150
.Name = 'MultiPage' & nblabel
.Page1.Caption = 'psc'
End With
End Sub

'_____________________________________________
Private Sub label()
variable ltop
'ltop = 20
nblabel = 0

Dim montexte, multi As Control
For ltop = 40 To 180 Step 18

Set montexte = Controls.Add('Forms.Label.1')


'For ltop = 18 To 180 Step 18
With montexte
.Left = 50
.Top = ltop 'on renvoi la valeur de ltop
.Width = 100
'.BackStyle = 1
.Height = 15

.BorderStyle = 1 'juste pour essai
.Name = 'Label' & nblabel
.Caption = .Name
End With
nblabel = nblabel + 1
Next ltop

'Label1 = 'label : ' & Me.Controls.Count - 1 '-1 pour tenir compte du bouton et du label déjà présent
'Controls('Label' & 1).Caption = 100
'Controls('Label' & 2).Caption = '500'
End Sub

Private Sub UserForm_Initialize()
MultiPage
label
End Sub ]

 

[ballo]

ballo écrit:

bonjour le forum
j'ai fai un code ci-dessus pour créer des label au dessus d'un multipage..et j'arrive pas ...


[ Dim ltop As Integer
Dim nblabel As Byte

Private Sub MultiPage()
Dim montexte, multi As Control
nblabel = 0
Set multi = Controls.Add('Forms.MultiPage.1')
With multi
.Left = 50
.Top = 20 'ltop 'on renvoi la valeur de ltop
.Width = 200
.Style = 2
.Height = 150
.Name = 'MultiPage' & nblabel
.Page1.Caption = 'psc'
End With
End Sub
'_____________________________________________
Private Sub label()
variable ltop
nblabel = 0
Dim montexte, multi As Control
For ltop = 40 To 180 Step 18
Set montexte = Controls.Add('Forms.Label.1')

With montexte
.Left = 50
.Top = ltop 'on renvoi la valeur de ltop
.Width = 100
'.BackStyle = 1
.Height = 15

.BorderStyle = 1 'juste pour essai
.Name = 'Label' & nblabel
.Caption = .Name
End With
nblabel = nblabel + 1
Next ltop
End Sub
Private Sub UserForm_Initialize()
MultiPage
label
End Sub ]