Library: ACBImages
ACBImages creates a memory Storage for a list of EncodedBase64 images.
Public Methods:
Initialize
Used to initialize the class.
AddImage(ImageName As String, EncodedBase64Image As String) As Boolean
Add an StoredImage to the Memory Image Storage
Name As String
EncodeBase64Image As String
DecodeBase64Image As String
Image As Bitmap
URL As String (reserved fo future use)
You can convert jpg/png/gif images online. Access http://www.base64-image.de/step-1.php or
use http://www.sencha.com/learn/how-to-use-src-sencha-io/
GetStoredImageByName(ImageName As String) As StoredImage
Restore an StoredImage object with an added image.
Found(ImageName As String) As Boolean
Use to test is an image was added or not.
GetImage(ImageName As String) As Bitmap
Get an image as a Bitmap.
ShowWallpaper(actv As Activity)
Show wallpaper. Automatically detects if is landscape or phone mode.
DeleteImage(ImageName As String) As Boolean
Remove an image from Storage.
SetLandScapeBackground(EncodeBase64Image As String)
Set an image to be used as Landscape Background.
SetPortraitBackground(EncodeBase64Image As String)
Set an image to be used as Phone (portrait) Background.
ListAllImagesToLog
Lists all images in Storage
SetStorageImage(ImageName As String, EncodedBase64Image As String) As Boolean
Update an image in Storage.
SetDefaultLandscapeBackGround
Uses default image for landscape background.
SetDefaultPortraitBackground
Uses default image for portrait (phone) background.
SetLogoImage(EncodeBase64Logo As String)
Set Logo Image.
How to use
ACBImages creates a memory Storage for a list of EncodedBase64 images.
Public Methods:
Initialize
Used to initialize the class.
AddImage(ImageName As String, EncodedBase64Image As String) As Boolean
Add an StoredImage to the Memory Image Storage
Name As String
EncodeBase64Image As String
DecodeBase64Image As String
Image As Bitmap
URL As String (reserved fo future use)
You can convert jpg/png/gif images online. Access http://www.base64-image.de/step-1.php or
use http://www.sencha.com/learn/how-to-use-src-sencha-io/
GetStoredImageByName(ImageName As String) As StoredImage
Restore an StoredImage object with an added image.
Found(ImageName As String) As Boolean
Use to test is an image was added or not.
GetImage(ImageName As String) As Bitmap
Get an image as a Bitmap.
ShowWallpaper(actv As Activity)
Show wallpaper. Automatically detects if is landscape or phone mode.
DeleteImage(ImageName As String) As Boolean
Remove an image from Storage.
SetLandScapeBackground(EncodeBase64Image As String)
Set an image to be used as Landscape Background.
SetPortraitBackground(EncodeBase64Image As String)
Set an image to be used as Phone (portrait) Background.
ListAllImagesToLog
Lists all images in Storage
SetStorageImage(ImageName As String, EncodedBase64Image As String) As Boolean
Update an image in Storage.
SetDefaultLandscapeBackGround
Uses default image for landscape background.
SetDefaultPortraitBackground
Uses default image for portrait (phone) background.
SetLogoImage(EncodeBase64Logo As String)
Set Logo Image.
How to use
B4X:
Sub Process_Globals
Dim oImages As ACBImages
End Sub
Sub Globals
Dim imgLogo As ImageView
Dim BG As String
Dim imgChat As String
Dim imgUsers As String
Dim imgYoutube As String
Dim vimgChat As ImageView
Dim vimgUsers As ImageView
Dim vimgYoutube As ImageView
Dim btnDefaultBG As Button
Dim btnMyBG As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmMain")
BG = "/9j/4AAQSkZJRgABAQEASABIAAD/2wBDAAYEBQYFBAYGBQYHBwYIChAKCgkJChQODwwQFxQYGBcUFhYaHSUfGhsjHBYWICwgIyYnKSopGR8tMC0oMCUoKSj/2wBDAQcHBwoIChMKChMoGhYaKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCj/wAARCABkAGQDAREAAhEBAxEB/8QAGgABAAMBAQEAAAAAAAAAAAAAAgEDBgAFCP/EADkQAAEDAgEIBwYFBQAAAAAAAAEAAhEDITEEBQYSIjJBURMjM2FxgdFDU5GTseEUFSWhwTRSY3KC/8QAGAEBAQEBAQAAAAAAAAAAAAAAAQACAwT/xAAbEQEBAQEBAQEBAAAAAAAAAAAAATFBAhIRIf/aAAwDAQACEQMRAD8A+jm7ogryRuk7tudyU3VMJ3ZuM4FNxdBu82cPoiJzzI+CqoYPV+aeIQNam6PBGpzDeQqEqotbGQmiCwxVHeiariHcYgwRKqYl2+3lGCqozekU/mFjGwMCufq/1qY0d4bylbZSY6U8rp6uLImi6Y4p4z1VT7Rg4ImmpfefBVUIXp+KeJLRsujyVBVVOJMlZjVW1RstvxW6zFdOzge/gFmGuNyY4kKJvABBngqiM3pA3Wy8H/G1c/WtzGjbdpnGV0jFQ8npY8VXVMWEzRcPFPF1XTg1G98/RE00nXLvBVESOzbOKeJzDLfNUqBhvFkRVZVkMHOVq4IDDtXnFEpAkguxiQVmk6gIeO4JuiM1pBH45u0OzauXrW40psO9dWEPHXE8bquqYsaB0Z53TMHVdOz2+aJprpLieURKkssKYunIOi0QSOaoRpwXFER1J1RGKbgg0toHGAUQ0CbnlIhH6VrzDxHJN0Rl9IYGXiZHVtwXH3rp5xpTeLLs5udBqTe4hV1cW+ydHetcHVbI1wszTXG4tyUnDsxPcniSwTcmFRCy5PciJY7DilA1twBzuqKi5uqSPD1Wfw/qx+9PctXRGZ0h/r22nqxxXH3P635xpS39l1YQd+FdSwnq4WuDqumNWpcWWZpruAHcpEzcbNwRCeDqGg6otx4eKk6mYcfgiE6t2creibggMO0fFENFx2jzkIJVZ1hxsmiM5pAIy/8A4C5+9b840RwJ5rowl/aTKrq4bCNQibJmCq6RPSATKJppE8e5QQbMbxVwppg2GFwmCoZMmLlEJVCQ0C2KaINJsEzOPFHmGgSATcbwsikqlnY2hNEZzP5P44f6D+Vz9a35xppixxldGAqHrW8lXVDG4YGKZgo0d5p7kQ1EEyByUiMdHzwTwdQw/CVQuoxrwiKm8QJWqIimJciKqiBrHDeF1mtE/tPJN0RntIZGcIEbgXP3rfnGjedo+K6VhDu0Eq6phtjVIWoKro7zQsQ1JgT5JUSOzjmng66ne03VFRZF+aIVtQS03WqINEyXElHk1U8c43gslYRDrXtxT0M3pFbOMSNwLn71vzjS1ANZdbHOIcAKgk34IumYQOwf3SFdOxaScAUQ1LgCTe0KqiSBqNjCyeCJpNAmMVSKgwAVJBRNNw3wWi/EpoFhmYmJKIUPixwmFVQnQHHwSmd0hA/MLidgLl71rzjRvAvgulYBwmo2Porp4Qsx04J4OjR3224IhrnxccIVVE4MAGFlcXU0rE+KYKNK9SeCJppujVAPPFIRTF0Q1W6CBHMIJvG1ysLrQZvSN36gMOzGK5e9b840jzIJJXS/1gXjrByRdUxa0ktMYX+i1ArY7bZCJpcRNu4KqIHY4cFBAsDJ4qKKe8ERG+/xWgLJNUicCjp4LrPiLCCqk6mIOJhNDMaRH9QE/wBg/lcfet+ceLlWl2caeUVqYbkxaxxaJp8iRzVfV/TPMVu0yzmQNnJvln1V91fMJumWc4Oxk3yz6p+6PiBT0xznsnVyb5Z9UT3TfMN2mOcgdzJsPd/dX3RPMSNMs56o2Mm+WfVP3T8QW6Y5yg7OTY+7Pqie6r4jhpjnIOOzk3D2Z9VT1V8wn6Z501d3Jvl/davuqeIFPTLOfSnZybEez+6zPd/T8T8B+mecw47OTYj2f3V91fEWO0yznbZya49391fdXxHDO1fOJNbKW0tcbOy2BA80W/qk/H//2Q=="
imgChat = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAANoElEQVR42u2ae3BU1RnAv3vuvfvKJtndvICQEEAGEJqIYlEhGKkiKgpKreKj06la2xHt1JnO+I9tUWzxURAB8QE6WrW2Oq31BdXpiGBVUgdpeIW8n5vXZt+vu/fV79zdDclmN9m8XDtymMO5e8/Zu9/3O9/3ne/bLAPf8cZkWoBMt3MAMi1Apts5AJkWINPtHICJvHnfneXx95NBtxX6311/qlGTrI13OqcmrvnWA2h4vJzp8wAvK6APRUAniKALhIHJ1YeyeaJURWQyy8BJs2SV8IEIVxRTFHINkVZRJg5BZp1mnfRxY7+5BW+L2CPYJewy7ZkAkhYAqrjLDyaULh9VKlEk4SpPEK6NiFAWlojNG+ZJVFFRW88SBbJ0snYtKwwgDO1ail3rORkMnOLlWcXOMupBWWWedwT0bbgkQMEgCOVbAwCVp7tcyIKwmijCjxlF/L5f5I3tniwomT8PbFYzGA0yKh1dH2yvAcHlHPGZFALtQZGD/oBeA2PWSyEEc4gjyhOdHlM1LhMgahVTCmNEAKg8LwXdd4AibSUsUzijajEYiqcDW7YFgCvGLXXhfiUoa5wbHSN9oPjaIOI4DeGuExBsqwFfw7EhS/GZQNB4RIUHR4CHLicPvhAL+eaI38BKbzAMbG13m7pxaXiq3CMlgNqHZ6xEF36bIUxB7vxZYFtWDnyuFe07H5WfAVHXZYY/holdExte83hhwZ6N7ynA17jbvdUQbP4cvLWHIYTWQgGwHAuEQxgcAYwTYHfw0NHDgoqtwBQ+ZuTlu+sc2aco1sm2iKQAah+e/gYOGy0LSqGgaikQYyEqRBUwnH0LwyR5DBO7TDJH1zNZCHAanhNmAP1cUEUvhJsOgPfYWyCglVAAWkfLYLB39HHQ0UUgEMT4ohfrOSLfi+5xBJ8mIAh5SgA0bCl5F4VdO3PdKkY/Hc2cFMd2MpmiCfcGBia99VwJDgiELwU13APBmhfAd/IAGpdPA8BgYCGEgX4PA2caWXB7MQobhaPAqLd1+4ytCCE8qQCanyj7DBhyaenGawgxTkfl89JXJuXc4PtM6jn+PLSO2fiZFhDb3wdv9R6Q/XYNAIMBFl0RHC4GTtejRQRU1WYQ3rF7jT/Fd/omYg0DkrTvmPerkDu0be5d69DkZ+JM9sgCj3UulcsMmcORoHvoKhDIXJDsB8B3ZBso/g4NQDyFauskUFNLwMjJASMn3trrN+wfL4QBqdD0xaLKCzjz+eV4t3CoUONSJmEuVWxIZVEUhH4JWsUMEJteB//XezFm+GI5JEZDTKFqGwm02RnVahQ+6PMb1o0nQGqf2LVn4d6gK3jXnHtuwlfo88CmIXCyQJcM2Dhiw+A5Fk8T/TJUmofgV1swaH6sAVAV2lVwOBn4+jSLEitOi0G48OpdDa1jBoDm35ZVNqPEeukKfGWdfGXG4zKJc3wZgKESFNdR8H7yIMhBrwaAVh5CRIWT9Sx09RPFZhLuvWFP3d4xAWh+fLZUWLWUNc1G81d1sZkUQo00N6r/T9CdGJTNdAVaRSEED2/CfOILDYBCQcgqtPcQONnEqSad9OzNL57elDYAPPfV+b+8FVQHHriWWdptZqTzfFQwCcpMtjvp56M1XAZiyxvgOfjkAABqER4vgS9reaw15C9u2XvqsvQBbLoZoLEBz2YTqMWLkTKXVAAmlZl/U7Ehvp5mpKZVoHgbwbn/ATwpPBoAFRNUrFKhulaHmaQyKgTtcXWbZ6plG6qAD/mxUsFOOFCnI2Xz4DwgmZJD55i0lRn9WWm5E6bWkHMjqJEAuP72IxC9bg0AtQgRS6nqBj1CQQj7UkPQntby5Bxf3rLFZrMRM45AIDalagDUafMQCJ9cgGE7PRYw6T4rGcyEOfNVOOSC8+2bINLv0gCoEkKIMFDdpKevP9340smqlAA6d8w/xRXlLyycj0WO2zX0wwkWJdMwS8uywYhmPlodkGQ9M65nJYOJY/ZqDYLj9RsholkCQsDUiFrC4UYjDYy/w8D4SFIAvc8tesbnCt4/Z8PlmGZ1RO+SBMGzrKAWYanLspCemU+gbhj46DG6U856TJYk6Hn5BpAFRQNAQXiCaAltJvqdw0qMCYeHAVD3r7I0HW10TbtuBZj6+9CJ5KgEiSCoNdjQSizTkgswEX9OaTVjcCcaEywbQXWfAvsrdw8AUPCEaOrTgd3POe94+UQeDP80zAZ3Ljgm6w0VxcsWAnT3nAUwMFIAseUcRtjCMgBjThJlku30eF1mHO5EIeT/AoSap6Hvn3sHANDxSKeRrngFg+JPhgEIvXnJ2vYzHe8Vr60Ek9uJziMmABgEIn5tNINagHkDp08jNiQDk2w3J8GddLMwHGwAx2trIdTRogFQJAX6Qgqc7s1VZIXJw7rBnSgxdO1YcEwkpKLkSsy9m1rOKht3g1QgzDZ0jaIoiAkpk8wy0pkb/iwmZzW6QDZ07LweASiYGwh4rqlwottCk6R9a/fU3T0MgPr3y8saTzQ32i5aQKw2NG9H/1Blh4BIAsWMgdJapLnIqMpMabVJZTUAk/8z8B7cDD2H3gJFjRaKWDpDh8cUuu2lk6ZhAGhzv7jkN91t3ZvLbrsa9I12pBJJrjQZBYQFS2qOH7v/pzWXJhgTltPG5VD3WMUQHf/dUgCLpnlWXvJk6+FhAGjreeb8ar8/eHHZ7dcAqWnEUyGSevdHAmHIAjUH8wdTznDhJtP/R5hjih6E3vcfAtfR9wYkoG6QZxJ2X7GjaVNSALR1PjWvH9W2ld58JZDjzZhgY6HEkZHdgKQAgZag5lijpwa1ijEHxmSWkaY7ZS8HEcNd8757Bm41O80Qkcmn6547U5USgPrXSou9rbsxwjC20h/+AMjJFgA/psk8E9318YCgzYhWYcpGq8jW8ooxKTOe45SzAlNwP5zZfN7AbJs7i/4xpvXa3fVlKQFoEN5cYbF39DRGFMVWestqIPWdAE4fZoOK9qVRWm6Q7ASJPj16jJroV1+mBMsYq6LJgJ39LGbGZmh5fh0I3ScHAEQk8l88CS4YEYAm5p8phO7GQDBsK92wCvRBdIx2zBZpmkXUoQqOFwRtPB6hBiOo2IE3nAUyBkVTraenQe+Hm8FVc1C7fbo3B4y8/I81uxrWjwog3nqeXljtcfsuLqy8AHJLMBWuw5ohIkVBMEoCiCTKJmaUqUDEG8tEoWBXqatQMHQxyw86ZhMsQwhERwk3SY4AI2BpHwkBLN4GvR8/PgDgqw4bFOeEHsQguD1tALQ5d31vl8PhvC93XgnkV14IpL0XcwUvLcBj9cNkgEiAwST+STDFa2aE+fId0PvRE+A6/gl4wjzUO7Jh6UyndcGjXe4xAaAt8MKFlQ6H6yOFJYbpa5eDXoe71NKNuXQkBkKKghjN/BMD6OA1SUGMoPxoIC59H7peuQ68rXXxTFDz/yHLx9LU15Zburp6D3i9/mV5i+aA7bIKIG5/NDZoENQoCJp90TgxIoiEe5MNIgtL+PO3wJnfLwG714jdpCyd2T8Xd79l3ADizfNsxa1ut/dlSVEMhcvLwTx/VhRCvy8GIuYaFIRmFSOYf9LAOQkgFj2qRf/qfVs105+X7/vtyu3Njwx5zERb77YF73j9get1ZhPJwyBpKsCkpwvrCHcgZg2DrGLAPb4BEEVXA8y9D6ofWwknGiUoMocHiqBJBaBZw+7y8mAo/KrPF6gwWLMhb+USMNlyEQSW1p7AIAgxy9BOD3Vo0jRasZX4LVUqEPRbq8JSVP4ZqN55J5z+ug6mmcM71+yufyBR7kkDkAgiGBYqiEkPtJ6AJiyq/OEEa4iP2u+josrFFRwvCAPmD1a0PosV6j9vh+OHHCD7HOGCLGEDHnkfJpN30gHEm3Rw/eGGfx1ZQf/gAg12+verqMKykgRCbKRWQZWhlsGlU2xhPmDE/CArCyAnB0R/CHq/aoDDBz2giJKaZwq/S5OdkeScMgDOv1RK/j4XW7L+coCOvuEKy1RJNFWejSmvxkbl7Gva6SliNkXX6TisIWiWiKPRAKLLC4K9D8LdDvC39YDgDQKn5yK9LvZVm0n4NT3nR5NzSgAE375iTcephv3F11eCSY95QkgYCsCA2VyBBYR+D8iBUMrnaPMREc1J1roUDIPoDYAsSSDgbhOWYNaspcxBRVaOyRHpcd7IH5j9UEskXVmnBEDn9oUe2cDnlNywEsDlPxv4CDpvjglEUYLuDz6DCA2OJPo1O0tUES1bjcmkOTWn42VOx0qqqoqyrPgJIQLLs52ioP2rxfuHGMK04NIe7C7sYVR+TL8RmHQAzqcW7nIE/feV3b4GK2dUGJXVojKasMIRcB46Bq7aFmBYA/ynNQuyeOGQNUv6eUmBjDk1/TkZmGMAaECgOynGuhK7J8Tm43P052rKWBWfEgCBP5ZXdnr6Py1ctZTJXVgWLZboT996XeD6/Dj40FcJobm4WQmE5c9w1++/8fnamuatZfEzIH4oxqLhQNesApWc9N8KThoA9emLLK0eR7u+yGq2VlaA2O2EYFMn+LvwKJJl1MIAXV5dnyekvLnuuTMPTPwTv2UA7I/O+dIbCS2j1zz6NcGuqDo5LBF7XwD2VG0/84dMKzulAP5f2zkAmRYg0+0cgEwLkOl2DkCmBch0Owcg0wJkun3nAfwPtdDYjN9OpfwAAAAASUVORK5CYII="
imgUsers = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAScElEQVR42u2aCXRUVZrH/2+pJbWkUkkqSWXfCEQFE5BGEZRBYRQVFRcUxVZccNpWUUdnPG0j0qd1To84qAzjcRRFR1BbAW0FtW2IyL6FRTQsgZCEJGSvpFJ71ZvvvqpUak0KXNCeuee889679eq9+/3u/1vuq+Lwf7xxZ3sAZ7sNCuD12aNSeE56xydx0/r76Hw7nW+jwzV3v72/6mwb8KMCePPXI3dlZQkVY6cUC+7eTHQeWI8uixM9DgXa+1QOj4/jVKJvi9fHfeDy8isISPfZNugHBUAKkOYsmgS4FJAMc8HphsHZtAOWfZ/C+t1n6G5thoVgdNpU8p5gtGsUno/dPv7Nma99+/XZNu57A6j5vVka/vAtkA5t83eIWiD1UnDJoyEZL4HPYYG15nNYj25C98HPCYKSYCjRQUAETnIoRd8BBe9b2WVXvvFzVcfpAQhrEmAYDS71Eki6SnD6Mthr/4rew5uC6mAgGJA+l4gkhfckQVlpdYnvEIy9Z9vw0wNQsz3c8FjfUmXJQEDKACnE09MI27Et6PlmLXpqtwbdhKD4OEh9PIcqihvL6JtVZ1MdZwAgtMWBwfpJGRwBkVIIiKiHs3Ebuvd+CtvxLUF1dPv0XkEhWG5YvCvtZw5gR7hxcdsg6ggAYXuP5Qg49xZ4HbuxdsluKDl361X/tjPzZwxg5yCGD9IfTx3mmeCK5gHWlXB1b8X7CzfDZOLXXPHsruvPCoBtjxdMPNKmf5t8skAh+E4peGmTzS0subiwbYMM4LudEbhOF0YMIBlXgSv9nQyh89h6UsIeaI3qx2f8acvzPzmAzY8VrHW6hSuzDfZgXu+g6O3x8cgp0qIoz4viMnW4gWGze4bq6IdgWYTOEzX49OXdkqgUfjtr6a6lPymAo3/MW6wxGR4237YMklgE66EqOXqf2velDKTVqpZTmSnFh8JiEWWjdFAqY93pDGCYphGER4HepWg/8g0+WbLHJ/Lev7g8wpv4CTKEPGzy9UmmidduSJ08H3DuoYLfBInPo70BfYep0Dm0ER0HvkBrpyOYztINXpjNPErKNTCalPhe6pAhPIL29X/Eya9Xo7XLzRQo2VwiR8XUIR7S+w6PsOrHqB/6AVSos3J3Fdx6nQAxZ8ACXk8pjEBwtCkzYav9Ej37P6Wq7zO0dTplN2FAtCovCvI4FJSqkZWfFG10IupIo3SZdTO4lEp4OmvQ++06dO5bh6bao2H1g8hLWwjGK/iB1BEcWn/Eh6KczsSBj7lQGPmAUEB7E+x1VbBUf4Te79bJMPpLYBogMk0SSspUKByuHQRGHCCijgqqSn+FmVxJz9PJNYRl/1q01WxD88m2YHWpEr21dLsV30cdAwDmm+uH3T8rj09iM64d+KgfgHzOBXYqPww+m5RRBFdLNbqr1wRLYBYz+oNohtGH3AJFIG5wcYG4XD5s30wrTYsPIyuUyC8MTAKrIdJYDUEwUifK6mDFVOfetWg4uEdWR7dd6fVJsCkEaZfdLbwF/1I9IXWEKqCq5J6bLhX15AKcQf6oteozKJJToMkrhiojKxxCEBDBUDBlEDhFAZXAx9G9c4U/kDbWBN2EDTRF70NRsQL5pUlITRNkGC6XhEPHUtGDCgq6fwXnssDmFuHycMjOFVBcqoA5W4BOz/uflzaRFmOVkEghkepoaz4VfBal8yaauz+7PPybg6kjFMDivBlTH9Dkl4rg/JVpa9UX6Kr2l8EMhK50BDS5RdANGzEAI1IlTBkEAkIuJLdVXi1271kduR6AUgGUjh2H/EvvR2rBCFpZtkCVUgJP91H0fvMXtFd/joajR9HpUKHHLsJg4JCTr0ABKSMrW4hSh6SvhLe30V9q12xGY/V62VVIHT6Pj/NqlN69Iu974YZXa96NB2BB5qVjn0ipGJkEzj/b7dso+m+LvazXlQwnIOWkjkKCY4xwlQAU0UxbgV8dFFecTVvQtesT+eP0qU/CBwGevgPQaFtJDG6/moQM2kiFfDrpQwlnfRWtIb5A/R4yqMuODrsKXuZaJshuUlKuDrgWNUOFP3bo2ep0GBzHv5RXp6fo+ydbLOSaKijUYovN4izvd5FQAJMM55R8nDVlAkU7PwBbYz0aPlwxpB+pTJmyOvS0qUzmaDdhexZEmTLYRobB9S3gORqupLDvse8QWJHGwptlmF7rCYoz69C6bQ0aa48Eiza9xoecbA4lI9TIyFEOqIMFU5ZdKHbAvgOurg+x9c/VOHGgrc/j8uUyCKEAKniVsnrY/TNoNnLlATjbWlG3cnkisSTYFMkGcpNCAuJXSFzjIl0neE2cPo4ME8goMVeuUxhEZ8sOykLrcaxqFVo7HDIQpg6zmUN+iQpl5f0wzOCGPw5ohwHdz+OTF76C3WL/55uX7FkUlpSCqdDHFMDLDz/08qK4xvLqZAhqA9zdDXGvYa5iHD1OhhIFIJbBkVknVh/b8akEJDOQmjPgszej79BaNG35CKfqj6DdnQxrtwuXTlYFMwpX8RJd78Ubc+fK53OWV3ORAOqGzb25gFdSEJSU8sPq3n0Hzva2KMOyZiwml7tZPvY5etBb8xla186Xj6MhlCHnmpsSm3EuAlBQOZHnoYBYWu6HQfFGcgCOr1C3eQU2rjiIKdM0FDgJgnE0fDn3YvmDt4HjhZgAqorvvHaiqDfx8CXJfQ2rV8HedDLMIEPlTGRd/x9RhjpbvkX9shlREFTpGSi8bU4M405jxjFEXygURQl5SAXFmGPY++6T+G5zI26ZrZdjgm/4s1h+z8VxASzOmz5prqagUC15NXJfx86d8hbaMq5cCONF9yBWs+x9Hy2r5kX1D3/oiahBsxjDTlWmrNiGnE5flJJIFdpr0Nf0IVYvWIzLpmrk9MlN+BrL7jg/LoAFpvEVj6WOOU8nefzVYNf+/WjbvCXMmLw5H0JTeBHitWMvjIuKC8W/vhcKQ3LYoLv27qY6Yxe8Lif0xWVIys2nTFIGXqUe3LiEXIdJ7zycPOLCxiUPYvg5SlSOUROAjYMCmJQ8onClecrFWZI7Sb6RrakZjR9/EmZMzqw3oBvxj3EBtKx+hNYJ74VDu/5GaHLyYkrX2dYG28lGWCm12U42yC6jIRgsdrD9GbuOmAaHbyLee/hyDC9XYdx4KnEmfDUogGAqlBx+AO7ePhxfEW5M+j88hjTa4rWODYvQviE8e5gmTITx/MrAGAefXeuxWgJRT0COwut0yhD8QIbJFemQMSC0L+V+2eAss4grr9ENDiAAwf8ekPIqNP41weFX3wy7Rld+BXJuXRYXgK1uKxqW3RDWlzZ2LG2/ijKYizu7/mN3T6+sCuuxo1SYNUBQqWQQfigF5C6qAcOj4FKG0t6GjxfeB2fnEcy8leyZWDUkgLrSO68yC21tSonyPFLNOLHqEzg7uoLXsPxf8ugOeZ8ogKTsbORdOz0hOXORsxtiHINha2yUgbD0zNxKBpKTTwu2jGh1Jc/Aun+fj+bvdmHOvcaEAFQVz5o6RtHXpwMzWp2Ek4eaYG1oDrtusEwQywUUeh2KbpsVJV0WYMntoCuiFWd6elw5x3IdH7lHL7mLPQCFuYu+pBRZU6YNANBOwsGqPaj+4CVMuzoZqddtHBLAgtwrLrxTq1MX0ApCvkl7Qxs6GtrDrmOzz4JhrGzQuu5pdG3976j+srl3RwGwHqf6vq6Oao1m2QBdURE0pJak3ByClhy8Llas4CL6nO3tcJAqDOXnDlynHY+6Ay3Y/PozmHy5DuabNw0JYF76BeXz0soLC2ihLj/Y0m5BS21zlEGaovHIu+uDqP4jz46IWREW3DAdqrS0uAHM2d4pZx0Gg0Fh12pysqFlUHJCXtXFhBLHdZR5sLoq8PFTt6L8HBUq520bEsAkfUnua9kTK0pw4LD8EJvVhoaa6Ho/HoC6pVOoKjwY1Z979VSa3ZCiZ4g8z9TBYDAozo4OUkehHEuYShR6fXQ8iQGAU2TCkzQdb82djHPPS8K4J4YGUEg+eVxeFX612x9JfRKO7DtKK8xzZaMFkn+SvDdQ3zlRhja8caP8YiKypY0eSduoxIqYiNl191phb26WoTAgAsWNfhjMZYLZIIa6uMzfyUanp4uY/sLuwQEEIPhXhRurAa9XHkxX9uy4QS+ydW19jYLg81FuYDy3DKYLR59ZrR/R5+zoJDdhMFpklTB3YQphWzCY9oNMexAfPXMfbK1HMOvV6oQA7C2dPa1EONakQ3evv1q76Hmo8sYlBIA1d3cjBcP58ovS/paUZULetElRM+629qHx0/XQFeYiyZwJXUFoxTh0/e9zuWVVWI/XyyoRyT3ypl8d/B6XfhfWLVroT4Vv7UsIQFXJ7GmjxJPtRjT5o7/jVwugLr08YQD9jb0TbF71sKwGhU6DopuujDm7tpZW9J1ogq25lYqWbgKRQSByoSEgqjTjIACGLpG5lGnYv+EA9q5aiimPv4Z1z909JIAFuVPG3a5VKEtwuFG+j61sFjTjHjhtAPIMkfHNq+fJahh+xUWQdLTQ0tLGCzFnl82otd4Pw3rCvxT3w8iQVcIrVUMAiAiEhstQd7ALm177Ayb+0wv424uPDAlgXsb4UQ8ZzaYi7K2V+5x5l0M1eeEZAehvbJGU3LcZmmStf2xJtOrTaiCp1f7j4CqwH0rA3zstBKNNhmFvaYMqNUWGoWVQsjMHro8XO9TF6OobhzXz70Dl9fejevUrQwKYpCvOeTnn4orzsPVbQJLgNJ4H1fRXvxcA1uzr7kOS45DfuOBkhRwzZSgVkNh7c6pCIfAERxtmnJVchYFgQLykFgaj32UU+v4fdUIgKLPhUM/CyoemonDs5ajb+eWQAAoVydrjxbOppNxRQxGNZQI1nDoqcNLPh5hzARQZ5WcEwLZjKTT178YHwMU5Zo0pRRQCs6qGJAhw2x2wU6FmpVhla++GoBChy05HkskIDW08nXM+Gn/lSjn4peYPR2f9ocEBBCBIZb+5EVxTB2DpAzx0E7cnsPfCJ6ngThsLKaMSYu5YiIachAA4a/8G1a4FAwYGlRrP8ATghNzHZrHR1gdrey8MZiOM+f4feeyjluPzRQ/D0nwcXrcrIQBrsi+uuEZfMYyH1Q702CgVuPxq8HgC+wEoHt4IT8aFQGYlVZ/jaK2gjw2gfjtUmwLvErhEZv70AIT3D5z3lP4Jm/9niZwK5UsTAFBI8bNaV5ydknpBOdSZqf7fNZ1uoM8BGQr5XzwgLkUuPFkXQsi+AKr8iPph+fiBwfFc/IEPpY7TuKYj4z7UH+vEgbXL4XHahgYQAuIptaD4Vw8PrSItGcaRpUjKy6RiQ+M32O4kILTReiESQui5I2UMfKbzoSy5DOKam6IfxEbCB4D8COqwZt+OE81K7Fi5CBLFhIQBRMCYoBVVr3t5FLs4SUwuzoF+eAHV5OngWHBiirCTm/TaA+4SCiJaJfD64j9MVkcAShxZDwkqRB127ShYsm7H2mfvTswFEmnHns57hue4uV4OGdAouZQRhTIQRYrO7y4MiNXhdxnmOqEQwoAEzn1x/kESdJcAkISyRkS/oRTWcxfi/Uev+OEARKijQCWIS+jWl3g4KVmZbkDq+WVQ55og6vrdhVRhC8QPdxwIoSqJq45QIHzi6rjO/zrsRwEQA8hMBS88QIF0jEfBawzD2Ls7WuzkmALu4vG7SW+87BJxzrbTBhIOwD75XVS98pScCX50ADGAzBM5/jdU2ZVwGhWfQq4iu4uRvfaS/C7SHz+crsFjBzv3DRY/+oHQJgxAsF74Iravfhsndq//6QFEwGB/Evi9yAtXSxQ/lOkpnOwueSHuEppu4wbTkHNpkH+pBjJMz7A5qG1y01rgv84ugBhAZtLuFoHjJ0lKMSWZXEVPLiO7C5WyMgxHIH6wlBsLQiSQWK30KvRlTMB7f3jo5wUgsu17Mvc/PT7uhiQlMlTJKs5QXgx9sRnKdPZegLlLSPyQs4t38JTbn26zRqOnbA4+ePqunzeA0MZqD5tL/Bcy+xKN0pesMafBQLFDW5w9UIyFuosnfjGG1JHozL8DaxbO+eUAiAFkptUlPqbkpUql6BUN5xQjuTQPairGeJViwF3kCtURDiFjEjqTLpEBwP9fwut/cQBiAHnO6RFu4TkpX2NM4pNHFJG7ZENlCrgLS7csu3gJTuEz2L7iJRzc8BH76kQCsOkXDyACxgTa3Wl3CzPUCp9RnZUuu4u+JBu8IMBiHYPVz73ILq0l40vZwd8VgMj29aOFT/t83G81Sm+6oBTIIwQcPqXZRsYHf8/7uwaQSPt/AGd7AGe7/S9zNX65PtI2DQAAAABJRU5ErkJggg=="
imgYoutube = "iVBORw0KGgoAAAANSUhEUgAAAEAAAABACAYAAACqaXHeAAAL2klEQVR42uWaC1Bc1RnH//fevftelgXC8lqeQUJIjM+AY3SqqIHYceqjVaeZ2hlfqc5obdPGWu3E+OzDcfqw02nVaus0ra2ONhpiFZMYEwIhL9KYEEhEkATyWF7LPu/e2+/cu7CEQMFkL4vjNzk5u3Duuef77f/7vnOWy+Erbtx0B/7r7vLLeU55NRzlC6g30I8UjoNkFOQBau8XpfkemffEsY5kO6QLgHfuK13bHzDdZjZEkWkPwkQ9s5AkYDhswCm/EZLMw26UIlZROmIRo69e9esjzyTbuYQAeHtF2aq+gPHZ/NRh5KQEJh3HYAwERRXGQNAIAy8zIAOiIDeXpPtWkjr2JNvZswLwxvcq5PzyVK7iMg/8pzJwcusb05qYwfD6TWrPVJJqCUdJQd1mg/yXXKf/OQLSn2znpwVg72MFysIHbwVnyAMsNwHGXESObkSgowHenesQOvHZlDeZSB0Ok+SnvsFtDz5+yS+6tsxaAAcfy1bKHrwNMF1Aoyn3cTZAyKIU6CIYHiiRIQSPvIfh9q3o27cJcnBwypsyGAyEl4AwdThMEdlqjPaIvLy2wDX85Eyq4wsAuHDM8DG9QCD4bK2JbkS9ezB8cD0GD27BcMfeKRcgydxoqJyinqnDKkYDJoPcTGCeufL5T+tmBwDjInV48/4+bGo8iVBERnqqCE+WFWXFDszNT6FfGwGDh/o06vOhSD5Ejm3HYMs701aHVlVMY9WhkDqOCZzyFpXanyZaHdMHIC5EICjjhbUdqvPjzSTyyHGbcF5hCoo9dqQ5CQafpgFh6jBkQB78BP4Db6N//0dfWB2sMbMYogFRUFoEXl59/e/bNswcAEMFtu6mT7+5b1oTx9Vhj6uD5Q6WTLkMaiLCRylMWutxsvHtaatjbHWhUFHMotRLleXN2hfa7tcZQDnqt3uxfd/UCx1vcXU4UJxH6kiNqUNwUyMghiwo/k4E2tejf8+/MdQ+9ZaBqWMkkTIYbCPmMEYCPIcWhzmy8prfHP44sQCEMtQ39hGAobMBfZpp6rBoucPjIBgj6mDhQuoAOdSzBUMH6uHdtQ7S0NRhP6KO4z4zQrIIlynQfcMfDuUlDgBfSgD6sf2/vnMGMNbi6rBr6lBzRzrBIHXwmcSCkqmf8k7XNlUdA5Q/JjMxxYas6yoxEBCx+ZW9EKSg91svHkhPDACuBPVNAwRgOKEAxltcHXZNHcyYMoRsrYHOHceb4GutQ/++zaMbsYyqBUivXDA6Tzgg4fXVHyEcVm6/868tf08AgCICMEgA/LoCGGtMHUV5FhTkWlBR4oTFLJAqHBoQ2U4loRzywF4ooXoIwudnXN/41iG0NhzdesdLu5ecOwAUoH7HEAEITHWJblaUa8bi812kDLu2cs5EMEqJ1EL6yFsA39rTxn/wcgs6950AKWBSP6cPQPGgvtlHAIJJAzBiF8xz4PorM+PLZyCsS4Hgh9Qa4OsLYsvfPsGxdq1kJwaAnEsAhrF9fyjZ/qs2r8iKm6/JinlBboikBNGD3a8/hP2bO9UcMGIJApBNAPwEIJxs30etamEKqqvSNDcM2ZTwivDag7efMS4xAKJu1O8MEIBIsv0eNZPI4f5bcyg50inVkINAoBBrf/htfQAo0hwCEELjJ7MHALOllzlxyfwUDUCwWEcAkXTU7woTAGmqS2bUqhbYUF3pVM8YgWCJngBcBCBCAKLJ9nkcACuqFxMAPgWy7Ra8cudlOgEIOwmAhMYD8lSXzDAAC6ovTdHepD+Al7+zSCcAIQfqd0cJgJJsn8cBMKP6ErvmSsb3dQQQtOH9nRHsOCQk2+fTAVSYSAG2GIAf6AggYEFd4xAaDggwm63J9nsMACMpwKa9mbNSTwAmAuDDBmrOlNRZA6GqQkT1xRbNlcwf6wjAx6FuRwgbmrTjsMlkVkFwHJ9UAJXzGQCT6grnflg/AGhtx/ruXGzYET8M8TwPq8UGq9WWNBCV8w2ovsiongc49yM6AtjdgrrP0lHXeqb0kwmicr5AAETVFS7rUR0B7NyLuiOp1FImHctAmIwmAmGHwSDODIByngAYNADZP9MRwA4C8KlTbdMxQRDUPGGhZKknjMpyDtUXChqAnNU6Ati+h0KAFNAxPQATwTCKRhhJIYkMk8p5IAC8lgNy1ugIYNtuDUBn6jkvWiRFiEajCoS95gXDOQBQCIDmBpf7lI4AtuxCXZeL2rkDmMgYDKYUgWBovbbjFHjhNEByVEJUjkKWZUiShCvO51FzqbYP4PKe1hHA5p2o+9ylttlkNYttqK3UtsKc51kdAWxsRl13GrXZBsCKWmrME87zSx0B1O9A25AVv23NSbbP4wCYNQDMmfzndATwnx3q6D8dzsa+AVuy/Y4DuJQBMGvOFDyvI4ANTer7gMzjje45aPKmTHXpjFjtvCBqywNANAIseVdHAO9sj/01hlNbd9CElkE7WkgN3QFT8gCUDKJ27oDmSvX7OgM440pO/RdQBAJhR9uwBe0+K7zhs6/rXxhA8QC1QW09134wMwC8PhmdJyS1n+8RkZUqxNVBL7pDJhUGg9Lus+gLoHBAhaDef2m9nlVgN8VZlD2agQ07h9HbH/92+KqFZuRnGM6cORYuLFTaY0ASrY7aAgJQFHuAYtmHOgJoOkgAZAIQxcc7B3C4K/69gJsUUHPvT4D2d0kebZPfiWB4I0a0+ePqCETP7VxQm99PEPq1+b++UUcABzpHFeAbDGHd+h6EY0+LudNF1Kx6GWh5CTjajKZDIYQlBflzDGp4GA3cxHfmOQoVK6nDetbJtNZDAPL7tPlu2JR4AIdW58lz772R47w+IBhSFcCU4OsPor2VYk9WMHfx1bBX/QjYtAIYPAZvXwidR0Po8UbQ2xdFmp2Hh0IkyyVo+WLCVXCUTHm0DDnQ5pt+Mr2p4BS+lhOrAjfqAKD7dwtPpVxclmafm0cAqNYGCEIorCpBVUTpo3RioZ1Yxz+A4w2jgEZ69mfqnhME42QYXb0RVRksZBgIBoTBmXBVsVLb5rdOmkzTjBJWLeyCRZC1fHPz5sQDOP5k6ZJBKbjZVpjNuy44D0a3C5yBPsUIORgmIEGCEZbGOR6NAxoDg/W+oYgKpLMnjF6vROGh5RAGgyXSScOFHGQwWLgwm+sIoJRaPNlS/82PEg+AmfKri1JPBAfXSIp8vV8KF4pznLyzxANrQTbEzFQ1DBAhCKEYkIh0hhJG+7Fw6GfevjB6jofR2UtA+iSUZBmwpNz8/xc04jDlEPAxN9j727boA2C8eZ8uWxaRo8uD0chVoaiUZc93w1GcB2tJLnibWXOUqYKFSiA8oRImVAtLsL4I7OwbtJFryPZ8GsbeDu3BDKaWq6nsnqYULgZi+daZATDeTj513l2haGQ5QVkUNnCpzoIcOOcVwJidAY5pXAUyEi6R0xQwOZg4oA0Ng6o6RkxVydLrtJLrOxZfyB3bkgNgrJ14srQgCnmFJMs1pJD5nN1sdBXmwV7mgehO0waNAPHHqsoEShjbtx/2YWtz/GlRt8uAmoep5O6h1rNrdgEYb5+vKTpf4PgHwrJ0Hakk15KZxjOFWErzYMhwavmC5RCmDlZhJlHCnl2nsLdFg7BggRsX3/casPUx4FRrHNhsBDDejj5RvExRlOVhOXotAclwlRbA7nHDTHmEd9o0EAwIyx+s7I5XRMaVQP6tBKsXaFx1OqibdDgM6W1dawofUhR8IyJLi6Ki4MwoK4Qtzw0xj+UPUQsTtkpWYVhzXk6AyNnejWeGzLXrJgLwHgGombUAxhptuwttommFrCg1pI4KCheDMz8b5txMiLnpmjJYVWGrHim3IwqYUwUl5xb8+a5l46e9mwC8+KUAMN46VudfIfD8d6m6LA1HpVyWOxyeLFiKssGnOWjb7dcgiPTasxJDnzXgn48/MXaKA+T8/P93j1kNYAIg93AcdwsBqZRFIcVFQKzudJiKL4JfLsebT/+cIkHdO7D/XiHn75xqzi8VgLHGwkXkTfcMh7lrZCWSGZF5vuVY6jb61Yfk+B+nO8+XFkCi7CsP4H9JZ16byJD4yQAAAABJRU5ErkJggg=="
oImages.Initialize
oImages.AddImage("Chat",imgChat)
oImages.AddImage("Users",imgUsers)
oImages.AddImage("Youtube",imgYoutube)
oImages.ShowWallPaper(Activity)
imgLogo.Bitmap = oImages.GetImage("Logo")
vimgChat.Bitmap = oImages.GetImage("Chat")
vimgUsers.Bitmap = oImages.GetImage("Users")
vimgYoutube.Bitmap = oImages.GetImage("Youtube")
End Sub
Sub btnDefaultBG_Click
oImages.SetDefaultPortraitBackground
oImages.SetDefaultLandscapeBackGround
oImages.ShowWallPaper(Activity)
End Sub
Sub btnMyBG_Click
oImages.SetLandScapeBackground(BG)
oImages.SetPortraitBackground(BG)
oImages.ShowWallPaper(Activity)
End Sub
Attachments
Last edited: