1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Formulaire
  5. Mettre votre form vb.net en pleine écran

Mettre votre form vb.net en pleine écran

0/5 (5 avis)

Vue 14 352 fois - Téléchargée 1 329 fois

Télécharger le projet
Commenter

Description

Voila une source qui sera parfaites pour mettre vos formulaires VB.net en pleine écran.

Elle sera surement beaucoup soliciter pour les personnes créent des jeux en VB.

Source simple d'utilisation :

- Ajoutez 2 boutons sur votre Form.
- Ajouter le code ci dessous et le tour est joué !
- Laissez toujours la propriété FormBorderStyle = Sizable sur votre Form ou modifié dans le code du bouton 2 sans oublider de remplacer VOTREVALEUR, par exemple : Me.FormBorderStyle = Windows.Forms.FormBorderStyle.VOTREVALEUR

Source / Exemple : 


Public Class Form1

    Dim Loc As New Point
    Dim WL As String
    Dim HL As String
    Dim Maxed As String = FormWindowState.Normal
    Dim FullScreen As String = False

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If FullScreen = False Then
            FullScreen = True
            If Me.WindowState = FormWindowState.Maximized Then
                Me.WindowState = FormWindowState.Normal
                Maxed = FormWindowState.Maximized
            End If
            Loc = Me.Location
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Me.TopMost = True
            WL = Me.Width
            HL = Me.Height
            Me.Height = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height.ToString()
            Me.Width = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width.ToString()
            Me.Location = New Point(0, 0)
        End If
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If FullScreen = True Then
            FullScreen = False
            Me.TopMost = False
            Me.Height = HL
            Me.Width = WL
            Me.Location = Loc
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
            If Maxed = FormWindowState.Maximized Then
                Me.WindowState = FormWindowState.Maximized
            End If
        End If
    End Sub
End Class

Conclusion :


En conclusion, le code récupère la taille de l'affichage windows et l'inscrit dans une valeur string, qui est utiliser pour donner la taille du formulaire qui est mis sans bordure, la form est ensuite mise au dessus de tous les contrôle pour ne plus voir la barre de tâche par exemple.
Au Finale, un code plutôt simpatique et simple d'utilisation !

Bonne programmation.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_hadri1
Messages postés
24
Date d'inscription
vendredi 2 février 2007
Statut
Membre
Dernière intervention
10 juillet 2011
23 juil. 2012 à 12:15
Bonjour,
je passais par là et juste une chose qui m'a un peu gêné : essai d'utiliser les bon types plutôt que de passer par des string et utiliser des conversions implicites, c'est un bon réflexe à prendre dès le début et ça change beaucoup ensuite la vitesse d'exécution lors de l'utilisation de boucles etc..
enfin bon sinon ton code à l'air bon, je crois que c'est la seule méthode pour afficher en plein écran sans utiliser les api, il pourrait juste être un peu "simplifié" :

Public Class Form1

Private previousFormState As FormWindowState = WindowState()
Private fullScreen As Boolean = False
Private previousSize As Size = Size()

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Not fullScreen Then
previousSize = Size()
previousFormState = WindowState()
FormBorderStyle = Windows.Forms.FormBorderStyle.None
WindowState = Windows.Forms.FormWindowState.Maximized
Size = Windows.Forms.Screen.FromHandle(Me.Handle()).Bounds.Size()
TopMost = True
fullScreen = True
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
WindowState = previousFormState
Size = previousSize
TopMost = False
fullScreen = False
End Sub

End Class

Après le stockage et le changement de la taille de la fenêtre ne servent à rien ici il me semble car cela se fait automatiquement en changeant la propriété WindowState().

Voilà, bonne journée et bonne continuation !
Gabilach
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
1 janv. 2012 à 14:38
Ah, sinon ton code était une solution pas mal si ta barre se masque efféctivement ! ^^
Bonne continuation :)
cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
 4
1 janv. 2012 à 13:56
Bonjour,
Autant pour moi, mais comme je valide la propriété "Masquer automatiquement la barre des tâches" je n'ai pas remarqué la différence.
A+
Gabilach
Messages postés
200
Date d'inscription
mercredi 2 mars 2011
Statut
Membre
Dernière intervention
28 septembre 2014
23 déc. 2011 à 14:31
Bonjour, ce que tu ma donner la n'est pas pareil que mon code ! Toi tu agrandit juste la form en la mettant sans bordure, elle ne passe donc pas par dessus la barre des tâches, et elle ne fait pas la hauteur de tout l'écran ( barre de tache compris ) !

Mon code permet justement de prendre la hauteur et la largeur de l'écran et de la définir comme Height et Width de la form, puis de mettre la form en TopMost.

Donc je ne cherche pas midi à quatorze heure ;D !
cs_lermite222
Messages postés
492
Date d'inscription
jeudi 5 avril 2007
Statut
Membre
Dernière intervention
2 juillet 2012
 4
14 déc. 2011 à 13:04
Bonjour,
Je pense que tu cherche un peu midi à quatorze heure :-)

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
If Me.WindowState = FormWindowState.Maximized Then
Me.WindowState = FormWindowState.Normal
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Else
Me.WindowState = FormWindowState.Maximized
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
End If
End Sub

Fait la même chose.
A+
S'inscrire maintenant

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.

Du même auteur (Gabilach)