Il disegno del numero sulla
DrawingArea viene cancellato non appena viene attivata la WebCam.
In altre parole la ripresa video della WebCam, mostrato sulla
DrawingArea, cancella (ovviamente!) tutto quanto v'era in precedenza.
Pertanto, l'
intera routine "
Public Sub DrawingArea1_Draw()" è del tutto
inutile ai tuoi fini (
va eliminata); e il disegno del numero va posto nella routine
successiva, laddove viene creata l'immagine.
Dunque:
prima va creata l'immagine dal video e
poi sulla medesima sarà stampato il numero prescelto.
......
' Crea la "Picture" con l'immagine tratta in tempo reale dal video della WebCam:
pc = Desktop.Screenshot(DrawingArea1.ScreenX, DrawingArea1.ScreenY, DrawingArea1.Width, DrawingArea1.Height)
' Creata dunque la "Picture", va QUI e ORA disegnato il numero prescelto:
With Paint
.Begin(pc)
.Brush = Paint.Color(Color.Black)
.Font.Bold = True ' ...se vuoi il grassetto
.Font.Size = 14 ' Imposta una dimensione del font
.DrawText(CStr(ValueBox1.value), 100, 100, DrawingArea1.W, DrawingArea1.H) ' ...ho posto valori esemplificativi
.End
End With
pc.Save(Myperc, 100)
......
