1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Option Explicit
Private Sub Form_Activate()
Picture1.ScaleMode = vbTwips
Me.Move 0, 0, Screen.Width, Screen.Height
Picture1.Move Me.Width / 4, Me.Height / 4, Me.Width / 4, Me.Height / 4
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim montabl, mescoul, toto As Integer, largeur As Integer, i As Integer
a = 20
b = 30
c = 60
d = 10
montabl = Array(a, b, c, d)
mescoul = Array(vbRed, vbBlue, vbGreen, vbYellow)
toto = Picture1.Height / 100
largeur = 300
For i = 0 To UBound(montabl)
Picture1.Line (i * largeur, Picture1.Height)-((i * largeur) + largeur, toto * (100 - montabl(i))), mescoul(i), BF
Next
End Sub |
Partager