Public mainFormInstance As MainForm
Imports System.Threading Namespace SplashScreenThreaded Friend NotInheritable Class Program Private Sub New() End Sub ''' <summary> ''' Le point d'entrée principal de l'application. ''' </summary> <STAThread> _ Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) mainFormInstance = New MainForm() Application.Run(mainFormInstance) End Sub End Class End Namespace
mdiChildAjout = New FrmNouvCandidat mdiChildAjout.MdiParent = mainFormInstance mdiChildAjout.Show()
mdiChildAjout.MdiParent = MainFrom
Public mainFormInstance As MainForm Public mdiChildAjout As FrmNouvCandidat '//Ajouter un client ou coiffeur avec photo Public mdiChildChoixCP As FrmChoixCP '//Choix d'un code postal lors de l'ajout d'un candidat Public mdiChildApropos As FrmAboutBox '//Choix d'un code postal lors de l'ajout d'un candidat Public mdiChildRech As FrmRecherche '//Recherche filtre candidat Public mdiChildInfoCand As FrmInfoCand '//Affiche les info du candidat Public mdiChildProfil As FrmProfil '//Affiche les différents profils(ajout,suppression) Public mdiChildPoste As FrmPoste '//Affiche les différents postes(ajout,suppression)
Imports System.Threading Namespace SplashScreenThreaded Friend NotInheritable Class Program Private Sub New() End Sub ''' <summary> ''' Le point d'entrée principal de l'application. ''' </summary> <STAThread> _ Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) mainFormInstance = New MainForm() mdiChildAjout = New FrmNouvCandidat() mdiChildChoixCP = New FrmChoixCP() mdiChildApropos = New FrmAboutBox() mdiChildRech = New FrmRecherche() mdiChildInfoCand = New FrmInfoCand() mdiChildProfil = New FrmProfil() mdiChildPoste = New FrmPoste() Application.Run(mainFormInstance) End Sub End Class End Namespace
Application.SetCompatibleTextRenderingDefault(False)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmdiChildAjout.MdiParent = MainFormne génère pas d'erreur de compilation ?" voici la petite explication.
Global.MonApplication.My.Forms.Toto
Global.MonApplication.My.Forms.Toto
MonApplication.My.Forms.Toto
My.Forms.Toto
Toto
Namespace SplashScreenThreaded Friend NotInheritable Class Program Private Sub New() End Sub ''' <summary> ''' Le point d'entrée principal de l'application. ''' </summary> <STAThread> _ Shared Sub Main() Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Application.Run(MainForm) End Sub End Class End Namespace
Application.Run(Global.NomDeApplication.My.Forms.MainForm)
Application.Run(New MainForm())
mdiChildAjout = New FrmNouvCandidat mdiChildAjout.MdiParent = MainForm mdiChildAjout.Show()