Simple curiosité : quel est l'intérêt d'alourdir un exécutable?
Je veux dire, quelle est l'application que tu en tires?

(à ne pas prendre mal, il n'y a aucun sous entendu, je précise).

oui désolé côté commentaire, le code n'était pas prévu pour le partage à la base puisqu'étant partie intégrante de mon stage.

Je posterais une version a jours ce soir, qui corrige un problème lorsque le controle a une taille trop grande (le cercle est coupé visuellement), ainsi qu'une prise en compte de l'angle dans le sens trigo pour affecter la valeur (ce qui parait logique vis a vis de la trigo ^^)

hmm j'ai testé l'anti-aliasing et ça ne change pas grand chose ... =S

Merci bien je ne connaissais pas cette méthode :).
Mais j'ai bien peur que son utilisation fausse l'utilisation du "pas" de traçage que je me suis amusé a ajouter ^^'

Enfin je vais regarder cela et mettre a jours ;)

Cordialement,

KiTe.

Et bien personnellement je préfère toujours essayer de me passer des timers pour rendre le code 100% événementiel dans les programmes de ce genre.

Ce sont surtout des habitudes de programmation, bien que l'on puisse malgré tout reprocher aux timers de bouffer pas mal de CPU ^^

dans ce cas pourquoi ne pas régler cela sur les événements mouseEnter/Leave de la picturebox? plus besoin de timer comme ça.

hmm en fait je n'ai rien dis les deux méthodes rendent pareil au final vu que le mouseLeave ne se fait exclusivement que lorsque l'on quitte la zone client -_-'

désolé double post j'ai oublié ceci :

Il y a sinon une autre méthode :

Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        Me.Opacity = 1
    End Sub

    Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Dim pt As Point = MousePosition

        If Not Me.ClientRectangle.Contains(PointToClient(Control.MousePosition)) Then
            Me.Opacity = 0.1
        End If
    End Sub

Qui marche très bien et sans timer, le seul problème étant de nouveau la gestion des bordures. (en effet la form devient transparente lorsque l'on pointe les bordures .. gênant)

Cordialement,

KiTe.

utiliser un timer est peut être un peu bourrin pour faire ça.

Le problème reste surtout que le mouseLeave est généré dès que l'on quitte non pas la form mais l'espace conteneur de la form.

Or, sur les forms il y a une bordure assez gênante dans la mesure ou l'on n'a aucune variable/méthode/propriétés membre de la permettant d'obtenir la valeur de celle ci (que se soit la barre en haut ou les bordures sur les côtés), et que celle-ci ne sont pas prises en compte dans le mouseLeave.


La méthode que je présente ici n'est pas universelle et doit être réadaptée en fonction du formBorderStyle (et peut être de l'OS car je ne sais pas si avec les derniers SP les GUI générés sur XP sont les mêmes de base que sur vista) :

/!\ Ici pour formBorderStyle = sizable : /!\


Private Sub Form1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseEnter
        Me.Opacity = 1
    End Sub

    Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Dim pt As Point = MousePosition

        If (pt.X - Me.Location.X <= 10) Or (pt.X - Me.Location.X >= (Me.Width - 10)) Or (pt.Y - Me.Location.Y <= 30) Or (pt.Y - Me.Location.Y >= Me.Height - 10) Then
            Me.Opacity = 0.1
        End If
    End Sub

Les bordures bas, gauche et droite font a peu près 10px de large, et la barre en haut 30px.
Via des énumérations et des constantes on peut plus facilement gérer les modification de formBorderStyle et donc les différentes largeurs de bordures (à déterminer soit même) pour rendre ce morceau de code plus général.

Donc préférer des variables constantes ou énumérations pour éviter les 10 et 30 baladeurs et rendre le code un peu plus utilisable. Bref les bases sont là.

Cordialement,

KiTe.

Un screen serait le bienvenu ^^

Cordialement,

KiTe