CallSubDelayed2(Second, "ShowList", "1_2")
Sub ShowList(Title As String)
Name=Title
End Sub
Sub Activity_Create(FirstTime As Boolean)
Name=Title
Sub Button2_1_Click
Dim index As Int= CLV_Second.GetItemFromView(Sender)
FotoInd=index
TakePicture
End Sub
Thank you. And how can i push the button and then call a standard camera app. I make a photo and staying in this activity. I want to save this photo to ImageView.Bitmap. How can I do it?Store it in a process_global variable.
Sub Button1_Click
OpenCam(File.DirDefaultexternal, "MyPicture.jpg")
End Sub
Sub OpenCam(Directory As String, PictureName As String)
Dim i As Intent
i.Initialize("android.media.action.IMAGE_CAPTURE", "")
i.PutExtra("output", ParseUri("file://" & File.Combine(Directory, PictureName)))
StartActivity(i)
End Sub
Sub ParseUri(FileName As String) As Object
Dim r As Reflector
Return r.RunStaticMethod("android.net.Uri", "parse", Array As Object(FileName), Array As String("java.lang.String"))
End Sub