Soyez le premier à donner votre avis sur cette source.
Vue 16 177 fois - Téléchargée 1 259 fois
Les contrôles sont ajoutés à la collection Controls ' Créé l'objet Dim Ctl As New Note ' L'ajoute à la collection Controls de NotePanel Me.NotePanel.Controls.Add(Ctl) ' On ajoute une interception des messages et une re direction ' Il faut traiter tous les messages un à un AddHandler Ctl.MouseMove, AddressOf NoteMouseMove AddHandler Ctl.DoubleClick, AddressOf NoteMouseDoubleClick With Ctl .Top = y .Left = x .BringToFront() End With
12 déc. 2007 à 21:47
Merci BSGILLES
Afyn - Navedac
16 juil. 2007 à 15:46
27 févr. 2006 à 10:33
Il faut rajouter l'espace de nom Graphic Control pour que cela fonctionne.
C'est une solution. Mais, fait un peu une grille du Lotto avec un bouton en dessous qui lance, à chaque appui, l'application pour donner les numéros ganants, y compris le complémentaire.
Le tout est affiché graphiquement sur la grille avec une couleur différente pour le complémentaire
A bientôt
Maurice
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.