B4A Library ACBImages - Memory Storage for EncodedBase64 Images

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

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

  • ACBImages Test.zip
    20.3 KB · Views: 265
  • Sample.jpg
    Sample.jpg
    14.7 KB · Views: 259
  • ACBImages Library.zip
    88.7 KB · Views: 265
Last edited:
Top