1 2 3 4 5 6 7 8 9 10
| Public Function Initialise(ByVal Largeur As Int32, ByVal Hauteur As Int32, ByVal Titre As String, ByVal Couleur As Color) As Boolean
Fen = New Form With {.Width = Largeur, .Height = Hauteur, .Text = Titre, .BackColor = Couleur, .FormBorderStyle = FormBorderStyle.FixedSingle, .MaximizeBox = False, .StartPosition = FormStartPosition.CenterScreen}
Jeu = New PictureBox With {.Width = Largeur, .Height = Hauteur, .BackColor = Couleur}
Fen.Controls.Add(Jeu)
thFen = New Threading.Thread(AddressOf RunFen) : thFen.Start()
Return True
End Function |
Partager