Discussion :

[planeurbret]

Bonjour,

J'ai un petit soucis, j'ai une fenetre de démarrage qui me permet de charger toutes mes options, et mes données.

Or, j'ai des label sur cette fenetre et ces label ne s'affichent pas et restent "blancs", de grands rectangles blanc, et le texte ne s'affiche que au fur et a mesure .... Et encore, des fois, il ne s'affiche pas ... Comment faire ?

[Savak]

Peux-tu nous transmettre le "load" de ta fenêtre?

[planeurbret]

Le load de ma fenetre de démarrage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub DemAppli_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
		'Configurez le texte de la boîte de dialogue au moment de l'exécution en fonction des informations d'assembly de l'application.  
 
		Version.Text = System.String.Format(Version.Text, My.Application.Info.Version.Major, My.Application.Info.Version.Minor)
 
		'Informations de copyright
		Copyright.Text = My.Application.Info.Copyright
		If Not File.Exists(My.Settings.EmplacementFichierLog & "log.txt") Then
			FichierLogErreurs = New StreamWriter(My.Settings.EmplacementFichierLog & "log.txt")
		Else
			FichierLogErreurs = File.AppendText(My.Settings.EmplacementFichierLog & "log.txt")
		End If
	End Sub

La fenetre qui l'appelle (pour qu'elle soit visible durant que toutes mes données soient chargées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
TS_Date.Text = "Nous sommes le " & Now.Date.ToString("dddd d MMMM yyyy")
		'chargement du menu
		Me.Size = Screen.PrimaryScreen.Bounds.Size
		Me.MaximumSize = Screen.PrimaryScreen.Bounds.Size
		Me.MinimumSize = Screen.PrimaryScreen.Bounds.Size
		M_Menu.Visible = False
		DemAppli.Activate()
		If My.Computer.Network.IsAvailable Then
			With My.Settings
				.HostBDD = "davis.fr.planethoster.net"
				.NomBDD = "bretagne_BretagnePyro"
			End With
		Else
			result = MsgBox("Attention, aucune connexion n'a été détectée sur cet ordinateur" &
			  Chr(13) & "Voulez vous réellement continuer et vous connecter en local ?" &
			  Chr(13) & "Il peut y avoir des différences au niveau des données", MsgBoxStyle.YesNo, "Autre saisie ?")
 
			'Traitement du résultat de la MessageBox
			If result = Windows.Forms.DialogResult.Yes Then
				With My.Settings
					.HostBDD = "localhost"
					.NomBDD = "BretagnePyro"
				End With
			ElseIf result = Windows.Forms.DialogResult.No Then
				Application.Exit()
			End If
 
		End If
		DemAppli.Show()
		'If DemAppli.Active Then
 
		With PB_chargement
			.Style = ProgressBarStyle.Blocks
			.Step = 20
			.Maximum = 100
			.PerformStep()
		End With
 
		RemplissageHashtablePDT()
		'chargement des combos du menu
		PB_chargement.PerformStep()
		chargeComboArtificiers(MCB_Artificiers)
		PB_chargement.PerformStep()
		ChargerComboFournisseurs(MCB_Fournisseurs)
		PB_chargement.PerformStep()
		ChargerComboClients(MCB_Clients)
		PB_chargement.PerformStep()
		ChargerComboClients(MCB_DevisClient)
		PB_chargement.PerformStep()
		ChargerComboFournisseurs(MCB_FRStock)
 
 
		FichierLogErreurs.WriteLine(Now.Date.ToString("dd-MM-yyyy") & " " & Now.Hour & ":" & Now.Minute)
		FichierLogErreurs.WriteLine(My.Computer.Name & " : Connexion à l'application")
 
 
		PB_chargement.PerformStep()
		'Préparation de la fenêtre menu
		S_Infos.Visible = True
		M_Menu.Visible = True
		PB_chargement.Visible = False
		Cursor = Cursors.Default
		'End If
		DemAppli.Close()
 
		If My.Settings.SiretSociété = Nothing Or My.Settings.TauxTVA > 2 Or My.Settings.TauxTVA < 1 Or My.Settings.TauxFraisFixes = 0 Then
			MsgBox("TVA = " & My.Settings.TauxTVA & " frais fixes = " & My.Settings.TauxFraisFixes)
			OuvertureFenêtre(F_Préférences)
 
		End If
	End Sub