#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: MediaBrowser demo
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public CurrentMediaTab As Int
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim MB As MediaBrowser
Dim tabMedias As TabHost
Dim pnlAudio, pnlImage, pnlVideo As Panel
Dim svAudio, svImage, svVideo As ScrollView
Dim lstAudio, lstImage, lstVideo As ClsCheckList
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Initializations
Activity.LoadLayout("MediaGallery")
MB.Initialize("MB")
'pnlAudio.Initialize("")
'tabMedias.AddTabWithIcon2("Audio", CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnson_inactif.png"), 32, 32), _
'CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnson.png"), 32, 32), pnlAudio)
pnlImage.Initialize("")
tabMedias.AddTabWithIcon2("Imagem", CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnpict_inactif.png"), 32, 32), _
CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnpict.png"), 32, 32), pnlImage)
'pnlVideo.Initialize("")
'tabMedias.AddTabWithIcon2("Video", CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnvideo_inactif.png"), 32, 32), _
'CreateScaledBitmap(LoadBitmap(File.DirAssets, "btnvideo.png"), 32, 32), pnlVideo)
End Sub
Sub Activity_Resume
RefreshMediaList
End Sub
Sub Activity_Pause(UserClosed As Boolean)
' Stop playing music
End Sub
Sub ReadImages
' Read the image list from the MediaStore and populate the ScrollView
ProgressDialogShow2("Send...", False)
DoEvents
Dim m As Map
Dim extt As String = "/storage/emulated/0/DCIM/Camera/*.jpg"
m = MB.GetExtImageFileInfo(extt)
'm = MB.GetMediaImageList(True, "_display_name COLLATE UNICODE")
lstImage.Initialize(Me, svImage, "", "Image_Click", "", 0)
lstImage.ExtensionColor = Colors.ARGB(50, 255, 255, 255)
DoEvents
For i = 0 To (m.Size / 7) - 1
Dim bmp As Bitmap
Dim Location As String
bmp = MB.GetImgThumbnailByID(m.Get("ID" & i), False)
lstImage.AddItemNoChkbx(m.Get("ID" & i), m.Get("DisplayName" & i), m.Get("Location" & i), bmp)
Next
lstImage.ResizePanel
ProgressDialogHide
End Sub
Sub RefreshMediaList
' Stop playing music
svImage.Initialize(0)
pnlImage.AddView(svImage, 0, 0, pnlImage.Width, pnlImage.Height)
ReadImages
End Sub
Sub CreateScaledBitmap(Original As Bitmap, Width As Int, Height As Int) As Bitmap
Dim r As Reflector
Dim b As Bitmap
b = r.RunStaticMethod("android.graphics.Bitmap", "createScaledBitmap", _
Array As Object(Original, Width, Height, True), _
Array As String("android.graphics.Bitmap", "java.lang.int", "java.lang.int", "java.lang.boolean"))
Return b
End Sub
