Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private btnNext As Button
Private lblProvider As Label
Private btnBack As Button
Private ivPhoto As ImageView
End Sub
Private Sub ShowPhoto
Try
Dim BitMap As Bitmap
Dim str As String
str=Main.ProviderID
lblProvider.Text=Main.ProviderName & " " & str
If Main.PhotoURL="" Then
Return
End If
If File.Exists(File.DirDefaultExternal,Main.PhotoURL)=False Then
Return
End If
BitMap=LoadBitmap(File.DirDefaultExternal,Main.PhotoURL)
ivPhoto.Bitmap=BitMap
Catch
Log("ShowPhoto " & LastException)
modFun.ShowError("ShowPhoto " & LastException)
End Try
End Sub