#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private MediaView1 As MediaView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
MediaView1.Source = File.GetUri("D:\","Anticipation-1.mp4")
MediaView1.Play
End Sub
Sub Button1_Click
Dim bmp As B4XBitmap = MediaView1.mMediaView.snapshot
Dim out As OutputStream
out = File.OpenOutput("D:\", "mybitmap.png", False)
bmp.WriteToStream(out, 100, "PNG")
out.Close
End Sub