1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
| Option Explicit
Dim T As Long
Private Sub Form_Load()
Label1.AutoSize = True: Label1.Caption = "": Label1.Move 180, 60
Check1(0).Move 0, 0, 1215, 255
VScroll1.Width = 255
Frame1.BorderStyle = 0
Frame1.Move 120, 360, Check1(0).Width + VScroll1.Width, 3000
VScroll1.Move Check1(0).Width, 0, VScroll1.Width, Frame1.Height
For T = 1 To 39 'pour création des 39 CheckBox, soit au total = 40
Load Check1(Check1.Count)
Check1(Check1.Count - 1).Move Check1(0).Left, Check1(0).Top + (Check1(0).Height * T), Check1(0).Width, Check1(0).Height
Check1(Check1.Count - 1).Caption = "Choix " & T + 1
Check1(Check1.Count - 1).Visible = True
Next T
VScroll1.Max = Check1.Count - (Frame1.Height / Check1(0).Height)
Frame2.Move 0, 0, Frame1.Width, Check1(0).Height * (Check1.Count)
End Sub
Private Sub VScroll1_Change()
Frame2.Top = -(VScroll1.Value * (Check1(0).Height))
End Sub
Private Sub VScroll1_Scroll()
VScroll1_Change
End Sub
'utilisation
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
Label1.Caption = "vous avez coché la case " & Check1(Index).Caption
Else
Label1.Caption = "vous avez decoché la case " & Check1(Index).Caption
End If
End Sub |
