code basé principalement sur APIs Windows ; la traduction devrait aller simplement.

si souci, me contacter (faudra peut etre simplifier en retirant le cryptage, par exemple)

C'était destiné a mon examen de fin d'étude, entre autres projets...
Presque 10 ans... que le temps passe

Tous les programmes ...  projet1 ... projet1

pas très propre, ça...

Presse papier toujours une faille, mais code plus court :




Option Explicit

Private Const ES_NUMBER As Long = &H2000&
Private Const GWL_STYLE As Long = -16

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
    SetWindowLong Text1.hwnd, GWL_STYLE, GetWindowLong(Text1.hwnd, GWL_STYLE) Or ES_NUMBER
End Sub

Private Sub Text1_Change()
    Label1.Caption = DecToHexa2(Text1.Text)
End Sub

Public Function DecToHexa2(ByRef StringNb As String) As String
    If Val(StringNb) Then
        DecToHexa2 = Hex$(StringNb)
    Else
        DecToHexa2 = "0"
    End If
End Function

oui, mais on ne controle pas la saisie a la volée, c'est souvent vecteur d'inconfort...

rien n'empeche de saisir des caractères non autorisés via le presse papier.

voir le flag ES_NUMBER :
http://www.codyx.org/snippet_textbox-numerique-seulement_53.aspx

Es-tu faché avec la fonction Hex$ ?

Pas bon, ce genre de choses :
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8 Or KeyAscii = 44 Or KeyAscii = 46) Then
        KeyAscii = 0 'on annule la pression sur la touche
    End If
End Sub

pas hermetique aux fautes de saisie (presse papier, etc)

tests en vrac, commentaires qui ne le sont pas moins

touche Ctrl mangée, si on presse, on perd la selection
tes masques ne resistent pas a un Ctrl+V de caractères interdits
pas simple, voire impossible (testé dans l'alpha 6) de placer le caret a l'endroit souhaité
dans l'alpha 6. Je saisi des caractères Alt+Tab je reviens sur ma Form Excel, des caractères chevauchent les autres... (ton fantome ?)
Euh... le Alt+Tab tue toute la verif, d'ailleurs :/

Pas testé plus loin, m'enfin

Je suis d'accord que c'est souvent des usines a gaz... mais surtout, et puisqu'après tout, l'user ne voit pas la code, le principal default et le coté intrusif de la chose !

une donnée, pour etre correctement interpretée par l'utilisateur doit être formatée.
Une attention particulière sera portée aux parametres regionnaux (dates, montants, etc.)

mais la saisie de l'utilisateur se doit d'etre libre.
controlée, mais libre.

Il ne faut pas non plus bloquer l'utilisateur dans une textbox, sous pretexte qu'elle a mal été remplie.
saisie libre, donc, avec vérification et formatage lorsque l'user quitte la zone.

J'ai bien lu ton laïus et bien compris que tu jouais ici. Que tu n'affectionne pas plus que moi ce genre de verrou que l'on tente parfois de placer sur la saisie...
Comme je le faisait remarquer, un simple Ctrl+V suffit bien souvent a mettre a mal les tests de saisie.
Mieux vaut alors ne contrôler le texte qu'a la sortie de focus.

Très bon exemple, donc, à ne pas suivre ^^

une chance que RGB soit une fonction "blindée"...

parce que tu lui transmet des paramètres incohérents... (> 255)
définit le max de tes HScrollbars

Nommes tes controles de manière explicite

Ta form ne présente pas les "bonnes" conditions de départ.
vu la position de tes scrollbars, le fond de ta form devrait etre noire et tes labels contenir "0"

Prends l'habitude d'indenter ton code

et active la declaration obligatoire des variables (Option Explicit en haut de chaque module)

1.02Mo en supprimant les repertoires bin et obj qui seront regénérés à la compilation...
3 Mo si tu laisses UNE copie des dll de Krypton dans un repertoire commun (ils sont présents deux fois dans ton Zip...
tu peux utiliser <HintPath>
http://www.codeproject.com/Articles/184718/Take-advantage-of-Reference-Paths-in-Visual-Studio
pour conserver le lien de tes deux projets avec ces dll

je persiste a penser que tu devrais laisser le code central ici...

rien ne t'empeche de télécharger les dll Krypton par la suite

Orlean2, de quoi parles tu ?