Bargraph 3couleurs (objet activex)

0/5 (1 avis)

Vue 7 248 fois - Téléchargée 453 fois


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)

Codes Sources

A voir également

Ajouter un commentaire Commentaire
DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
2
3 janv. 2003 à 14:13
Tu devrais utiliser des propriétés plutôt qu'une méthode, et rendre les prorpiétés persistante, car là chaque fois que tu va décharger le contrôle puis le recharger, les propriétés seront effacées. J'ai fais un tutorial qui se trouve dans la megaFAQ, tu devrais reffaire ton contrôle en suivant les étapes, tu va être étonné du résultat.

Allez bonne chance. DHKold

PS: http://www.vbfrance.com/faq.aspx?ID=19

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.