Bonjour,
Je souhaite afficher une fenêtre avec un message pour patienter pendant l'exécution d'un script en vb.net. J'utilise pour cela un form (et non un msgbox car je ne veux pas de bouton) avec un label. Le formulaire s'affiche, mais pas le texte du label (la zone du formulaire ou le texte devrait s'afficher est transparente, on voit à travers). Je ne comprends pas pourquoi. Voici mon script :
Dim form1 As New Windows.Forms.Form
Dim label1 As New Windows.Forms.Label
label1.Autosize = True
label1.BackColor = System.Drawing.SystemColors.Control
label1.ForeColor = System.Drawing.SystemColors.ControlText
label1.Location = New System.Drawing.Point(0, 0)
label1.Name = "Label1"
label1.Size = New System.Drawing.Size(179, 13)
label1.TabIndex = 0
label1.Text = "Calcul en cours, merci de patienter..."
label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
label1.Visible = True
form1.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
form1.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
form1.ClientSize = New System.Drawing.Size(231, 61)
form1.ControlBox = False
form1.Controls.Add(label1)
form1.Name = "Dédé F."
form1.Text = "Dédé F."
form1.TransparencyKey = System.Drawing.Color.White
form1.StartPosition = FormStartPosition.CenterScreen
form1.Cursor = Cursors.WaitCursor
form1.Show()
Quelqu'un aurait-il une idée ?
Partager