Progressbar par controle activex

Soyez le premier à donner votre avis sur cette source.

Vue 5 065 fois - Téléchargée 553 fois

Description

J'ai déposé sur ce site il y a quelques temps, un exemple de calcul du CRC16 utilisant la technologie ActiveX. Je ne vais pas reparler de la technologie des ActiveX, il suffit de savoir qu'ils peuvent être proposé pour d'autres langages de programmation en le compilant sous forme de code système ( *.ocx ). C'est donc un simple ProgressBar, il y en a déjà beaucoup ici, ce n'est pas le premier et surement pas le dernier.

Petites Modifications du 15/05/2003 :

Comme j'avais un petit moment, j'ai fait quelques modifications au contrôle. A savoir, un bug qui se produisait lorsque le contrôle était redimensionné au minimum et que j'ai corrigé. j'ai également fait une petite modification, en permettant aux led's d'être redimensionnées en largeur en fonction de la largeur que l'on donne au contrôle. Il reste encore des petites choses à faire pour l'optimiser, mais les bases de la conceptions d'un Activex sont là.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

suoe
Messages postés
10
Date d'inscription
lundi 3 février 2003
Statut
Membre
Dernière intervention
13 mars 2004
-
Salut !
Il es beau !
Merci pour la capture d'écran !
Dommage j'ai pas vb on me la volé zut zut zut et rezut !
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
ton code est plutot complexe pour ce que ca fait , enfin , tu te complique la vie : pourquoi stocker a,b,c et d a l'exterieur des composants ??
progressbar.value = progressbar.value + 1

d'autre part , tu pourrais faire le test ( > 15 ) a l'interieur du composants.

on ne peut pas parametrer le composant ( Min , Max , Couleur ? )

a par ca , le look est sympa !

le code est dur a lire , en tout cas , a cause du nombre de lignes sautées , et du fait que tu n'indente ( ajout de tabulations ) pas ton code..........
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
tiens , j'ai refais le code du composant :

Option Explicit

Private myValue As Integer

Private Sub UserControl_Resize()
Dim a As Integer
Height = 4695
Width = 195
For a = 0 To 14
SetColor a
Next
End Sub

Private Sub SetColor(Index As Integer)
Dim Color As Long
If Index <= 7 Then
Color = &HC00&
ElseIf Index > 7 And Index <= 11 Then
Color = &H80FF&
ElseIf Index > 11 Then
Color = &HFF&
End If
Shape1(Index).BackColor = Color
End Sub

Public Property Let Value(ByVal new_Value As Integer)
Dim a As Integer
myValue = new_Value
For a = 14 To myValue Step -1
Shape1(a).Visible = False
Next a
For a = 0 To myValue
Shape1(a).Visible = True
Next a
End Property

Public Property Get Value() As Integer
Value = myValue
End Property
cs_cyrille
Messages postés
47
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
17 février 2006
-
Salut,

A regarder comme ça rapidement, ta modification est probablement tres bonne mais bon, personne ne code de la même manière. Je code d'une façon la plus simple possible. J'aime mieux ajouter des lignes de code que de faire qq chose de dense et d'ilisible, c'est si facile à faire un code dense et ilisible.

Pour finir, tu dois bien être la première personne et j'en ai rencontré des développeurs, qui me dit que mon code est dur à lire.

Néamoins, ta critique est très constructive, c'est pas si souvent ici et c'est dommage.

Salutations à toi,

Cyrille.
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1 -
Même remarque que Renfield ton code n'est pas facile a lire et avec tout ces espaces on a du mal à differentier les fonctions.

Sinon les commaentaires sont bien mis quoi qu'un peut repétitif mais sa c'est pas grave.

Je trouve dommage :
- que l'on ne puisse pas règler les dimmentions de ton contrôle activx car dans un projet ton activx n'est pas exploitable.
- que l'on ne puisse pas déterminer le nombre de rectangles
- que l'on ne puisse pas changer les trois couleurs.

en bref : continue ta source car un peut de travail dessus et elle sera bien.

Bonne Prog.
SupraDolph

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.