KiXforms Forum Index KiXforms
The Forum for the KiXforms Community
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 
 Quick Links 
Site News
Downloads
Documentation
Donations
Script Archive
Tracking Systems

Ping-Pong Progress bar
Goto page 1, 2  Next
 
Post new topic   Reply to topic    KiXforms Forum Index -> KiXforms.NET Discussion
View previous topic :: View next topic  
Author Message
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Wed Feb 04, 2009 11:57 pm    Post subject: Ping-Pong Progress bar Reply with quote

Hello,

Is there any way to have a ping-pong type progress bar in Kixforms like the progress bar that lauches during loading Windows Vista?

The progress bar I am talking about is there are only three bars that step forward or backward depending on how we code to have it progress.

This type of progress bar is very common these days since it is sometimes difficult to determine the run time of a process. With this type of progress bar, I can look for a process that is currently running. I will terminate progress only when the process stops running.

Thanks.
Back to top
View user's profile Send private message
Gargoyle
KiXforms Aficionado
KiXforms Aficionado


Joined: 30 Dec 2003
Posts: 366
Location: Arizona

PostPosted: Thu Feb 05, 2009 6:11 am    Post subject: Reply with quote

Yes, just takes a bit of "round about" logic to make it work.

Code:

ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 3
ProgressBar1.Value = 0

Function MoveProgressBar()
If $PB_Flag = "True"
  $ProgressBar1.Value = $ProgressBar1.Value + 1
  If $ProgressBar1.Value = 3
    $PB_Flag = "False"
  EndIf
Else
  $ProgressBar1.Value = $ProgressBar1.Value - 1
  If $ProgressBar1.Value = 0
    $PB_Flag = "True"
  EndIf
EndIf
EndFunction


Of course this is untested, and only to give you an idea.

_________________
Parents were invented to make children happy by giving them something to ignore.
Back to top
View user's profile Send private message
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Thu Feb 05, 2009 4:43 pm    Post subject: Reply with quote

Thank you for the response.

I tried your function, but it errors out at line:

$ProgressBar1.Value = $ProgressBar1.Value - 1

The progress value cannot be less than the minimum value 0.

I rewrote the function in VBScript, but the bar steps one after another like the normal progress bar routine does.

I think there is no way to have just three bars step across the bar like that from Windows Vista when the OS is starting. The progress object is not designed to it that way.

Below is the VBscript code that will move the progress bar forward and then backward continously until a Cancel button is clicked.

Dim strCancel

Function Cancelbtn(Object)
strCancel = True
End Function

Function MoveProgressBar(Object)
Dim PB_Flag, nul, j
strCancel = False
PB_Flag = True
Do Until strCancel = True
For i = 0 To 100
If strCancel = True Then Exit For
nul = Execute(Form1.DoEvents(0))
If PB_Flag = True Then
Wscript.Sleep 100
ProgressBar1.Value = i
If ProgressBar1.Value = 100 Then
PB_Flag = False
End If
Else
For j = 100 To 0 Step - 1
If strCancel = True Then Exit For
nul = Execute(Form1.DoEvents(0))
ProgressBar1.Value = j
Wscript.Sleep 100
Next
PB_Flag = True
End If
Next
Loop
End Function
Back to top
View user's profile Send private message
Gargoyle
KiXforms Aficionado
KiXforms Aficionado


Joined: 30 Dec 2003
Posts: 366
Location: Arizona

PostPosted: Thu Feb 05, 2009 5:07 pm    Post subject: Reply with quote

I don't know of way to do exactly what you want, but you could try overlaying a label that you grow and shrink with the movement.

Most likely it is a bitmap image that is being cycled through to create that effect.

_________________
Parents were invented to make children happy by giving them something to ignore.
Back to top
View user's profile Send private message
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Thu Feb 05, 2009 5:24 pm    Post subject: Reply with quote

Basically, what I want is the progress bar that has only three bars. These three bars will step togather across the width of the progress bar like the progress bar that launches when Windows Vista is starting. This type of progress bar also exists on some web sites that was used to measure the progress.

The one in Windows Vista has three bars that step togather forward continously until the OS completes loading its drivers, and than it jumps to load the GUI of the OS.

From what you said, it may be done with some other object that we can use some jpg image as the progress bar instead.

How can this be done?

Thanks again.
Back to top
View user's profile Send private message
Gargoyle
KiXforms Aficionado
KiXforms Aficionado


Joined: 30 Dec 2003
Posts: 366
Location: Arizona

PostPosted: Thu Feb 05, 2009 6:02 pm    Post subject: Reply with quote

To do the image solution, you would create your image file (bars.jpg) and size it accordingly.

The create an array of imageboxes and have the image step through the array.

something like....

Code:

For $ = 0 to 10
  $PictureBox[$] = $System.PictureBox()
  $PictureBox[$].BorderStyle = 1  ;FixedSingle
  $PictureBox[$].Height = 16
  $PictureBox[$].Left = $ + 25
  $PictureBox[$].Top = 376
  $nul = $Form1.Controls.Add($PictureBox[$])
Next

$PictureBox[$].Image = PictureBoxImage()

Function MoveImageBar()
While SomeProcess = 0
  $PictureBox[$].Visible = "True"
  $ = $ + 1
Loop

EndFunction

Function PictureBoxImage()
$PictureBoxImage = "
Qk2mQgAAAAAAAKYCAAAoAAAAgAAAAIAAAAABAAgAAAAAAAAAAAASCwAAEgsAAJwAAACcAAAA
SlJr/0pac/9CSlr/Qkpj/0pSY/9CUmv/Skpj/0pSc/9SWnv/Ulpz/1prjP9KWnv/UmOE/0JS
Y/9SY3v/Skpa/1pjhP9KWmv/SmN7/1JSa/9CQlL/QkpS/1JSc/9aY4z/SmOE/zlCUv8pKTn/
Qlpz/yEpMf9CUnP/WmuE/1JrjP85Slr/ISk5/0JCWv9Sa4T/KTFC/0JKa/9SWmv/KTE5/1pa
e/9KSmv/Qlpr/ykpMf9SUmP/WmN7/zE5Sv85Qlr/UmOM/1pac/9SWoT/OUJK/0pjc/85SmP/
OTlK/zExQv9KSlL/Ukpj/0JCSv9SY3P/QlJa/zlKUv9KWoT/SkJS/yEhKf85UmP/SlJa/zE5
Uv8xQlL/OVJr/zE5Qv9Ka4T/ISEx/0Jae/9ja4z/SmuM/0pSe/85OUL/WmuU/1pzlP9ac4z/
KTlC/1JKWv9aWoT/OTlS/1JrlP9aY3P/Y2N7/2NjhP9aUmv/UlJ7/yExOf9CY3v/MTFK/1Jz
lP9Sc4z/KTFK/1paa/9SSmv/MTE5/zlac/9aUmP/QmOE/2NzlP8xQkr/ISkp/0pjjP9aUnP/
SkJa/2Nac/8pOUr/Y2uE/zExMf85UnP/a3uU/0I5Sv9jc4z/Y3uc/2tzlP8xQlr/Umt7/zlK
a/9ac5z/Wmt7/2NrlP9CSkr/Y3Oc/1p7nP9Se5T/QmuE/2trhP9Sc5z/QkJj/0Jjc/8hMUL/
Y1p7/zFKY/9CWmP/a1pz/1JCWv9aSmP/SnOM/0JahP9ae5T/Y1Jz/ykhMf9SUlr/OTFC/ykp
Qv9SWoz/OUJj/1J7pf9jhKX/OVp7/0JKc/9jWoT/CgoXCgoKCgoKCgoKCgoXDAgKAQ8BC2pN
YwIVBg0LDggMDAgIFx9OMQwTBAg0AQQDFQkRAA8EBQQGHgkEGBMAACgICQkJBAA5AAILAAYC
BgAsAgIAABUsBwwmASwRCA4BABAKMgUBCxgWFgwQDAoKCgoKCgoKCgoKEAoKHgoKCgoMEAwM
DAwQDBcTAgEAAQEFARgIAQEJCABwFDETBiYABQgJEhYBCA4KGAoTEgA7ABQRFgEAEQIRGQ4j
VyYBBwYNAAAOCBgABAkNHQEdBgIEBhsFBBICBRMADAEIBx0MCx8JFwoTAAgLAQsFCAALDhgI
AAAHDBAQDBAKDBAXEAwQDAYCAxUFAAYPAAMCFAAAAAEDAA0AEwxKDgIMVy0MAQAFCAwOKFA7
EAojEwU7CRIqDwIPBQYAAwJhCQAAAQ8INAkADgYFBgIbOgI1BCwqGAkFORQeAQ0DEgIEBRQL
AABLFwkBCU0zAQlMCAEIBwABBwYCPQ0CAAIAAQYCCwEBAiUCBQ0CBkkAHQEzFAUZAgMlDQYA
CA4XCgoMEh8MDgETBgEBBFcAEFMAAQQRACwABwIAAQAJAQsPDjEeZCYJBAYJDgAJEQ8CPwYA
BA8CBAMNBAQSCRAOBQ8GDQcPEgQBCAEBEg4OAAQKCg4ICAcSCCoGPBsGAAYNEiAmGw0LAAEd
CQQGACUVAgYzAgIZAwQEDQkQDBAKFwoMCQsGBgQBDgERFAAOBxYtEAwBEQ8CARIABAQGAAAC
DQ4JCAUBEg4XHwkJAAQHDxQVAwQJDhMxESkJFQEAEAEDBhEAAAkHAwEMAQEHEwsBAAwKEAoK
DAwIEwYDBg0FACgWJgMABgYHBw4bAgMABQYlAA8LFgAOTkoKChcKCgkADQAYCAoQMRBWGAEH
eEoNAAESAQE5Ag8lEQ8AEwQQAAAEBx8MAAkLEQsBDQAEBwESFgICKAkjDiYACRM5BgYBBxEC
bDQKPgAGEl8xAVIBKA4DBgAMCA4XCgoKDAkBBgQFAAUMCQUdAAYDBAIGAAsACQoKChcKTh4M
DAwIDgAGGRQDCQEJDAoKMQkSIzEjDAkSDgYFVxECDwIBAAERCA0BGCgtACUREQAICzsGDAQB
AAQGDwIDAAsCCxEODA0DCQMNARMABwELACwtAQAfMBE/m5ABABgMEC0ABgAQDgxTDAcRBAIA
Ng0IDAABBgAKFx4XFwwBDgEAAxkGCQ8iAg0CBQEALQ5WDA4tEwkJEgQDAhsIAQ8qBzwNDQ8B
BgQdAgIGAREqQQsYDA4ACY0LBgUmCBMCAgQNCSwFCQEqAgIJBAYCAQ8dOw0HCwwABgAFBwEO
EwEAECMMCwAGBDoEDSYBCQABADECAxYIDhAMDioAAAABAAMDGRU6NQ0GCRMxBQcDBQUSEB4M
VwwBAAAAAAIPDzQABgYJCgYRCwkOHhMABAYWBwYEBjQ0BgEMAAI7AAsQEQEPFQYCEQUHAA0G
BxEEJgcRBAAUDwMADhIEEhMSEwEMABgODhMBHQ0pLD8BEwMGEwAFCwADCwwSGwgBAAANCQAF
IgMUBQIFAFAGBQEAFQ0CAgAbBA4JADQBEwITBxEAAQcEAQQTKAkmOygMEQcBCBAAAjMGBgsB
ABEFBRASCR8mEBYEAg0PDQQ0CAEABjsBERMbBA0CFR0AAAcJBA4LGBgJDBYOCgwBABEjCRME
EQFWDw8BABYOCwAAAAYBBgUDKhQCAxkpAAsoAR0GBAMlABsFAyACBQEBEg4EAYABCQkFAAsM
CQAYclcoLR8JPAkOGBMNBgA8BQEHDQETIwwWCQ4OAAQEKQYLDQMDAAQAEgYDEyYiFAMDAoUH
OwcSCAsICAQICgwMDAgAAQsREyoBCRIAABUACAwLBg0JBAUVPwAGAwIDAg0lABICFAIZAgId
AikFAhQUDSIDAiAEEgABEwUMDggHAAAOSxISEwMGCw4QOywDABgDBwQADgMOCAAjCBASCAAO
BAsTBgANAAAACTEEAAAgFQMAWREJDgAMEgkMAAkMFzQOEgcJARsEBgAAAAEOCQIRCgoAAgEb
FCIBAQkNAwMGAgcAAhQCADMCBQ81BQQiFCUCBQIzFBQUAQEBBQEBEQEYAAABAREERQAAGFVv
AAIOCRMRAB0CAgAIKA4KEggMMQkWAgANA2IEBQEBOwEAAQIVAAACAAYIhwwHBQcIGA4SBxIH
CwspBQ0NEgEDAhQzBgEQChAHFRQgZgcDAQMCAw0UFQIDBSAAAgMFABQUGQMDDQ0FAAUDAhQN
BgcpAgcLARYAByUHBwgISwELIz4BAgALHwQEByoHAAEYJgwHAQsBAyo7AQE4BjQPIy0BDSoE
BxU5CAAGCS0IDgwBDgcBUwEJOQcIDgQADQUFFAQBBAAJBAwXCk8AAxQDAwIVAAYzMw8AAyIC
KQUCAw0lCwcBOgIHHQYDAQMABBsCPRRJAAANBwALBx8MCxJaCQ5nEQACBAAAAwU8AAYNAAAB
DA4JDQYGBgUTJgIEAQQNAGUNBQMTGwUTEggABzQMCwgMBw4HCQcRDgsMCAMAAAQVAgANAQUm
CB4KFxAFAgIAAykZAhQzFBkDAgcABAIDAgACPAUVAh0bByUNAAYDAwcBAwIIEAUDGwkLDAgY
CAkLKQAHHwEOJg4HAQAEAAAPESYADgsEFAMABg0BAlkxAAACQgMGEQEECQkDBQQAFgEHCwcH
ABsMBwEHDCMLAAgADwMCPAQPBgQAARAKCggOACUCAwMVMxQDJRkCBQsHAAACAgIAACUCFAcB
Az0VDSkCAg8LAA4AUwAxCwEIBRYREgApCRMSCQkOEwQRDw0FAAseDAkLEQYGAwECOAIMAQUm
AwAVAgMBCQQMDW8EAAgEAQEoEg4ACAgBBwwLCw4BJgAGBAAGAAQCAAIDBx4QChcAAgICFCAC
GQIFYgICBwABDQYAAAsFAAQEAwIpFAMCBREFAgUTC0x/CgsJCAAIBCAEBwUIJgkAAAEGG0EC
GQIEGw0WDxIMCwsNEQYEAg0jAgEGFRECBgUBBjgECwsBATkFCRMHCAsSDAsOHwwKAXEODwkB
AQANDTwGAgQNCAoKCgAlAwMUImwUBQcFBQMPCAY/RRsBKAAABh0CAgAJJQApBQ8AAAYAAQEY
Vx8tATwGFgcBTBIbCAALEhIGDRVrLQANEwYOBwEsBgRhAwQGAAEPEhMGQgADDwARBQcLEwcH
AQABBBIJAQgoDlojCgsLCQkBCQAADQAPAA0CBgAECAoMABMVAgIAAgUHBQYPBwIbAgYNABEE
EQsDAwEVFQICFBUzFAUDAQMCBRMBCxgpAB4tEBEHAikFAAUDDD0UABEBBAcHBAAABAsOBwgE
BgAACwUOAQkEDQ0EAQYTCAsQEgwICAcMBwgICw4HARJMDAkRFgsBEwACFQQDPQIFMSYQCgAC
Aw8GAgEDBwUDBWQCER0AACoJCxYGDw06OBQiPRQZAw0CFSILEBYFAQcAAQsMSxgMDwEdEikF
KQIUIgAIVx4ABAsGBAYAFgQLATkABQABCACBCQEIEygoGAhfIxcfTmcwDgESAQcBWAwMLQcT
HQEBAQkOAAAAAAIGAhFWCgoMAiwDBCAGAA0FAQcGBgMFAQ0IAQsAJgAPBjgGDwUdFQI9FAMG
DQ8YEgUCAgMOByUJFj4ABwcDBwACGRQTBRJHCAgAAhQHAAQFAQYLBgUmBwEFBlgtCQATEhIH
Cz4KWCh1ZwoMBwEBEyMMCBAYAQEGAQ0JDQ0ADQMBFA0DABAKEAcCBQUCDwMDBQYHBAAEKQYN
AwAADAEHBAQAAAQFAAAGGQMPJQIDBgA5DxQVJQAEBQARBR0LSxYADQMGAAIBDkkOBAMADQAE
AABJCAkNAwMAGAEADAwJEAcREwwOCQgBChgyDAEMAQESBxgjCAkIBwEbFhEAAAAAQQIDAhMQ
ChAHFQ0FAQIpBAIDAAcNAAUAAAYTAAAAAQUEEwsACQANCx0YCQADRQICAgULAQcEAwApAAEE
OBQCBAICBQIAAAcyCAkAAQATEwQWEQALEQgJMQEACQwMLVwOAA8HAQwHEBYMDBYSCxMFBwEW
ATIIAQgABwcbBAMCAAYDFQMUDAoQAA8ADwANBQANAgYPAg0GAAEeHwAGKhYBBQE0BAE5EQcH
BgZcKBsGBgMCGT0FDQMCBQFxBgYACAYPBQAHBw8ABA0dPAcACwsLCQIEAQ0AFh8jCAQTDgsM
CwcBAQkAATIeCh8tMgsMCQAHCwESCx4BSQ4BKgUJKQECFSAiFAIMEAMHDQINFA0AAAAGFQUH
DwEGCwEEEwcEBwAADwMDHQwLBQAYBAIsAgINBQIVAxQbOAMNBAINBAEHEwUDFQMHAAcDBwAp
AAIHFgEFAAUABgUtEAELBwcHCQ4IDAkWCQAQHgAMIx8QCgsbARILByo+ARYOAAcAAAABAAMG
Ig0PBgwAAwQABAQAAhUzACACDTwFAAUUOBELAQgIGAkHAAsABRMjFgEGDQMJBQ0DFAICAw0E
ABEPBAUHGwEOCQARABsHBQAAJQABBAcABgYDBBYLWAURCAgIAAEACCgJCQEqAAkIMH8wHx8M
DAsyGBMECAhYDAsMFgkJCQADGwcNAxYJFyYEBAOMBQ0ZAwMDOgMCAhQTBFIACAATBwECFgsB
AAACHQYNAAcAACkFBgICDxQDDQMAAwEAAgAREzkCAiwAAAMFBQUHAAUlAAADAAQARRIOCAQj
DgsABQ4RIw4MARYLDAsbHx8jCBgwCBAOBAAAARgfARIBIwADAAAFAAABBQ4KAAIDBQUEFDMD
An0DBgU5AAMADQAECwwOAQkBLQgWCAspAAIIAQAFBClCCwcEBiIgFTgNABYAOwsLCREPAwAd
AQQbACoRAAkHAAYEAAAAADQFAAABCAcQAQcSEAkyCRYJCBYwGAcBBwkMVQ4HDAAHDgAABAYA
AAcEAQcABQAABwoAFQIRIhQ6IhUGMyUBDxkFAAMCAGsBDwABCxMQCAMNBwEABwsMFgINJgcR
CwMEAQcADgsBBAQ0ABMOFgcBGAkGBAMADwYFAA08BQAEAgEFAAEGDQYNCyMOBxgeLQsODh4x
HwAIBwgAAQEGAQgMAAgBHREFAQABCQAFBgABBQAOFwA5AAIRAgwQBA0iDQIiAAIDDwIHCQME
AQEIFgEGBQIHAQYADA4LACUHBAAAAgcDCwAIBxEHCQgAAhEbEg4oFg0sAA4ETDQlAAQAAxEG
EQcECxMDAAANAQcMIwkIAQwOLBJKAQ4IAAQHSQAHHRgLCw4TDQcDCCkdAAMRAwYPBQ4XAQUC
IjMACgsENgMCAhkDIAIDAwMFAwURFgAFCQgOBQcJAAUHCQgNKREFEwAAAAQmTAkBAQEFQgAA
Aw0FGDENDSoAAAULBg8EBQYEBQsBAAcqAQQABgAyBAA7CQkBAAsBCCMOCAw7BwAoEBAKCSgI
AQgABQ0RAQANAwA4BQ0EAR4AAgMVAwgKMgUCDxU1FDkDIAMPAwADCQUNAQwtAQMAAQMxBgwA
AwUDDxQADw0JBwQAAAADBDUFBA0AFQM9FAUIBgMCAQcENQIHAAAJCwAABAYAGwIBADwWDBgI
EQcOKDIHAAgODgAWEhAwTh8eDAABAwQBAwAFDQ0BAwI/FSkIFxEAAwYAAAoQDAElIgMgAAYC
AgIDBBECDQ0LAQEOBxIPBAsIAQAAABEFBgQEAgIJBjgAIDUDAgMEFQQABwYWBhUdEwUSEAAA
AA8AAAYBAAELAQMUAxEHBwEJCwkLCRgLDAcBBA4BAQgyMBAfCh80AAEGBQECBQALAgApAQsE
EQkeFwwADQEECw4OCAMCGRkFDQIFBQUFKQMABg4BCAsOCxYIAC0LBw8AAwQEDQYFBgAABwII
DzoNBwwGMxNSDQIDAwsdBSwDAwAAAQANBQALAQEHACkTAQEBEwsHDgEAAwERDAEGCRMOBQsX
DAyVIwsEExEHEQAGBAUEAAMBAgUGCwoQChcVMwUFDQgADRkZFAIHBgYAAiIEKBEABxMBBQsA
DAwJBRAJEgcNQgcPAAAFEyoEBhYEDw0EAAZCFQIAAA8IDS0PCAoNABYGKgAWDQAHCwgBARsI
AAsMAAkLBx0WFlgIKAZJKBIHDDIOGHYWAQADDQAJAQ0AKQMCDQ0NAgcTCgoKCh4GEAgQDgMl
AgICNQMDAg0GBAkBAAAtAQAoBAEHCAETaggAIwUHCQEFAAAABgYPEQANAgYEGRkZLhwaIRoh
IRorISscJxoaIRoaIStgLzMvGSIHKgMSCwEdAAsJmAgeAAARAAsYDgsHeggOAAMFAwABCQJB
BgUPAwIZDRsAEBAKFwoeFwoIAyIDAiIDDQEAAgYEERAJFwEAEgkHCBgfSwRHEQEDBgMBAAYA
AQEBBQQANRk3JCcrSBwcQFsaQCFIHCQrGhocHDchKychISccGhokHCQrWyIBAwAWDgFQEgED
BwEdDjIyDFMfDAEABwAAAAsmDSkCGwUFBQMGAgMBCQoKChcKCgkCAgMWDQIlABQBCCYEDgYB
ADk7AQQCCQEBFQIiAgANNQcADQAAEREAIiQcKxwrJxwhQEAhKyQnJBpbIRo3JxokJCRgUV0h
IRwnIRocGhoaJ0MuGwEMCAgoDDEJAQEIMAwHCAgLEw4DBAQAABgJLBQFFAICFQADAyAUCBAK
ChAABwIDAwMVAgUBiAMHAAIFCA0ECQsOBA0LBAcCAAYDBgMCDygADRMHAyQcGhohJyckLxRE
GQIUNAUDOgIPABgMAEIMBwkHEAA2Ni8kGhqGISEhJxoaYHcFDgsMDAgFCAgBIwswEAgABAcR
AAAHEQERImEUFQUGOCIFFAI9ABACBQMCAgIUAgMPKRUDAgUBBgEOORIACQgGCAgAAA8pAgIN
ASwoAQ8GIEMkk0QuAyodAwgABWIEAxUUAgAABhITChgABQwWAQELAQEBBAAFAAcZQy5EGhpb
JBoCCwkIeAhCAQAfDA4MDi0EAAQABBYEAQY8AyICFQ0DBAICBgUCAAMCAg0AAAQGCQURAwYA
AwcBQQsBEwQ5BQQIDAULBQUCAwJBBQAWAQIuAgMRBgEBAwQEASkEERgAEwQCIEosDwINBQKE
BQ0ZJRsABwYGAAYHBxgOCxABHQEqQ0MdGBQPZAAAAAgAGAsBAAEEAAUgAAMCRQINAwIABQcN
IBQEAgELAgANJQIEJQAlAQYHAAADBgAAAQcBCAEVAiMSCwADDwICBwcACAEQDA4WAQhFAAMD
BDgHZAExCAAbAAsvLlEaJGAaGlsaIRohNzYBBgEBAAEWCzEBDBMIAQcLDAAJFGMCAAAACxFM
AQEEFgBBAgYNAwEUGSICBwABEQIADQQlBQAVAgMbFAADBAYNZg4EAwAGAAsMMQEBDQYABgcA
BAENAQAbBAQMDgwQDgAABQcWBCo7BwwMCQEfIjcnKyEnHCEnUSQcISEkIRorIUMFBA0DAwsM
XzIOAQwBCBELBAEvNjdoBxEJAAAMCQAPAAkHBQMOCBQCAgIGDQMpBAUFBQAABQYGBQMFDRkG
DQAEKgcIBAUEBgEBCQgTDwQNAA0ABgkEBAAWAQgBCwcBAQkvAQEJCxEGEQkJABkcGhwcQBxA
LjYvLnMuJxoaISErGis2Ig8AEhcQCgAUGhpDFA4HAQAABAAlKQsBAQAHAREHDQQADQBBFQ0D
AA0VAgQCAwYHARYGAFkAAAEGFQ8BBwYACQADCQMHBwsODAEEBAMDAgkFBwYHCAENFAQABAEH
ABEHAAcIDwEICAFEJCEcKwIvAiIEHg4IABYBAB0CJBwhIRwkNg0KDHwNL2BRISscGhkADQQE
BwkFNwASAAEGCwgLCQMGAgQDAw8GAAMAAh2LDQYHAQEDEgUBAAYDBEkEDSoAAAsABAQJHQEA
BTEAAwIBCwgMTAEABxkDAhEFARNMBQkBHRgbCwwBLhwaQSINAgIAAAQIBwwSBQsdAABDHCsa
SBohJEkKEiRDCBQaJyEnDQIGBgMBAABRRAAFE0cYCg4MASoBGQMCPg0NAhUDAgcRCwARBAIC
AwMCBAcNBg0BBAcFCwEACwEMDgYAAAkAAjkwXgsABwEJQwEEAyINNQkiHQMDJQEGAkQkGQIA
CQAADw0FGSRRJBonHBwcGhxIGiEcHBocGgEvJGgFEyckGgcEBAQDOAIBIC4nBwABBwEBEwEG
CAIDAAMAAgIDAwMFAQEIBAAFAgMEAgIADwIlBgUCBQAAAQMADwEIAg0NGAklEggJHRsHBBgc
BwYHAAIGByADLwIVABk3GQkFBgUIAA0POitIGiQhHEgcQEgcIWkaHBwaJBokJGgkN24MIEMu
ABQABQQLAQsAGiEWDgAKCAkLAQ4LBAMAAA0CDQAAAw8WAAUdAgMCAgYDBAcFBAUAKQIEACoF
Bw0LAREDAAYACAYYEA4GAAwFACcnGRITAAQ1DRU2RBlRXQUWGAYIAAkWAiEnJyduAwAlAhQZ
FRQZJyQ3hichHCskISEaHDcTEQALDwMCGxEABwUkApkEAl4BAAEYDA0JBAAGAwYCAgANBSYA
AAUAABUAAwIAAAMEAAQNAgEGDREAAQcIAAMCAQBQLTIMACgHAGIHlhwcLiUFFA8DFDMvbiIB
EgEFBg0DAQEHAxUEARMBBS0GADoNAwAABgZJCAQ3ISEaGiEnIS5DIhMDFC8BAA03JyQBGwkB
AQELDAsBCAUBDQBBAgYUAAAADSkCAAMABgMDBA0NBAAABgAAABMABwQECwQLEh8IBAsQAQAB
CBIWAAgBL0ZIKyddIgJihAIGAAUIAAAdEQAACQAAAREGDQkRABUEABMGOQFDGVQNNUMaIRwr
WxohJCQgAAQEDS8uGhoZICYAAQsWFwcLAQARBRYADwMPDQQEAAEAGwQLBAkCBmEHBg0NBAMs
AAQRAwEACQ8AAQAJABELAAkAAxgLCAAxGAELBjYhKxwcNxkzHQUGBQAHEwQWJgcACRY5AgAG
AhkiLiADiBohGhpRYCQkGhwaIRoaHBohGhqUAgYULjc2QwIFCwsLCQcJDggHARMBEQACAQMC
BAImAA05AwUGDQ0DRQQRAwYDEwcAAQMECQAAAAcGGywJBAkIDAwIBgstCQEAcQkBBQ0ZLich
HC8ABwAHBw4FAAEBBAcIDgsCHQQGGUY3Ny43Ny4uLlRELishGhwhHCskKxocHCEhGnkLNT4C
BQwIBwdJDAojHxIwCwEHDQQHAAYDADQDAgYGBgUHFAMAAwAAEQwHEQATCQAHARgGBwQ4EQQA
AAUBCAEHHj4JFgAmCwEHQgcHLxk2AAgfBAABBwARFgAAEgEfEhUFDQAHAAUIBxEBDAEOAwMD
LxkiLychKyQALiQkJCchGiAOFgASEwwSCA4KDhISDCgRBQQDBQAADRMAABUABQQCAgADAAQP
BwgIDhMACBEBACwRCwQmAgMABg0GBg4OCA4XCGsRBwcABwUsAAsLHQAFAAcFAAAAAFIIJg8B
CwEGDQYJKDQJDwcgNlRENmArIScrHBk1CSQkJC8AASAkKxwaGgINAAcLBQcmDgoICwsLDgYA
OQAFBwEDAAACBwsHBAIEJQ0HBg0BEkwNBAsOAA4SBhMEAQ0RAQ0NAyUODgsBCwESCAkSAgEB
AAAFCAcATDgFAAcPAA0JHzQSBAAAAQsIAAAeCAIFFgAAA0MkGS4iXScaHBokLi4kaAkYCxEv
JxohIQYACQADADAJHzABAQMFDQQFBAUFAwcNAQIEIAAAAA0AHQQCAAUGCwQJGAABByYRAAsB
AwEBAgMAKgIDARgMRQcMBw4EBhsWAwQNAAQFLAYNAQIVAwMdBwsoDwYALAEbCAEADwUFFDMg
RDZNGQMCVAUFQyEhaSsaLwI2JCkNGichAxELDQEEEg4SAQQ4AwICAwAlACkBBgMEDQUGAAcC
AAMJARkNBg8OBwcHAQgRWg4yJgEDBgQGAAMDAgAHCwcACCMAGAg7CAABKQsJCwAIAQMBAy4a
LwAAEWYBAgcFLhokLi4aHCccSCsaXSdjHBogJ1EZGTcrISFGLiRbJAsZGiQBAAQ5DwQABBMA
AA0AAAYNAA0RHTwGADgpAgMDDQIDDwEEBgMEDwEJDB8MAQgJBAALAA0CEwMvFAYCCwUNAAcI
AAUHjgEYDAMVDQAAAAMvGhoaRDoAKQUFAB02Ly8vNRQvFRkgAyIgDSUCGS5wISsaITccN0Mn
QEAcJyRdAAckAQwAEAALCAIGBDwADwICAgANAwAABgAEBQIFOgUHAEIABwcABwgSAQgBMggO
JgAAAAEIBRkBAgIDBQMEFgMEBR8BExILCwADDQAICTYhHCEuQzwHAEkMWgAvVCAZAyIDIBki
IhQgL0YCIkUvAwAFDyJULjcnHDcnRCQaJEN3UQUHEwELCAQBDQICAgUDDQAGAyoGBQYEAykE
BAQCDQEAAREBCwEBCRIABAEODAEACQEYBwkFQg05BQMVACYBAAcCCwALAAUHDQUHGwUkISQu
BQEFBS4aKyQnJCEhIRoaHCtAKyEcHBocK0AcGicaJxonJC4DFAIVL243Ay5GLiREEi0QDhIT
AQgEAw9BAgQpBAAANQ0AEgUAAiADBAIAAAALAAsEBQEAAwcyDAkOAAsMCwkIAR0ALwcDAwIB
FgMMAQ0ACAELAxYGAQBEGhwZBwUJA0AhQBwcK0gcIRonSBwkGhorSGkcKxohSBohKxwrHBwr
HEgcNxUCFCsnBAMRBwgLCxIQBwEEDQ0CFQQGAwEDBg8CAgMPAAUFDwIpBgAHKhYDCQEBHQAR
Bw4jCxsJCQsACAwdAw0CDw8DDw0YBAsFAgcIBwsLBwELB1QhNh0FAgYHIFRGHBocJBoaIRpb
GiEnJBxAaUAcJCcnIRwnHCsnHCscRjYCAgMFAiEuEwAABwEADDsJABMNFAIDAwUBAw8EAAYC
AwULAAYCDQIFAQ0PAQAbAQQBCgIJCBMEAAsMEgMAAyAACBIBAAUBAg8CDwACIA0UAgYZAxQZ
LyRNIgMDCwEHBQAAAQUCAi5GJF0nNy4ZNy5GQzY2LhkuRi4vAyYAAAkTCwACAhsDRCQBBBEB
AAQADQUFAwQFBgQLLAQICxAjEAwyDAoOGAkMCCgtHwseCwABBCYFAAANAAFZAC0ADQIBBB0q
AwIFBgMDDQUDBgUNGQICIBQDGQIURiccNhkAZQgPBQYEDwMCeQM9BRUAAA8EBD85BSY0CQcI
AA0INgMACQEABAA6KyEuER0HBwUTDTkCAhUFAAUEBBYDAAkMMDAMCy0JDCMMHx8KCh4EBw4J
CQsABAYCIAYHCx8BXwsAAQsGFBQFAgIFAwMCFAIDBwEBGTYzOjMDGRkNGRocKy5RAiksAQEF
ARUGEyUCAwIEAgIAABIGGAYIHxEALg0SBgMNJSAkJxwcKwICEwEABCkNBQQCAwACAQYBCwAF
DwEADBgIPi0YCwkIEB4OCAkMAAcLCQUHAAgpAAwBCQcEAQEHQQ0ABAMCAhkUGQIgFRkEEgcD
DxkvFAMCFQYGFTM3ISshKyQ2AwICHQsqBgIDBAYPAw4ABw8CACMLAwACImgnNyshHJEaMxkC
AhEAABsNDQIHAQEPBQ8NBgAIBAYAEw4SABYSDBYQUwgIC0oKCgwBBw4mEQQ8Eg4OC08QUwIR
AAAlAAAqGwAUAj0CAhQCAw0DFAI6IAIgOg8BRxM4AFI8A0RERCscHEMgNANGRQ81BAEAAA0G
DQUNGRkuK0gcSEAcJydGPQMGBC8FDwINDwMBAIoACwkEJQYmABgBCAEABwsSEhELGDAYCB9Q
HwoeCA4OERMJEQgTCAALDA47CwwpDyUCAgICAQUEAyICAxQgBgICICAUPwYZAwUALQwKIwgJ
EwcPDgIDDTdEBA82LxkFGwQiNi4aJxwaK0YaJzcCGRkgAwQDBQMiAg0CAiA9BAMBASYAAQQE
BB0ABg0BAAQMEAoBBQABBwsYRxAOHx8ICQEBJgQLMF8WAAEbDQkLCxIIAAEbBjoFDQcNGwUD
AAcABSUGAgIgPAgBCQlFDgwPDAEIXCwDAQEDAAUWAgMDBSICEQIuGQI1AyIPAQ0EGQ0UBQUV
JQIAAgIPAgMFAwIPAhEDBAAABQMEEQQRBwcLAQsOCQcPAQkLBwUADBgICBIACDEfBQsMCAwB
BAYGTEcODyAJBwMlAw0lCwUDBQMqBQIHAgIlBhQCBQEtSwUbAQEOAA0GDwIGBQ0CAwMDAg8A
GQAAAAQGDQQAAQMRAgUDBgI/Dw8PAwMNDw0PAgIVFA0DAQYGDQMCAAUAAAsTEQgBGwgYCAAj
DAxKWAxaAQcHDCgBDBYxAQgBBAAdDC1LDxQbDwIdFBUDBQMFAwMDBAICEwAPAi8gAgMCAgYG
EgAgAAQAAQAFDQUCBQMCKiUCGQBGGQQGBQYNDQ0GNgNSIA8CFRUAOAMNAAMEAg0FAwMNBhUE
BgUUDQQCBQAILQcIEggLEggIEQwjCR4eDCMQCwcMGAkLDAkIEhEPDQ4BMgUOAgIdFQ8CGSAD
PQ0DBQUDAwI5AAUFAjoHBiICEAkSBAYDABIBBwAABD8EAw8RBQAZGVQccwMDBA8DBgFCBgUA
AAAEOgIUAgYECSAGDQYGBiwCAwMGAgAHDwANADROCSgBDggHEioBAFMQCE4MHzAtDB8jCxEq
ARIFCwEEHQUNAAECBAMLDwMDKQI/AxQZGRQDAgUDABMCIgICAgABIwsGABEHEgULDQYFEQ0G
AwMFGS8CRBwnBRQABgMgBAADAAMJAQcUBQICKgAABgUNAAQFFAIGAAIGAAABAAAFAAwLHgwB
BQAIAQcMChAxDgsLGDAODAwjBwsJAQAEEgMPCQIEFAIAOQ8dDg8AAgMvDRQgFBQUAgICGxsU
GRkDAAUFAAAWCwAPAwI4AwgCAzUCBQUCAwIuIScaAQ8NBBMABAA2FQETBAEIAgYGABEAAxUA
LAMCAgIDBDgDCQYHEhMOCQsSCwgIAQg+dhABIwwfCAkBEBIoARYACQwEAAEADxEIDAAABQU9
Ax0FBQ0DAgcPDxUvFQUEIgICAAMPLAIABAQHAAkBBwgABwEBCAAGDzogFCUCDwIaK0AuDQgE
CAAAAhkBFgEPHQMVAREAFgIbAgIEDwIZBAQBBg8CAQIFAQABCwcbCD4JCBILChYHIwQqCwgL
EgABAQwIDgAHGwgAWj4MGAEGBAYEDwINDwMFAhkvFSIPLw0NDxUdFDUBAwsBBgAWIwkIRz4J
EwEAAQoOCSUCDRQDDQJGHEBEAAAFBgEEBTYNAw8ADRUNBwkBAAYEBgACBAMDAAEACAQNDwAA
CwgOCwgBEgoBDBgQAQsICBMBBAgWCA4JCgwxAQEIAQATggsBDwIGDRMFAgAlNQYPFQ0DDwMV
AgUAIBUiAREJAAENMCgWEgcLEwkFT04BXBsVGwQgVA01GQ0aHCsvBwQBAAQAAgUGAgYEIgYB
CQAQAgIPGRUDBgYFAAIRBQUAAAERARIHDCgMDgoMGAEMCwwSCwESCgpTIwgMGAhPCCYSCBgL
BQUGAg0DBgMNACAgBAICJRUDAgI1BgYADUwSHQAYCQcwDhIBHQBqBwELBA0FPAMFAwQPIAUE
ABknKzYEAA8BDQATAAIAAQg0EwIFCwACFAITEw0NFQAGAQYHCQwQAQcJJgwMEgsQEAEBBwsJ
DgEIMBAyCh8wVQsMGA4RFgUBDgEHBQAbAgEFAwYMBiwGDkU9LzMPFBUCABgJKhUAAAktDCoS
BwABAQoRMgEFBgMNAjUFAxUGDxsPAydILgQDAw8AAhQVPQICDRYRBgQNBAACCQ8EAgMPBQAN
HQABKC0RCAcwDF4ICgg0AAc8CBsECwwfCwwfHw4yDA4HEAsBAgYGIgUdBhYAAgMFXAsHEgcT
ARQzPQUCAjMFAyAGAAwJBwkMAAgWEgEDDgcYBgICADsDdzoZIA08BQ83ISsRABMAAgAAAAM6
AwALEQMFAAADEwIDAQMCBAYCBEIECQFQSgwHAQsSBAAHCwkBCQcMCDEMDBIQCAkIAQsMMgAB
DDsCAhIbCQw+EhgPGQIFBxgJCQANGQIGAAICAhQCBhsGAAEmBgcJDQIDAQMHCQUAAgEDAx0E
FQMUAgQDN0AnDwMCDwIAEQ0CBQ8FBgAFAAQSDwAAFQIVIgYCIAIDAAEdDR0oDgsxEgEobQsG
AAcMDAgYCwsJAA4LEgcADAsACwkHAgQEBgIdBwcmUAUDIg0FDwASAA0UFAIbAAYgAwMBAABF
CQELEhsHRQQNCBsHCUEiBhsUFBk1FAIGBTchKxkEBAAsExEGBAEVAgIEBQIAAw8qDQMEBAME
DQ8UABEREAQTCQxPMhBMCDQICAQABwwwEBAMHgwLFggHAAkwBQ4JZQABDAcDBQ8EBQAiFA8U
AgIDBQUHBgQLBg8zAhQCBwAZFSADAiIgGwAHAgUADwcLAQADIAICAwUiKgUZHBoVJR0CBgUB
CSoEAwBsBBMqAgAEAAYTAAMRDwAUOBQCAhsGHk4IIyMMIwELCAEACzIOECgMCgwIHhALDCgW
ABsoGwkEAwEBCwUGAAMDBg0DAwAAAAYWAQEBLAgLBDgZAgIPKgMCACoDDQYZMxYPBgAFCR4I
CAABAwkDBAYFAC4hAwAEAgJFDQQFbAQAPSYRAQANAAEJAAMFBAIDDwMCOgMDCAFOChAMGB8I
CwkIEQABCwwIMAwfHwhYDBgICw4JARYMEgADBAACDwMDHQAFAwsAAGQHBBIdAwcLAAAsBhQC
IAUJDwYFFCACKQIpBAMCAgIYDBAJUgEUAS8FAgMGLhkJDgBlBAMCFAYRBQIEBQYLAEUAAQsS
AAkBAAASAgIVFAQjHQ4jMgwMXwwMAQAIMgkQKAEfHyMJEgsBCwkEHwwWDhAJBwJCEgUdBRMJ
BQABCQAHAAIFGA8NCBsJDw4HAjolAgMEJQEDAAABAiUlAg8iBSkWMAUABwSJFDoWEQUaAwIO
IwACGTMZAAQEKg8ADgELAAcACQAADQkLBwAPAAIAAh4PhQsODAEIBwEACRIMCZcOMgwIBwAs
AAsMVRAQFwwIEAsEAAsLBAAPAAUBGBgGAgARFAASFgAKHzIMDw0PAg8NGAEGDwIDAB0DBSgG
DyoACxITBBISDT8CLAcNJUACAgUNBA0GBgQFAAQPDQ0ABxEAAAABCwkHAA4xEwMGAAAHBwIG
BAYDEBIGGwsHBAcRBwcLDgwLNAMEDgwBDAkSChgMDzEWAQUMCAsGAxsdADUNAAMCCyAMAB9O
CgkVBQUDAwAbDwIGPwICAhQCAg0EAAAAAQAGAw4DAAASCwMEGhQDAAYUAmgCBRECBgUCDwEB
AQAMCQAABwEBDQEFAg0HCQgBFgcCAw4IEywPAQIEMhAJLRgJPgsBEwcfEAh0HwgMEjIoEQES
EwEEBAMDBQMNDwMHDQIAFAJJC0cwAAkFAAQqBgcsBBQFAwAAAAYGAgkDBBQCAwIGBiAPAAcC
HQMhBQ0GDxQicy8/Bg8CAg0AAAAAABMRCwEBARMJCwsAABgBCwESAQYACAg+EA8TBgEIMAgK
DAcBCAwBKAoOARELDgwBGEoADQALBwEAAwUAAAABEQAAAwIEBgIBBgImCzgAHRYGLQEABg8C
BQ0LBwEQBAMAFBQ4M0ECDQcCAgM1DSsDAAQUFDMnLwIsAAIVAgYCAQkEAgYmCQABAQsmDwkj
DhYMESMHAQASCxASGAcACQsBVQwBGAkMAAQLAAEHABMICyMJCx8sEggQCwkDBAUDAwMEAAUD
BAABAgYDGUcAHQgVAioSBgINAgMDBwEBCDAJBwkCBAIUFAYDAgMCAhUFHAIJBA8VJC4sGRIC
D0ICCQQAAwIBBBsLLRMwLRILAAULDggIMgwICgkoHwwIDAALCzQLDggIMAwOAQgJCDAIEg4I
DDILDggLHwwAGCYHAwYECwkLCw4TBQUCAw0/AgQRBg0AFgYAFBQCFDUSAhYIDggSBg0PAxUU
AhUUEQIHAAYkNwUTBAArHDY2AgEGAwYEBg8ADQEEAQgIDCNLUDAsOA8LRQ4SSQsMEgwfGAgI
MgkABwgfDgwMACYYDAgMEigIPhIOAAEYDgoLBCYWHQ8HEwcpBg0DCwAEKQcRHQ0FAiUGIgUA
AwMZBA8NAgIUDRsBBDs/AiAdAANBAwElQQANAxwhGi4GGRknNgIEBAARAw0PBAQVAAQmCV4e
DiMoDEpFCCYSAAYLZgcQEAgSDB8YBAsLAQwIGwEOBwAsAAEBCwAICAgRJQELEgsOBwUsMQ0F
CAkJB0kABwEHCwMFOiINGxEViQUDADMDFQIPAAAACQA6GRkDDQ01FAYGDw0AAwIFQEAcHC4i
BQZNNgQLBAEGAgMCAAIVBQsYAUcsDCMfBQkAAQgBCBgwagsSEgEYMCMLKAEHBwEMCCgLBgsA
ABIxGAwBPhYyCAdaAQcsAgIBBgVLH18ABQABAREDIBQ9AgIDAAIlPQI9SxQlOiANAwALOBQV
Aw8VIg0PAAAHAwY9BAkZSBwaHEAuYxogBA0DBAAEAwQPDQICLRMBbQEHDi0ELQ8RDAgICnpq
DCgfCAEMSR4MCRZnBwwOAQqHDigLCQxOIwgJDA5PDhMQCjETAAMSAAAAAAsEBQEHAwEGAwNB
ARQRCAAPFAQAESAUDzwDFQQCDQAbAA8NJRQCFRU1IAQFABUZYxonKxwrJxR9BA0DAgIPDw0L
AgYALREBBDQHEQESAwARBAhPFwxVHwgQFgwMCgwdDB8yCAwIDAELCxIRBwoLSyMLBQwKAR8O
DDsAEQYNAAAAAAEDAw8ABwEFAgYVAwUbAAIFAw0AAwI1BgMGBgINDwAEBh0CBDUFAgYDAQQE
PAAJRisaaSsnFAYNAgIGFQ0RAwICBjgDAgQCAAFhBw+SAhMBCwlLDAkLCkoSEAwfSwwOPgkB
GAEHCQABDD4LFgkICgoeFwoQChcIDggIAQsACAADAQUHCwUJLAMAER0CAzggAyAiAwMCAhUV
DwIABAACBQ0AAgQABg8DAwAmAxQUFBEGICEnLy4ABg8CAwICYgI/AARHAgYDAA8BBgQEAAQC
CAgQCAsBGC0KTggjDAoQCAwMCgoQCgoXChceFwoKEAoXChcKCgoeCgoXHhcKChAODAwAAAAJ
ACODAAkIUgJFIhQiGQMCKgMDBAAAAjQBKgARBhEBAgIDERYELAIVAgICAAAGBA0EBgIEDxQB
AgICAggEAActCWYmAAkODDEAAAwSEBcKBAkACw4BEBAwEAoKChceFwoeFwoQCgoKHhcKFwoe
ChAKFwoXCgoKChAKChAKCgwIDAEJCx8IAh4BAgMCAhUUAgIDAgMvAw0ECTwiFSwECQEBLA4B
CRAAAyIDAwM4Pw8CKQQGDQYRBgMCAgYPJgsJDwcfAQcBDhIIDAoMABMwDAgEDw4QFx4XCgoK
FwoeCgoKFwoKCgoXHhcKCgoKCAwwDAwSAQ4tDAwKCgoXCgoXCh4KEBcMMBMEEgAFFB0AIgIU
AgIUIgICLyoFBjgCKgAJOjEBHhMfRw8VAgQHDwEJEgU4LABsAg8VDz8PEQQLDAATLAABARsM
CQEwDB8SVQx2AQgXCgoKCgoKEA4tDBcICw4MAQwMFgEoDAkWCBIoGAkBCwsEBgsBAUoJCwkO
Fx4QChcKCgoKDBMPAzgGIAICCRY4AxUgFRUUFBkUIgMDEgU0dAgMHhYMAAUCIjUVAAsABwYA
CAQNBgUCAgICBgAFOwsBCQEHAB9KDgwKFgwMXgwMEAoKEA4wBBcTCAEFAAgAEwgHGAEdBhEM
CAQBDAgHCwcBEwcTBAgBR0wJUwwJFgUADgkQCApKIw8VBBIGBBIGARMJDwACAgIGDwINEQAA
bS0YTwsBBRECFAQ6DwAMAQIGDhMSCQIPAQQCAA0FAAtKgiYBAgAFDgYDEkp1egt8EAwOKQAH
CDEEEQcEAQcoGAALH0cWEw4EBwASHigLCgoKEAwBHxgABgARAA0wCigjCAEAAQsSDB8JIjUz
AhMADxINARsAAAIUCVwSWQADAjEOMRIKRQ8ECR0CDUEABBYEFBENAzQNBhEAAAYMABM0DAoe
AQAVFAEsAQEfCwpPFx8BAQEVBUcDFgAHCQsFEhMALQpLAQwJDBAQEBcMEAoXHhcKHgoQCBMB
Ew4FAQcWH35YFiwGBgwHLQcEBE1jTQ0PBQ8AAAABZSwNDwQGABMtEjsBDx4AAhYHDwAWBQID
EgQPBQEAAQcPE1wHABsOCwAAGAkSCQYEDQEbGygSF498DgINAhcOMAsIBAEIABgJAAcHDBAO
EAoXHhcKHgoKCgoKCgoKFwoeCigmAAINACNeVWsKEhYJCQUMEgkTEQIZTQILBRQCMw0AET8G
EyoBDh4xbwpvDAIAewFhCSMBDwU7BAATDwAEAhEEAQYABg4QCwAADgcBCAMFCQMICUsIVU8I
AAYZDAEYCBgoCBABAAwWCx4KFwoKFwoKCgoKEAoXCBcQEBAKChcKEAwIEwAJEAp+gwoeCgoQ
EAwICQkJEgQDDxATBgIDAwIEATsDAA8BLRA7LRI0Aw8ELA4PABI0AwEFEQQJBAMBCAkJEhYI
DBASLAAACQkqBAFCCQsjEBMMDBYKCQEOAxsWEAwYDggMAR8QChceFxAfHggBCAwYDBABDQUI
HwoQCgoKFx4MCAFCEAwKEAoQCgoKChALCyYdAAINAgEXEQIGBgINAAEmAQ0AEgkAAhssAwQi
Dw0bEwAGESkAAwQEAB4BBxEJCAsSAQYFEhERBgMBQQEBEwkBFhAMDgkBAAsPEQsODAEJPhgM
EAoKCgwjCAgAAA0HAQ4JDAgACw4YDAoKEAoKChAKCQseChAKEAkKFwoQEgEJWR0ABQMCARcI
EQQEBA8iAgAAAwIABQACFQcBBAQqAikAABUABQQAAgAFDgAEEQcOAAkTGwE0ABIGAwQIAAkI
MjBnDAEOFhMOBwAACAcMFgAJEAoKFwgLJgsSAAEBAEcJCTABChcKEAoKHhcKEAoXCh4XARcK
ChcMCBAKFwwTBEkLAQsAAQAGCgoNBBMbAg0CBQUPAAAGDgAGAyACAGEEDQwIAA8dAQIVBgkl
BBEsEAwADAwDAAABAwYCAQEBAAoMHxAMCAgEHQkzAAEjCBgHAgkXDAsBCwEMCBMBBQQMEAoX
HhcKCgoKChcKCgoKEAoXCgoQChcKHhcBEA4OFgUGQgABAAUyAQAKCgMEAQAGDwIDBQQAABMD
BAICFAYJCQkREREBPAIGBAACA0ILVgJnCQAIBw4EAQ4DAQAEAAABCk8MEBBHDBMOBgACCwcH
ARlNPQ4BBxYHDggIEREOFwoKCgoKCgAmEwAJJggtDBAKCh4XCgoQChAKFwoJCA0AAQkJAAcJ
BQMOCAoJBgARBAMDAhEAAAQqBQQ5DwYVCQgALQEGBAAABgIEAwIBDQBWAAEIEgkYZAQOAQES
ARsIBwsQFwwMCA8IDAIEAg0CAwJNTQYBBwcOGAEWEgBNTQgQDAwBBwEJDw8ABA0DAAUAAAEA
CB8QCgoKChceCgwQDikHBAMgAQgGCRcKFxEPAgYRDw8VIAUSAgYPDwQEFQwHgQEYGAELDAYE
DQ0PDyoJDA4AawQJAgIFCzwHAAQFBwEBEBAXCgwLBBsPAAEAAwIdAg0IDQgFZggBAQEAAzMz
AQQAAA0FCAAAAw8BBxEEEQkJCAgOCQoKFx4XCgoQChcMAAIAAgUICAwKCgsBBwEEAAYABA8U
FAANBAAAAgQGDwQRBAgMFgsMABUzFBMmBgABCDsRDxEJAgA8AwYNJQEBBA8QEAoKChAXCAgA
BwsHDQELDAcHCgs+AQAGAA0CNQApBQYHAAAACwAABw4QEAwQChAKFx4XChAKFx4KFwoXHgoM
CQAFCAoKHgoBFA0BAgcOBA8HAAIVAlkEAAkACQlXBgEOMR4fHwoABhQPDQMNFAJ7BAYDDQUA
BQUCBAICAwMABQsQThcKCgoKChAQDA4AFhgMAQEYAAMdDQIFJRQUCSoHBwMHBAQLHgoKCgoK
ChcKCgoKCgoKCgoKFwoKCh4XCh4XDAgWAAgDEQ0TAAc5AAABJgACBgYVKgEAGCwPCAEEUAo0
IwkBTw8CCRM/FAATAAQEAzoEUgYNAAACAw8CAgUDAigOeAoXHxAXCgoKEDIFMgcDBwgoDhMG
DQMPBA0lAAEHAQUIDhAHCwsACBMJCQgsBAEQDA4MChAKFxAQFwoKFwoKHhALAAEpEjUBEg4S
ARMEAw80AAATFgBSAAQSChAOACYACEoBCRYRHQECDwABAQcDAwASAw8CAAsEAgQCAC0BAAwf
EAsBCA4MEAoIAQgjDggAAQwBBgACFAIlAwINBwMNAAEAAAQFAAEjAAkADggIDggOFggODAoK
Cg4OAQwKCgoXCgwFAiAFBgAABwEAAQBcAAADDQEOKhFlERAOBAcNMQstOxY5BwEINAAFIgIB
AAA4DwAEORkVBABCBgkLEAcWBgkMDAgAFBMACwsACAcBAAcADA4HKgICBQUEByUCBQMFBAIN
AwcQCBAKHhcKCgoKCgoKCgwIEBAKEAEBBAQMCh4XChAAAg8bCQABBRIBAQQPCxEPAAQFAgAM
AQEAUAETAXRQHgINBQABDwYDAhYtAQY8FSIbAgIDARETEAEQBQ4oEDAfPggBAQAHDSwBAAsB
BwAEGykCAwACAgMFAwOaBgUABgYFBQUHCQcIAQgLBAgMEA4QFwoQFx4XFhYJAAwMFwoeFwkB
ABsJGxMEAAIAADQHASgSDQAPBgkTADEOJg9FJh9QWQINDQUTQT8FBg0JAQsNAQYADyUCBgFP
CQ4WKAEPMh4AI0wEBwwADAgLAAAMAAYCDwIPAAMgAwAEKQcJFgMABQgICBAODA4JCQkJAQkB
AQAMHgoKFwojCA4ICgkBFwoKARMBBAERAgcTEwULDQ0BEyYTFBI0DgEEGAEAAVYQDg4TAQYD
AgEABQ4GBAEDBwEjDw0MPAsSKAx1KAELWh8KEhYYAAcLHwcjChYLBwcBARUDBQM1PCUDAwQB
Aw0BBwAICgoXCgoXEAoQEAoQDjAXCQwMFxAKHhcMCgoKDAkJChcJAA0AAgMDHQANAAICFQIT
gAkCFTojBgQCDAgBIxIIAQ0FAAIiAgVBBAcUCCMCQQwDDgUPDhgjCREBCQ4BAQcBCAABFhIM
AAAMDDEIDAoIFgAAAA8GGwkJCxAKFx4XCgoLAA4BAAwAAAEMEAwQEAoQDgoJDBcKCgoKFwoO
CQQKIwEAAAcFCQQAHSoAAAADAgAAAAEACwQNCVYAclYACQEAOQI/ExUvFAYEAgICAQAUBQ8A
ewIIGwMWER4ACwEMEAwQAAgJWgAMEBcKFwoMBwgYEgcDBQMHAQsJAQkSPgAAAAkICwkIDg4B
CAQDDwMADgwICAoKEBcMEAoKEAwXCgADBREGCAEAAAAPAwQFEQAEBAABEQ8EAw8BIx4AEgFH
cgg7JgQFAgMEAEIGFRkAAA8ABDURBAICBAEECw4WCAAQIwwBCwkOCgoKDAojCAsLARsTKgMJ
CQcBCAwICQgOCQsJFwoQChceFwoQEAwQDBAMCQABCAAOAE0LDhAIDhAMYgAGLAkBCCgAARET
CRUpCAYADgttAAICBgMPAVIEARARBAgOCQ8AFXkPBQECIAIgDRYCFSkCDQIFCRMHFg4BCgwL
PgQHEAoXEAgOAwcIDBAQFxAMEBcKEAoXHhcKEAoXHhcKCgoKCgoKCgoKCgoKCgoKCgoIAAEV
RnAAAhUVAAAADAEOBQgMDhAJCBEbAAw7BEkHBC0SEQMCBQYBEwAJCREJABYEOUIAACUCBAUG
FBVZAAMCBQkPFBVeAQEBAQkABwkLDgoKDAgwDAILCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg==
"
$PictureBoxImage = $System.Bitmap.FromBase64String($PictureBoxImage)

EndFunction


Again, this is not working code, just something to give you an idea. The MoveImageBar function is definatly not complete, but you should get the idea.

_________________
Parents were invented to make children happy by giving them something to ignore.
Back to top
View user's profile Send private message
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Thu Feb 05, 2009 7:26 pm    Post subject: Reply with quote

Thank you for code.

I cannot see the detail information within the PictureBoxImage() function you listed.

What is the variable $PictureBoxImage set to? Is it a path to the bitmap picture? I cannot see it since it has been converted to a string of text that I cannot interprete.

What is the purpose of the $PictureBoxImage function? If I already have a three-bar picture image, do I still need the PictureBoxImage() function?
Back to top
View user's profile Send private message
benny69
KiXforms Advocate
KiXforms Advocate


Joined: 30 Oct 2003
Posts: 567
Location: Lincoln, Ne

PostPosted: Fri Feb 06, 2009 5:07 am    Post subject: Reply with quote

Hi CluM09 and Welcome to the board,

Give this code a spin, it should give you the idea:
Code:

Break On
$System = CreateObject("Kixforms.System")
If Not $System
   $nul= MessageBox("KiXforms.Net Not Initiated. This Script Will Now Close.","Error",16)
   Quit()
EndIf

$Form1 = $System.Form()
$Form1.StartPosition = 1  ;FormStartPosition_CenterScreen
$Form1.Size = $System.Size(356,146) ;(Width,Height)
$Form1.Text = "Form1"

$Panel1 = $System.Panel()
$Panel1.BorderStyle = 1  ;FixedSingle
$Panel1.Height = 23
$Panel1.Left = 20
$Panel1.Top = 40
$Panel1.Width = 300
$nul = $Form1.Controls.Add($Panel1)

$Label1 = $System.Label()
$Label1.Left = -60
$Label1.Text = ""
$Label1.Top = 0
$Label1.Width = 60
$nul = $Panel1.Controls.Add($Label1)

$Form1.Show  ;Displays the Form

For $Times = 1 to 3
  OneTime()
Next

While $Form1.Visible
   $Nul = Execute($Form1.DoEvents())
Loop
Exit 0

Function OneTime()
  $Label1.Image = Label1Image1()
  For $Index = 0 to 17
    $Label1.Left = $Label1.Left + 20
    Sleep 0.05
  Next
 
  $Label1.Image = Label1Image2()
  For $Index = 17 to 0 step -1
    $Label1.Left = $Label1.Left - 20
    Sleep 0.05
  Next
EndFunction

Function Label1Image1()
$Label1Image1 = "
iVBORw0KGgoAAAANSUhEUgAAADwAAAAXCAYAAABXlyyHAAAAAXNSR0IArs4c6QAAAARnQU1B
AACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAA
AAlwSFlzAAAOwgAADsIBFShKgAAAC7BJREFUWEelWAtwVNUZ/nfv7mbzgiRsAoJUVEJI3Dw3
Ie9ATIgh5SUhQKW2SEfsOFi1YJ1OHatFa310pg/bWkUZHWZqK6OIJFBbO47TMpBkk31n84BA
CE0RHyCPEkny9ftvomOdzjhdduafs3v33nPO9z++7z/X8v68eRLr54p1Qj6RUbloT5DRxOul
Yvt28T12n6SOjkr6OUPs1uly1pogY8aEOHFWRu2jcibeIbBYJOOCiGNc5FOnIWIVwaVRDuBW
rHLWZpcL6XPFs2u73D7yFP6SeV5OpyWLxPNeyxWRsU9FLo2Lk4NMxHE+q4xzLxYZ45zjHCdk
3GLjbLwfSTJjdJrMHrbJnTUbLXJ69jz517XXxTSO8LkzCxdIOCtb3vXUC/YdlJdWFcoLKxbI
H6ozZU9VgexaUiU7b66Q3bU58nJ9pvy6KVt+2eSWnfVu2VWXIy/e4pYXGhfKS0uz5OWGLNlV
mynP1ebyvjrxeV+Rpe/WIeXoIsjpOsjHDbRayJlqOIbKkDxYBufxxbAN1cIyvBjW4UrEnyij
LeL/FbAPVcM41oD0nrUoeuc2/A5tImevWSgfzV4Q03iOz16YkSlR10Jp9XxdJgYCsvmde9A0
cA9aot/HtwcewZrgDqwOPYrm8P1YF96Kjf77sT74AFb0PIhlfduwsu9+LItswcqBrWgZvBer
A1uwqXsbtr63A3twSDI6yyF9ebRKSG8NJFoJZ6gEGV0FSO8qgj1cyuu8p59jvwdGtIDG+3uL
aCWQyGKk+lYi/0ALfoO3RM5dsyBmuzBzgWCOW47OypG9JbfI0NAhyR/aCsEmyOXbIZe+A/vY
gzDGH4AVdyJhYhNmX7wLsy7ezd9631Yk0CyX74CB78Kh10bvwJzLD6Bw8GHci70ifm48kgXx
FcPwlsPuXYT4ziJMa89FUkcur/P/YDEkzDFMoIGb+Dubxv9CBfxdhRTvcuS3rmWECfjj2V+L
2T6cc618csM8icyfJ21VlTJ47HUpPrORQJbTmH5jyzhuoLVM/kYdXJea4Lq4it+baeuQcmUT
4j5Zz+/fot0BufINTMN9yBx+iC56TezhElj6bkJCsBwJgRpYIlWMNqN5lADVevk9ygjr2OuB
vaeAlsco878oIxyqgat7JTxt6/B77BfZfXOWvFKXFdO4u+5G2VmVIc/WXydPrC2V1mPPy/yR
Fdz4EsTR4lHPiN1C4BzBOpwoQvL5SqScXQL5Nx1waRlSzzfD+dFKZsRqyDidcPlWJI7ehfnH
thH2GxIfLIKtJweJPtamv5rRZmoPlEGOE9CgguL3CC3K+QnSEc6n5cKIFEJ6imEJ1iCjexVK
DqzHTrSKrArtwIrwDsQyrgs8jDu9P8A2349x93uP41f4q8w5w2h9WA7bKQ+sx7jZkZtJOAT4
YREsH+QjbqQU8cM1SDxZj8ShBiSeaoD9/aUkIpLRBySmDxqRdmoDFh7ZjB1M6ekdeYjzZyKx
swTOzgqmKMEx6hLNJyBakN8DGkkPLR82v5uWA0uA6R0kaF8V0jtXoKR1HV5UwHLlKaZRbBZ3
+XGkf/RDFJ1/CsVHn8Fmpoy9r4kbyTVTy8m6sjIVrSQZRyibXs/kRllXEYLurkACTUKsv0FG
Z4DX+7jB/kqkdTVg/t5V+Cn+KBkEHB/MRIKPc3DzlhCf4fMSIUBG0RIqNU2dYAkXwhHMgzPo
hsH6taoTWPeuw03wvLWWgJnSMrGDqRajjT0K5+UfkWSewHUnnsYW/EOkczEXZySjxUgMF8Pp
q8B0bylmt+fA5SX59GiqlSPJW4NkL+tRo9DP1OxTR9BJ/hLMPVyPon3N+DleNQE7wpkwNJIh
3t9DwFEC7FHAnq8GTCdltC9H8f6WScAWbEOsZuOzzvHtmHvlMWQNPcma+7tYCURCeSZx2IME
4Csn4BLMOZKNGV2MsEpMfwnsfo0wySbItOwlWJUSOiqpuwTXH6pD6d5b8QsCntXOiIUyYWfa
WoIEHCFgOkzBagStwa+I8JcByxhJJkZzjDZj2rnbkH3me6jyP8gUPCCJHZpuCwiCRjmxhMmc
BB4fuhHW6DySDSXjhOoqI6sRYq1p+kvUzd+5jLAHc4/UoXjfJOC5h/OQ4ss0nZbEjHDQUUag
HI6Azkvd/b8Bn2aqvM86imUcIWMeW4I50fWofmcLN/impB6hx8mq0ks9VFKJaDRUMgj0KCM8
RGBDBDugxOMhweQhQfWSGSGRfALwYGZHHfL2N+OZqQgnk7SSu0qR0FVFsFrH5aYj1f5XhB1f
rOEvRHinprTBOrNGihDLKD1kTJJInG81SvdtJku3Stohsq12Pz1MvzDZOUhNjlCP+5mKgwR5
nCOdJL28jxoZ112IJEqP1q9opCMlSOmux/w/N+MR/EmSfXmwRDOniIlz9tIG6MSjrGF2VqYz
dT0+pyRm13IKuWENF5gOEX8VXB3L4WltwQsK2B4oZX3EZhLmwj3sW32NqNj7TfwW+8R1mEDU
ERFqZogyE6C+BqmzUdZ2n7aA2jgQcLgWhp+AuzyMMAErWBNwKaZ3N+CGt1vwEAHH+5W9SXYm
M08BNuchGDYa/wWYhGiw2/oy4Bmdy1H0GWBzc7FaL0uBXdB0Xymq9zXheeyW9C56mtcmWbcM
hm8p4rvqSEYExvS1UjpUplRmlKBsPkoLU1uiyt6TMubqbEAWe9+fEHCST+s7y0xdTWc1kwjp
qGSaBssE3cN1pwAbYTc7Ml2f8/L+zwCbnZaEqYER7UVjGTUqWUj1FqD8zaVszncRsErMQnqf
tcpNGP5a1l6NeU9KdzbiA244AwXccAGSFGxAWZobU7mibishzWxvRO7+dXiCrWWKlw7iGgrY
zvRU/VaZc3V4CIS66/9CSn8OmGWggLVBmQJc0NYy2Vpa9KKyZQyjSRqs//TuGpS0TckIpSau
l9rJiBnqxCCPbmzvFKSTTb1ZY9ReZVnTeKIxqKkOtoHOyCJmRClmdSxDycGNJK3XxNXBeSIk
PLNWqxjRcsQzOzTVdU4H5UqZ+rPGQxVB1/gcMPeT2t6Ewv1rJ2tYAvSsin/MowdpHbVk1Vvx
JFnV1V7KriqH7WAurN2MdoCNiOonmdMSYi2yEzK1l2B1Te2O9JqdANQB4i2G60gDPPs34Gmm
tOtI/uRzGpBwBSx0iOHnc5xPnzN8DBabFSG767wGy8ZgFmkvYLabjLDLu8I8PJi9tFXTmd6N
ddTMmMEazWtbg5+xFXR1liEu4kYc+1qVGIkoifFwTonSQ4CVaTepCowmFUKZVRsOR6gQcdoe
EpCrs3EqwntkJo+ChilzzJbeSraMFbCxHTUoYeacIc4TUpJcZM6r8+gBwiwRPVBQCdJ9q1B0
cD05RntpPUJdjZGlU7rr4D6whjX3qqR5y9hIEHCEBKXOjPLw0LsEFnZTBrVZRyUpg/Vt0XXN
2uXGtQ+m4yVYBlfXMniY0k9jj2R4ea9qunnApwb3VMJGCTLnodmY6oZqPdtNnddO0GYjoy8A
+jQrqpDG42HBwXV4zkxpFf2rMS6gffHC1lXUzd2S1K5Ry2aqcpP0toQoT2E2KCH+DrP70lHT
jbVmGjVTWAIK2uBcwvScRpZ2t63HY3TgNLaWPHCbDG7WsR72WbuT89ECWjZKukpSPPQH9QWA
/sfveo0ZMb2riQFZO/nGw/TC1dhAKaZRb7PfbuZxjhvsZmr1u2FXWepjSvUxwgPU4H7toUk+
/XpdNXRqXfPgQLB9xbBzLpXIVH8j8t6+zQScpm809LmjeuhXHdbDvjYdOp9GcuoFAPtzPYRM
Rn7qP70WrcZ0/3K4D7bgWQWsL76uxgyebV39Tch/bwNT+g1x9VTDOeRB/EmS10lu8GQjZLgB
tuFFsA8Xciwz17PxBZvtpK5dQePh/lQlkk4thjG4GK5evqF4dxNJ8HWZ2cuaPcVMGWGm/LPO
fGHnOMHnOZ85p84ztJgv8aphOVVhvtxzDNHpnFOvyfF6uKJrUPC3DYzwfvkPLavG4iT0PFgA
AAAASUVORK5CYII="
$Label1Image1 = $System.Bitmap.FromBase64String($Label1Image1)
EndFunction

Function Label1Image2()
$Label1Image2 = "
iVBORw0KGgoAAAANSUhEUgAAADwAAAAXCAYAAABXlyyHAAAAAXNSR0IArs4c6QAAAARnQU1B
AACxjwv8YQUAAAAgY0hSTQAAeiYAAICEAAD6AAAAgOgAAHUwAADqYAAAOpgAABdwnLpRPAAA
AAlwSFlzAAAOwgAADsIBFShKgAAAC5FJREFUWEelWAtwVdUV3e+fL4SYBAStVAlJ8OXl/yUh
hASEVAgQkljtB+iIHQerlqrTqWO11FqVzthWqwWU0dKprYwikoBO7ThMy0iSl7z/e3lJCIRE
ihH8IBjMZ3XtG+xMf9P2kcyec9+595571tlrr73PMe3Em7LryG/x3jUTctbxiYjpUzHJpFgw
IRCzfG6xsLWKZcosJkyJmC/JmF1EEiwiVl7AJvLZpMw+d16W9yXLb66+3+TetEOSRk9JysQ4
H5ziv0lMCQ69FPvYJMcUeT+JnwIk/bPPxTHukDFTilgnzZIydVHGpz6W0ZmT8qHDIfkPPiVH
d+wQx4VBSRy/KDPEITbOJea/Z9EuhW/fivTwBliOr4BtqBr2oUrEnyyllcM8vBim4RpYh2oR
d6IGyYPlvF8OGa2GfFhLWwE5U4eUgVIsf6cOHvdL8suGOnmuNlf21GbKiyuy5IXlWbJrZbY8
f5NT9tQtkt31Tvl5g5PP5ciL9Zmyt5Z9yyplz9Iq2VeVL7+rzpRdqxfKC40FggOH5Z2ieglm
5cho9kI5fc11cmbufPlrjK08gzck71AzZnnWQEI1kN4SWiEsERctH9JXRCtjXwVswTKkdxci
ozsfcQE+F1nM/iWQKNuoCxldFdiHo7L1yHZs7NmGtb4taB68G2v6t2JVaAvWRO/Fqug2rA4/
gFb/fbjNey9aglvRFLwXawOPYL1/O77Z/zCaI99FQ/9d2Pz2XZjq90lb0VckkpYtn16VKR9f
nS0f0c7NXRhTK88q4LYNSHHfDPFVQQIE6c+l5fD3jZCgi1bI38UQTyGSOnMxoyMX8V2FsLlL
YXFXsJ/3QlkQbyHuxn4pGHwI88bug1zaBDu2woJvwzS2CQm8FpqZNufCnZh74Q4kTG3k79th
mbwPtokHIBe/BRn7Op/biLyhrRgaOir7S26SgTmLBPOc8unshQQdu8mvcVCK2luQ1kMPB+it
SAk9SzBhF43ge+nhXno4QmDaDhC8WrQMplAVEnxLkOCvgCl6IxlQwqm/IpnDD2IG7oGMf5UT
30T7BhyftCJlfCOvW2hNSLvQiLSLDbyuozEs0Ey7BTKx6vLvm1E8ehsGj78q7VWLJbRgvnxy
/Xw5O+8a+XDul2I22Y02KTnUioyeRpj8BBwuhiVUAHswl5ZHoAQXKaUHGbcR2iB/n6D18zq0
GPHeaiR6ymENL0K8v5AwX5MFx7ch8dId9NQ6yGQT27WIO7cGs87z+iIBfbYCKR8tRfJ5hsIU
xwLHn6gnI25CPOrhwFL2LcWC06vRdnynPLahTJ6uv052V2XI3robZO+yLHmpLiumVp5XwG0t
SO9aTWqS0v4CmHwuWL2LaE56naAD9LKPMeunhXURaPSm+MoR11WJxK4SOLyZmNnpwnZSOvvY
ZqSO0FsfrKTRg6O1sL2/HIkjK5A4RDtVj/jhJXCcJks+4FhnCfrMUlhPL4P5eCGsI/ze2QrM
G23FL/BHufPIo9jm+SFud9+PFt9DaAxsx+rg9phaAial39iAtHdJL8ajmeAsjOM4vxN2vwum
YIEBzhTg5GhC70uIEwrp70rYuUgJnhJ6NxMZBPwT/F4W7G9Eajdp2qdixuf7GRqD9GKgGAk9
zAA0fV8oipZQJuyBHH63BGaGRhz1wgilcC5s0QZs5vyKB3ag8PwTSD/3fTjGHmWoPBG7KeDi
g83I6KBocfL/HTDBhmkRTjjMiQeqYKHn7cFpwD/Dy1J4oAnXvluPOC9ZEOLko6r2KnwFSHZX
IcmtoUNNCBcgzZ2FuR2LMNNdhjgP2RIshiNCEdRw6qrBFvxFrjv5JEXwMcSN/YDUf4RhsD12
+38Am/1lxoIYHtYJhyoZ91Wwke5xgUzM6XDhKQIu278OXz5ah6QeAjZ0gErfq+qfRw8zvXm5
UH28x1R2VXcm5h3LIWCO4eE9f74hmBJwwcyFuQd/lqyhx3Ht+I8RN/k9WLENpiswg9L/q4ct
BGzzF8HuI+19FbBz4kn0mE42xZNJr04DLj6wDtceq6OHdXGY4iJOg6aqDcZiKc1P8voEqRyZ
j/jADQZQU1CfZ3rrXch2IRI7yxgih6TK+wByRr+DGR/fCvslCt8E9SZW2/0fANv/TQyrh3VS
hgUqCJrx212F5O4yJFO01MM7CNh1sAmzO+tIdQVAD9NjCdQFq5cgI+zrp3eHCHqIojiQSYDM
+RrTIaU5n++9ESaq/qxjZVzA16X67S2YF2mFHKd6n6YunOH775P2sbS7VLTampHWyRj2Vhlg
zEHSKkCvkFbTIqXU1AnRtPIa0ElrXqaqB/mOClokE8keFx7GH2TBm01I6WGa0fdUgBjHSUxZ
jh6Opbm+lyWpTv4EqT3IZ/pUxJiu/JxDkP1hHbcMqUdrqdJtUnZgMxyetXyXz4XLYWGcm0Os
BmNoRQEXEvBVXf8K2KJVFoXlHwBrIaKgo5cBs/gwFiKaxZycjwcJ+Pq3mjGzhyqt/Ybi5tPD
BNzNUPAScJCAowTWx3d1nAj7/Cx8fAqKaSzEOp3A0t6txa9wQCr3f43ZgCkuTKUPMs59DK0Y
zai0/g5YS0vGmIkesQSdtMuAw6q20x9J5qRn0lRglNJqSnWJZCHJk48fEXAWa/O0rhVGmpGw
Fi7M7aSy1VNgCJmmMSMNMeUlkOZJPUWI72YIeJZPFziq6qzc0rtLsBN7pfpAA2Z6dFFZ6vaS
ylyMmE0B57df9rAC1pxrAObm4Z88bPeWkQlMJZ0EzTSi+dTGMDDUO5zFerwAj7G0zD3Ygtkd
Kw1hM+pwZQmZYfLlcVEKuGDM8758xPucpH4OZrnJgO4l9D49r4vby9iOZhsblWewRypeX248
I/yGkeaCWvlp6oqhVUoXHNyAWR0sPJgyvgCs8TutnNOFhyq0XdOPTpTUjaeXbAagaUpbQjlc
iAKK1itScvg2zOlcRY8xt4ZKYddylbnbzp2YKryajTlZvxHHTYqOaZS1/louMp8nIxy9Lszh
fFT1S9rXIb1niRG306KpjIux1Vra2Dy4KfXGbonxyYlYuPoWVVXmTqHamlhEWDy8p9UXFdzi
JU2VZkEKiVGJZSHtWB6eJKWLDt7Ca8awu3gaHBfIeE8Xz6em4+i47ON7wvGE+Vx8NTD3MNa9
rOMDi5DWUYbHDdVfh9ROet947/IYsbY7CbjwcCvSPY2Xd0ukCSmoGwd7oMBYVaGXLAFuEAKl
pG4evZnHa3pNVbNX98S8zzQym1vGHdhneDita6WxIA4uho5jFCBUfFVW9aKOa+Z3dNOhY0qY
e/EQPczFdbB+d4ScHKMcP2Wp6mpfzwKlbtqzZItZ6Rxr+5zG8OEWpOr2UOkZnT4A0ELBphTS
vMky0sIcadX6mRWTmpUpxxQmWFVaHhBYmDsz3EX08D4pUsDdmmZ4OsKJWY2wUFAqXmQK41TH
1XH0PW2ll6od4eaBYBwh3Zo6keoupya8LM5D6xnrVG9Vab5/RaYnHs5DGygkjGH1GHOwcGso
fiqiml5rn4+r6qO3g+wL0Bh3xqGAkXqUBQt4MODCj3WC7a2YQZUWDQNliIIlRYW5XagLhmmO
13GCrKqMlosXYDoiG0z6DWpCUkcx8/peyW5rnK6/dSw9oLgSe1oBH2be9DIPR/hBrXH71IuM
L115Lfq174sDAN6TPq2N9WCAojVADw9oQZKDVJ6IKGDXW7dillfzZjls/fR+lAsTJWgdy2CQ
1tGaz3UsVlk6Xr8eFS2jlXKXlA9znxMzekq53XxZct5qwgzNzxzLeP9K7Bml9J8oMpH1rHzq
eWBXzYM7PaijWvKwzjTCDQL7rEM1xgGfdbjUMPvJxcbBnrzHiZxm/0gBZvdWUmRelaJ3NiKt
dw0sgzVIGqlB/MhiY0zzcCWsp/Q9/QZb9tmGGcccT4bJiFMrYT9VhfhTVPehIqSFq0np1yTv
COfX1wAL99D63pXY3wD6Lsy6hXqvdgAAAABJRU5ErkJggg=="
$Label1Image2 = $System.Bitmap.FromBase64String($Label1Image2)
EndFunction

_________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)
Back to top
View user's profile Send private message Send e-mail
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Fri Feb 06, 2009 11:21 pm    Post subject: Reply with quote

benny69,

Thank you for the code.

I am using ScriptForm Designer by iTripoli to design the form. I use VBscript instead of Kixtart for my code. Therefore, I will need to translate Kixtart to VBscript and try it out.

Within the Label1Image1 and Label1Image2 functions, I see strings of text within the quotes after the variables named $Label1Image1 and $Label1Image2. Are these strings the real codes or just the strings of text converted from the image that you posted?
Back to top
View user's profile Send private message
Gargoyle
KiXforms Aficionado
KiXforms Aficionado


Joined: 30 Dec 2003
Posts: 366
Location: Arizona

PostPosted: Sat Feb 07, 2009 12:27 am    Post subject: Reply with quote

This bit here converts the string into an image.

Code:

$System.Bitmap.FromBase64String($Label1Image2)

_________________
Parents were invented to make children happy by giving them something to ignore.
Back to top
View user's profile Send private message
benny69
KiXforms Advocate
KiXforms Advocate


Joined: 30 Oct 2003
Posts: 567
Location: Lincoln, Ne

PostPosted: Sat Feb 07, 2009 2:27 am    Post subject: Reply with quote

CluM09,
The strings of Characters are Images Converted to String, and Gar is correct the line he points out converts the string back to an Image.

I like ASE also, I use it for all my codeing, but I use my Form builder to create KiXtart KiXforms, you can find it in my signature if you would like to try it. You can also find KiXtart help over at KiXtart.org if you like.

_________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)
Back to top
View user's profile Send private message Send e-mail
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Sat Feb 07, 2009 5:49 pm    Post subject: Reply with quote

So in the code, how can I convert my image to strings of characters as you have in your code?

Will VBScript support the same properties of Kixforms as Kixtart?

Can I just set the variable to the image filename directly?
Back to top
View user's profile Send private message
benny69
KiXforms Advocate
KiXforms Advocate


Joined: 30 Oct 2003
Posts: 567
Location: Lincoln, Ne

PostPosted: Sun Feb 08, 2009 4:44 am    Post subject: Reply with quote

I don't know if VB suports these properties.

As far as converting the image to a string in KiXtart and KiXforms, my KFD will do it for you.

_________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)
Back to top
View user's profile Send private message Send e-mail
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Sun Feb 08, 2009 4:47 pm    Post subject: Reply with quote

How do you know the string for a particular image?

Can I set the variable to an image's file name directly?
Back to top
View user's profile Send private message
Gargoyle
KiXforms Aficionado
KiXforms Aficionado


Joined: 30 Dec 2003
Posts: 366
Location: Arizona

PostPosted: Sun Feb 08, 2009 5:36 pm    Post subject: Reply with quote

Yes you can set the image directly.

$PictureBox.Image="C:\Scripts\Images\MyPic.JPG"

Check out Benny's KFD, it exposes all of the properties and methods of KiXforms.

If you want to use it with VB you will have to convert the code, but should not be all the difficult to do.

_________________
Parents were invented to make children happy by giving them something to ignore.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    KiXforms Forum Index -> KiXforms.NET Discussion All times are GMT
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group