label phantomeRésolu

Question

Bonjour,

Voici le code:

    Private Sub accueil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Me.Label_connexion.Visible = True
        Me.Etiq_catconsautresTableAdapter.Fill(Me.CATREFSDataSet.etiq_catconsautres)
        Me.Etiq_catconsdivaltoTableAdapter.Fill(Me.CATREFSDataSet.etiq_catconsdivalto)
        Me.Etiq_vehiculesTableAdapter.Fill(Me.CATREFSDataSet.etiq_vehicules)
        Me.Etiq_referencesTableAdapter.Fill(Me.CATREFSDataSet.etiq_references)
        Me.CatrefstTableAdapter.Fill(Me.CATREFSDataSet.catrefst)
        Me.CatrefssouTableAdapter.Fill(Me.CATREFSDataSet.catrefssou)
        Me.Catrefsd_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefsd_feuil1)
        Me.Catrefsa_Feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefsa_Feuil1)
        Me.Catrefscv_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefscv_feuil1)
        Me.Catrefssph_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefssph_feuil1)

        Me.rep_generation.Text = "C:\Users\Administrateur\Desktop\Générés"
        Me.FolderBrowserDialog1.RootFolder = rep_generation.Text
        Me.FolderBrowserDialog1.SelectedPath = rep_generation.Text
        Me.Label_connexion.Visible = False
    End Sub

Ma form s'affiche mais pas le label.

Pourquoi ?

Merci.

NHenry · Accepted Answer

Bonjour, 

Regardes peut être du coté de DoEvents.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

vercomax · Answer

Private Sub accueil_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Label_connexion.Visible = True
        Me.Show()
        Me.Etiq_catconsautresTableAdapter.Fill(Me.CATREFSDataSet.etiq_catconsautres)
        Me.Etiq_catconsdivaltoTableAdapter.Fill(Me.CATREFSDataSet.etiq_catconsdivalto)
        Me.Etiq_vehiculesTableAdapter.Fill(Me.CATREFSDataSet.etiq_vehicules)
        Me.Etiq_referencesTableAdapter.Fill(Me.CATREFSDataSet.etiq_references)
        Me.CatrefstTableAdapter.Fill(Me.CATREFSDataSet.catrefst)
        Me.CatrefssouTableAdapter.Fill(Me.CATREFSDataSet.catrefssou)
        Me.Catrefsd_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefsd_feuil1)
        Me.Catrefsa_Feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefsa_Feuil1)
        Me.Catrefscv_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefscv_feuil1)
        Me.Catrefssph_feuil1TableAdapter.Fill(Me.CATREFSDataSet.catrefssph_feuil1)

        Me.rep_generation.Text = "C:\Users\Administrateur\Desktop\Générés"
        Me.FolderBrowserDialog1.RootFolder = rep_generation.Text
        Me.FolderBrowserDialog1.SelectedPath = rep_generation.Text
        Me.Label_connexion.Visible = False
        Me.Hide()
        Me.Show()
    End Sub


avec ce nouveau code il apparait bien avant les fill des datasets mais malgré le visible à false, il reste affiché

???

vercomax · Answer

Merci, c'est bien là qu'il faut chercher.
Bonne soirée.

Label phantome

3 réponses

Votre réponse

Discussions similaires