Bah je suis pas tres fort parceque je debute et j'espere que ca servira et surtout j'espere que les masters du coin modifiront le code...
Vous avez besoin de deux form, reglés avec les parametres suivants:
Une form1 assez grande
form1: Scale = Twip
Une form2 nettement plus petite que la form1 et rouge !!
avec border style = none
scale = Twip
startup position = manual
rentrez le code dans form1
Si vous ne faites pas ca risque pas de fonctionner
Source / Exemple :
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form2.Top = Y 'indique sur l'axe Y ou doit commencer le dessin de la fenetre
Form2.Left = X 'indique sur l'axe X ou dot commencer le dessin de la fenetre
If Button = 2 Then 'Si le bouton droit de la souris change d'état sur la form1 alors...
Form2.Show 'Affiche la form2
End If
If Button = 1 Then 'si le bouton gauche de la souris change d'état sur la form1 alors..
Unload Form2 'cache la form2
End If
End Sub
Private Sub Form_Unload(Cancel As Integer) 'Quand la form1 est déchargée
Form2.Hide 'cache ma form2
End Sub
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.