NEUROBUTTON : BOUTON TRÈS CUSTOMIZABLE
cs_DARKSIDIOUS
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Membre
Dernière intervention
4 mars 2013
-
28 oct. 2005 à 20:20
auroredu67120 Messages postés 1 Date d'inscription dimanche 13 novembre 2005 Statut Membre Dernière intervention 13 novembre 2005 - 13 nov. 2005 à 13:07
auroredu67120 Messages postés 1 Date d'inscription dimanche 13 novembre 2005 Statut Membre Dernière intervention 13 novembre 2005 - 13 nov. 2005 à 13:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34379-neurobutton-bouton-tres-customizable
https://codes-sources.commentcamarche.net/source/34379-neurobutton-bouton-tres-customizable
13 nov. 2005 à 13:07
13 nov. 2005 à 12:57
10 nov. 2005 à 17:56
ça serai bientot mon tour :D inchalah
4 nov. 2005 à 09:39
3 nov. 2005 à 12:16
3 nov. 2005 à 11:52
ok, pas mal de modifs. c'est vraiment bien.
pas indenté correctement partout mais çà ne gène plus la lecture.
le "petit" arrondi, çà fait propre!
ouaip, beau boulot!
un bug repéré (2 fois) mais je ne sais pas pourquoi : en jouant dans la page de propriété, puis en terminant par "annuler", la Font (juste Gras pour être précis) a tout de même été modifiée...
une remarque comme çà : je me demande si les effets Focus ne rendraient pas mieux plutôt en MouseOver ....
en tout cas, tel quel, ton contrôle me plaît bien! félicitations.
et merci aussi d'avoir renommé les _left ... c'est beaucoup plus clair!
bonne contituation
PCPT [AFCK]
3 nov. 2005 à 11:07
:) merci lol je pensais pas que ça pourrait plaire autant lol:)
c'est encourageant:) merci
3 nov. 2005 à 10:29
GOOD GOOD :!!!!!!!!!!!!!!!!
JLUTILISE TOUT LE TEMPS !!!!!!!!!!!!!!!
++
et bonne continuation tu commences fort
3 nov. 2005 à 08:50
Dis en ce que tu penses
2 nov. 2005 à 14:03
exemple, ne jamais commencer ta ligne en bord. on voit comme çà très rapidement où commence et où se termine une procédure, sans pour autant avoir besoin de chercher "end sub"...
les if, si tu fais :
if i=1 then
call action1
elseif i=2 then
call action2: msgbox "truc"
else exit sub
endif
c'est moins évident que
if i=1 then
call action1
elseif i=2 then
call action2
msgbox "truc"
else
exit sub
endif
le [Tab] est donc plus que conseillé.
une boucle, pareil, quand on commence à imbriquer 3 4 For ... Next, sans indentation, c'est illisible et facile d'oublier certaines lignes de code....
voilà @+ ;)
PCPT [AFCK]
2 nov. 2005 à 13:53
2 nov. 2005 à 13:00
bon, j'ai regardé d'un peu plus près le code....
pour la Form (d'un coté pratique) voici une modif.
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN &HA1: Const HTCAPTION 2
'
Private Sub Form_Load()
Frame1.Backcolor 0: Frame1.Forecolor 16777215
End Sub
'
Private Sub Neurobutton1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Call ReleaseCapture: Call SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub
'
Private Sub Neurobutton2_Click()
Unload Me
End Sub
'
'
Private Sub CmdVbfrance_MouseOver(Index As Integer)
CmdVbFrance(Index).GradientDirection = Horizontal
End Sub
Private Sub CmdVbfrance_MouseLeave(Index As Integer)
CmdVbFrance(Index).GradientDirection = Vertical
End Sub
çà change pas grand chose, mais "End", pas bien! pis' là on peut déplacer la Form. et la couleur de la Frame, gris.... :-$
bref.
*même remarque que pour l'hyperlink. si tu veux pouvoir modifier la direction, ou quoi que ce soit du contrôle, il faut que çà soit une option et non pas une modif des propriétés en cours d'exécution.
*pour le contrôle, les 2 effets sont vraiment sympa.
*pour le fichier ressource, ok, mais le dossier çà ne va pas. au pire, met les sauvegardes dans le App.Path directement.
le dossier doit exister sinon plantage (pas pratique un dossier, même vide).
si dossier vide, souvent supprimé des zip, donc obligé de mettre un fichier dedans comme tu l'as fait. problème -> fichier lu comme un fichier sauvegarde (donc plantage puisque format contenu incorrect)
*l'indentation est à revoir
*commentaires, il n'y en a pas dans la PropertyPage. ce manque est largement compensé celà dit par le contrôle lui-même (c'est un peu le plus important) qui est extrêmement bien expliqué.
*petit but dans la PropertyPage avec le combo (pas vu pourquoi, arrivé une seule fois)
*je trouvais les propriétés un peu fouillies. bah j'ai pas changé d'avis -_-
en fait, toutes les couleurs et certaines des options n'ont pas besoin d'apparaître dans le volet de propriétés. la PropertyPage est justement là pour çà.
pour supprimer une propriété de l'affichage, entre dans la page de code du contrôle,
outils > attributs de procédure > [avancés>>].
là tu choisies ta propriété (ex : Border2_Down) et tu coches "ne pas afficher dans le fenêtre des propriétés"
..... çà ne reste que mon avis perso :-$
*certains termes sont gênants, comme Border2_ par exemple. top_/left_/bottom_/right_ çà serait mieux.
bon, j'ai fini le roman.
malgré tout, très bon contrôle et très bon boulot.
9/10 (espérant tout de même les modifs indiquées^^)
bonne continuation @+
PCPT [AFCK]
2 nov. 2005 à 12:11
2 nov. 2005 à 11:52
erreur zip, il manque le fichier .res
2 nov. 2005 à 11:25
je serai donc ravi d'être noté et commenté:)
Merci
31 oct. 2005 à 09:06
Bonne continuation et merci de partager.
JLN
30 oct. 2005 à 01:01
ListModels:
''' Shell "cmd /c dir /b """ & App.Path & "\Models"">" & App.Path & "\models.txt", vbHide 'Chargement de la liste des modèles
''' start = Timer
''' Do While Timer - start < 0.5
''' DoEvents
''' Loop
''' If Timer - start < 1 Then On Error GoTo ListModels 'parfois si pas assez rapide, erreur file not found
''' Open App.Path & "\models.txt" For Input As #1
''' Do While Not EOF(1)
''' Line Input #1, textline
''' CmbModels.AddItem Left(textline, Len(textline) - 4)
''' Loop
''' Close #1
''' Kill App.Path & "\models.txt"
'--------------------------------------------------------------
'modif JJDai du 30/10/2005
'--------------------------------------------------------------
Dim sModele As String
sModele = Dir(App.Path & "\Models")
Do While sModele <> ""
CmbModels.AddItem Left$(sModele, Len(textline) - 4)
sModele = Dir
Loop
29 oct. 2005 à 17:20
Wai z'ont l'air vraiment sympa tes boutons :)
Je testerai des que tu aura resolu tes 2-3 ptits problemes
Bonne continuation
++
29 oct. 2005 à 14:22
1/ Le bug de l'autoredraw qui bouffe la mémoire à parte de vue, surtout pour des contrôles qui se redéssine très souvent !
2/ Le clignotement dû au réaffichage d'une partie d'une image lorsque l'autoredraw est désactivé
3/ Le clignotement dû au déplacement du contrôle.
DarK Sidious
29 oct. 2005 à 13:25
pour ce fameux bug:
DarkSidious: qu'entends tu parler par un DC temporaire???merci
PCPT:Ok pour l'hyperlink, content que tu trouves ça bien, je vais faire un effort de compréhension pour la propertypage, Comment jouer avec doevents, cls et refresh quand autoredraw sera = false?(Usercontrol effacé, lors d'un passage d'une fenetre par dessus :()
MERCI de votre aide:D
28 oct. 2005 à 21:05
çà réduit ta zone de recherche ;)
si tu peux te passer de ce timer, tu auras peut-être la possibilité de laisser l'autoredraw = true
suggestion : option HyperLink pour souligner au MouseOver (au lieu de par le code....).
focus optionnel : ok, bien.
par contre, toutes ces options de couleurs, c'est bien mais c'est pas intuitif (je comprend mieux "pourquoi" les fichiers txt)
++
PCPT [AFCK]
28 oct. 2005 à 20:50
vraiment sympa ce contrôle !
ton bug vient de l'AutoRedraw.
met le à false et joue avec DoEvents, Resfresh et Cls.
le Focus sur Laser et Fashion, très bien. j'ai pas regardé s'ils étaient optionnels (et il le faudrait), mais en tout cas çà rend pas mal.
enfin, pour les config en txt, çà par contre, il faudrait soit qu'elles soient dans un fichier ressource, soit en dur dans le UserControl (pour des raisons de réutilisation...)
pas noté puisque modifs indispensables, mais c'est pas mal déjà ;)
bonne continuation
PCPT [AFCK]
28 oct. 2005 à 20:20
Autoredraw activé (qui bouffe beaucoup de mémoire, préférer un DC temporaire plus rapide et moins gourmand pour ceux qui savent bien les utiliser !)
Oublier de supprimer l'ancienne brosse/pinceau sélectionné dans un DC
DarK Sidious