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 Previous  1, 2
 
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: Sun Feb 08, 2009 7:32 pm    Post subject: Reply with quote

Thank you Gargoyle,

I will give it try and see how it works.
Back to top
View user's profile Send private message
CluM09
KiXforms Follower
KiXforms Follower


Joined: 29 May 2007
Posts: 25

PostPosted: Tue Feb 24, 2009 10:47 pm    Post subject: Reply with quote

Sorry guys for the late response. I have been quite busy with other tasks.

Thank you all for the help!

I got it working from benny69's code, but the script generates the error
when I use the Label1Image1() and Label1Image1() functions to convert
the image.

I had to modify the OneTime() function to convert the image directly in order for it
to work with VBscript. Below is the code.

Function OneTime()
Label1.Image = System.Bitmap.FromBase64String(_
"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=")

For Index = 0 to 17
Label1.Left = Label1.Left + 20
Wscript.Sleep 150
Next

Label1.Image = System.Bitmap.FromBase64String(_
"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=")

For Index = 17 to 0 step -1
Label1.Left = Label1.Left - 20
Wscript.Sleep 150
Next
End Function
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 Previous  1, 2
Page 2 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