Code: Select all
Private myPlayer As New MediaPlayer As "Player"
'=============================================================================
Public Sub Form_Open()
myPlayer.URL = "v4l2:///dev/video0"
myPlayer.Play()
End
'=============================================================================
Public Sub Form_Close()
myPlayer.Stop()
End
'=============================================================================
Public Sub TheButton_Click()
Dim theImage As Image = myPlayer.Video.Image
theImage.Save(Application.Path &/ Format(Now, "yyyymmdd_hhnnss") & ".jpg"
ThePictureBox.Image = theImage
End
None of my attempts have been successful so far.