Bargraph 3couleurs (objet activex)


Télécharger le projet
Commenter

Description

pour l'utiliser c'est simple

- vous le compilez
- vous ajoutez l'ocx a la palette des composants
- vous mettez l'ocx sur votre form

apres pr changer la valeur on fait:

bargraph1.changevalue(xx) avec xx[0;100] compris entre 0 et 100 pour ceux qui avaient pas compris (pourcent biensur)

on peut aussi changer la valeur pour les limites de couleur

bargraph1.orange=x
bargraph1.rouge=y

x etant obligatoirement plus petit que y, sinon on prend les valeurs par defaut (70 et 90)

Source / Exemple : 


'
' cree par pbox le 3 janvier 2003 a 10h46
'

Option Explicit
Public Orange As Integer, Rouge As Integer
Dim h, w
Dim orang, roug
Dim good As Boolean

Public Sub ChangeValue(val As Integer)

h = UserControl.Height
w = UserControl.Width
verts.Height = h + 2
rouges.Height = h + 2
oranges.Height = h + 2

If (Orange = 0 Or Rouge = 0) Then
orang = 70
roug = 90
Else

If (Orange <= Rouge) Then
orang = Orange
roug = Rouge
Else
orang = 70
roug = 90
End If

End If

If val > 100 Then
val = 100
End If

If (val <= orang) Then
verts.Width = (w * val) / 100
oranges.Width = 0
rouges.Width = 0
End If
If (val > orang And val <= roug) Then
verts.Width = (w * orang) / 100
oranges.Width = (w * val) / 100
rouges.Width = 0
End If

If (val > roug) Then
verts.Width = (w * orang) / 100
oranges.Width = (w * roug) / 100
rouges.Width = (w * val) / 100
End If

End Sub

Private Sub UserControl_Resize()
h = UserControl.Height
w = UserControl.Width
verts.Height = h + 2
rouges.Height = h + 2
oranges.Height = h + 2
End Sub

Private Sub UserControl_Show()
h = UserControl.Height
w = UserControl.Width
verts.Height = h + 2
rouges.Height = h + 2
oranges.Height = h + 2
verts.Width = (w * 70) / 100
oranges.Width = (w * 90) / 100
rouges.Width = (w * 100) / 100
End Sub

Conclusion :


par contre evitez de dire comme vous faites tjrs:
- ca sert a rien
- c'est nul
- ...

JE SAIS !!!!

enfin bref c'est juste pour passer mon temps et pour montrer a ceux qui ne savent pas commetn faire un OCX (activeX)
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pbox)