Discussion :

[RICO_85]

Bonjour

j'aurais besoin d'un coup de main, je développe un programme qui contient plusieurs onglets, ses onglets sont générer automatiquement via une boucle. j'ai donc en faite 3 onglets générés plusieurs fois. je voudrais faire une capture d’écran de chaque onglet. j'utilise le code ci dessous : ( exemple de l'onglet 3)

Code VB :

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

1
2
3
4
5
6
Dim wid3 As Integer = TabPage(3).Width
Dim hgt3 As Integer = TabPage(3).Height
Dim bmp3 As Bitmap = New Bitmap(TabPage(3).Width, TabPage(3).Height)
TabPage(3).DrawToBitmap(bmp1, New Rectangle(0, 0, TabPage(3).Width, TabPage(3).Height))
bmp3.Save("c:\Analyse\" & var1 & "_bmp1.bmp")
bmp3.Dispose()

ce qui se passe et que je ne comprend pas c'est que les captures d’écrans fonctionnent bien pour le troisième onglet de chaque boucle, mais les captures de l'onglet 1 et 2 ne fonctionnent pas (image blanche).

Chose que je comprend pas non plus, si j’inhibe les captures d écrans de l onglet 2 et 3, cette fois si c'est les captures de l'onglet 1 fonctionnent.

La je suis un peut perdu, si l'un d'entre vous a une explication.

Merci d'avance

[FayaKevin90HD]

hey ! , si je serais toi j'essaierais de faire un petit refresh. entre chaque screen . J'ajouterais même un petit Thread.Sleep entre en même temps. On dirait que tu n'as pas de soucis avec la méthode screen mais comme tu dois les enchainer rapidement le systeme n'a pas le temps de le dessiner.

[RICO_85]

Bonsoir

Merci, pour ta réponse , je vais essayer en insérant une pause, par contre comment fais tu un refresh ?

[RICO_85]

Bonjour

Bon, je viens d'essayer avec un thread avant et après la capture d’écran, et j ai ajouter un refresh avant la capture, et c'est pareil

Code VB :

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

1
2
3
4
5
6
7
8
9
10
Threading.Thread.Sleep(500)
 TabPage(3).Refresh()
 Dim wid3 As Integer = TabPage(3).Width
 Dim hgt3 As Integer = TabPage(3).Height
 Dim bmp3 As Bitmap = New Bitmap(TabPage(3).Width, TabPage(3).Height)
 TabPage(3).DrawToBitmap(bmp3, New Rectangle(0, 0, TabPage(3).Width, TabPage(3).Height))
 bmp3.Save("c:\Analyse\" & TXT_ENSEIGNE.Text & "\" & TXT_DEPARTEMENT.Text & "--------" & "\" & TXT_numero.Text & "\Capture\" & TXT_ENSEIGNE.Text & "_" & TXT_VILLE.Text & "_" & Txt_Date_Debut.Text & "_ERREUR__N°" & boucle1 & ".bmp")
bmp3.Dispose()
 
Threading.Thread.Sleep(500)

[RICO_85]

Bonjour

Je viens de trouver la solution , j ai rajouté avant ma capture un refresh et un show.

Code :

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

1
2
3
 
TabPage(3).Refresh()
 TabPage(3).Show()

Merci FayaKevin90HD pour ton aide .