Personaliser ma fenetre

Signaler
Messages postés
4
Date d'inscription
jeudi 20 décembre 2007
Statut
Membre
Dernière intervention
25 mai 2008
-
Messages postés
20
Date d'inscription
jeudi 19 avril 2007
Statut
Membre
Dernière intervention
29 juin 2008
-
Slt!
Je suis en train de developper en C# et j'aimerais que mes fenetres aient des formes que je souhaite (des images que je possède deja du genre arbre abattu, feille de manguier,..)
Qui peut m'aides en VB et/ou C#

3 réponses

Messages postés
4
Date d'inscription
jeudi 20 décembre 2007
Statut
Membre
Dernière intervention
25 mai 2008

Slt!
je désire personaliser ma fenetre cad qu'elle ait une forme autre que celle par défaut de windows du genre media player,... avec des images que j'ai.
Je veux donc que ma fenetre ait cette forme là.
Que dois je faire?
Messages postés
3172
Date d'inscription
dimanche 15 février 2004
Statut
Membre
Dernière intervention
9 avril 2017
32
Salut,

Regarder dans les sources existantes.
skin, form personalisable ...

__________
  Kenji
Messages postés
20
Date d'inscription
jeudi 19 avril 2007
Statut
Membre
Dernière intervention
29 juin 2008

Salut,

Si je comprend bien, tu veux une application en forme d'arbre avec de la transparence comme contour?

Si c'est ça, voici ce qu'il faut que tu fasses pour le faire en vb.net:

1)  crée une image. Pour les endroits avec de la transparence, utilise une couleur du genre  45; 69; 62. En fait, une couleur que tu ne se retrouvera nul part sur ton programme.

2) enleve les bordures de ton programme (propriété FormBorderStyle = None)

3) met l'image que t'a fait comme image de fond (propriété BackgroundImage = TonImage

4) met la propriété TransparencyKey de la couleur que t'a choisi pour la transparence. Pour moi, c'est 45; 69; 62.

5) si tu démarre ton programme, tu devrais voir que sa fonctionne. Mais tu ne peux pas le déplacer ni le quitter.

6) pour le quitter, tu ajoute un bouton/picturebox qui le fait quitter.

7) pour le déplacer, copie ça dans ton code:
Private

Sub Programme_MouseDown(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.MouseEventArgs)
Handles
MyBase.MouseDownLocationSouris = e.Location

End
Sub

Private
Sub Programme_MouseMove(
ByVal sender
As
Object,
ByVal e
As System.Windows.Forms.MouseEventArgs)
Handles
MyBase.MouseMove

If e.Button = Windows.Forms.MouseButtons.Left
Then

Dim variation
As Sizevariation.Width = e.X - LocationSouris.X

variation.Height = e.Y - LocationSouris.Y

Me.Location = Point.Add(
Me.Location, variation)

End
If

End
Sub

J'espère que je t'ai aidé!