Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick If e.Button <> Windows.Forms.MouseButtons.Left Then Exit Sub MsgBox("Position dans la form : " & e.Location.X.ToString & " : " & e.Location.Y.ToString) End Sub
Public NotInheritable Class SplashScreen1 Private Sub SplashScreen1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load With Me 'agrandissement à tout l'écran .WindowState = FormWindowState.Maximized 'toujours visible .TopMost = True 'transparence du formulaire (plus le chiffre est bas et 'plus il y a de transparence .Opacity = 0.2 End With End Sub Private Sub SplashScreen1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick 'fermeture au double clic Me.Close() End Sub End Class
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim sc As New SplashScreen1 sc.ShowDialog() End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSeulement, je n'ai pas fais un copier/coller mais essayer de re-écrire de mon côté pour bien comprendre.
Faut pas se rater les gars hein ?