[Visual basic] deplacer ecran de demarrage

Boss ; ) Messages postés 213 Statut Membre -  
 Utilisateur anonyme -
Bonjour,
Je voudrai savoir comment en fait pour pourvoir déplacer l'écran de démarrage dans visual basic express. Comment fait-on ?

Merci d'avance ; )
A voir également:

2 réponses

Réponse 1 / 2
Boss ; ) Messages postés 213 Statut Membre 11
 
Aidez moi, s'il vous plait.
0
Réponse 2 / 2
Utilisateur anonyme
 
Bonjour,

Je sous-entends que Visual Basic Express est une version de
VB.NET (2K3/2K8/2K10).

Voici une démonstration : 

Public Class EcranDemarrage 

#Region " Méthodes " 

#Region " Constructeur " 

    Public Sub New() 

        ' Cet appel est requis par le Concepteur Windows Form. 
        InitializeComponent() 

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent(). 

    End Sub 

#End Region 

#Region " Évènements " 

    Private Sub EcranDemarrage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

        Centrer_Ecran()
    End Sub 

    Private Sub btn_Quitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Quitter.Click 
        End 
    End Sub 

    Private Sub btn_Centre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Centre.Click 
        CenterEcran() 
    End Sub 

    Private Sub btn_Top_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Top.Click 
        Top_Ecran() 
    End Sub 

    Private Sub btn_Bottom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Bottom.Click 
        Bottom_Ecran() 
    End Sub 

    Private Sub btn_Gauche_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Gauche.Click 
        Gauche_Ecran() 
    End Sub 

    Private Sub btn_Droite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Droite.Click 
        Droite_Ecran() 
    End Sub 

#End Region 

#Region " Procédure " 

    Private Sub CenterEcran() 
        Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2 
        Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2 
    End Sub 

    Private Sub Top_Ecran() 
        Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2 
        Me.Top = 20 
    End Sub 

    Private Sub Bottom_Ecran() 
        Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - Me.Width) / 2 
        Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) 
    End Sub 

    Private Sub Droite_Ecran() 
        Me.Left = (Screen.PrimaryScreen.WorkingArea.Width - (Me.Width + 20)) 
        Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2 
    End Sub 

    Private Sub Gauche_Ecran() 
        Me.Left = 20 
        Me.Top = (Screen.PrimaryScreen.WorkingArea.Height - Me.Height) / 2 
    End Sub 

#End Region 

#End Region 

End Class


Cdt

Lupin
0