FormBorderStyle = None + Form sizable ?Résolu

Question

Salut à tous, en fait j'ai fait une applcation en FormBorderStyle = None, j'ai déja fait le bouton pour fermer l'application, mais je ne sais pas comment faire pour le bouton pour réduire le Form ni comment faire de la Form une Form resizable ! Comment faire ? A+ Jérémy

P-S : SVP ne me dites pas de mettre la form en un autre FormBorderStyle ! C'est juste une question de principe.

gillardg · Accepted Answer

Bonjour,
1 cacher une form n'est pas la réduire 
Me.WindowState = FormWindowState.Minimized

me semble plus correct 

2 pour pouvoir redimenssionner une form ET ne pas avoir de barre de titre le truc c'est 
  Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Me.ControlBox = False

3 ensuite il te reste à ajouter du code pour pouvoir déplacer ta form

  Private mouseOffset As Point
   
   
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        mouseOffset = New Point(-e.X, -e.Y)
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim mousePos As Point = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.DesktopLocation = mouseOffset
        '   Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        ' resizable
        Me.ControlBox = False

    End Sub

a+

JeremyZoe · Answer

Salut, en fait, pour réduire la form, c'était tout simple ! J'ai juste mis :
Me.Hide
Maintenant, il ne me reste plus qu'a trouver comment resizer la form, mais je n'ai aucune idée !  Merci d'avance, Jérémy

JeremyZoe · Answer

Salut, j'ai essayé tes codes, mais quand je met ton 3eme, je ne peut pas le resizer. Quand je met ton 2eme, je peux le resizer mais il me reste le contour. Y a t-il un moyen d'enlever le contour ?
Mais merci quand-même, je t'en suis reconnaissant A+, Jérémy

gillardg · Answer

Bonjour,

c'est tout ce que j'ai dans le genre 
regarde la classe System.Drawing.Region...
peut être :)
a+

cs_Le Pivert · Answer

Bonjour,
Pour enlever les bordures:

  Dim isSizable As Boolean = True
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If isSizable = False Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
            Me.Button1.Text = "Sans Bordure"
            isSizable = True
        Else
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Me.Button1.Text = "Avec Bordure"
            isSizable = False
        End If
    End Sub
@+ Amitiés à gillardg

JeremyZoe · Answer

Salut, merci pour ta réponse, on va faire avec. 
Merci à vous deux, Jérémy

lionel10 · Answer

justement je le cherchais ce code mais lorsque l'on veut mettre un fond transparent comme couleur il me met "Control does not support transparent background colors."
Le problème c'est que j'aierais bien faire mon application sans contour Windows (ca c'est fait) mais les 4 coins sont arrondis et donc la couleur grises apprait dans les coins.
Comment faire pour faire une application avec des coins arrondis?

cs_Le Pivert · Answer

Bonjour,
Pour les coins arrondis, je ne sais pas, mais pour mettre un Form en transparence voir cette source que l'on peut adapter à tous les controles:

http://www.vbfrance.com/codes/TRANSPARENCE-TEXTBOX-PICTUREBOX_49500.aspx
@+
Le Pivert

JeremyZoe · Answer

Pour les coins arrondis, utilise une image de fond au coins arrondis coloré (Edité par PhotoFiltre par Ex.) (Ex de couleur : Fushia) puis tu met TransparentKey = Fuschia. Voila , Jérémy

lionel10 · Answer

Merci ça fonctionne

FormBorderStyle = None + Form sizable ?

10 réponses

Votre réponse

Discussions similaires