forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Multi run from list

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
filip
Valued Contributor
Valued Contributor


Joined: 07 Aug 2004
Posts: 340

PostPosted: Sat Apr 29, 2006 5:14 am    Post subject: Multi run from list Reply with quote

This is only sample

I like run stuff from list with just pressing OK and i need 1s delay....

DIALOG CREATE,Drag and Drop Example,-1,0,294,188,DRAGDROP,
DIALOG ADD,BUTTON,OK,136,52,64,24,,,HAND
DIALOG ADD,BUTTON,Cancel,136,180,64,24,,,HAND
DIALOG ADD,LIST,LB,10,10,272,114,,SORTED
DIALOG SHOW

:loop
wait event
%E = @event()
Goto %E

:DRAGDROP
List create,1
list DROPFILES,1
%F = @item(1)
dialog set,SB,@count(1) files were dropped
List append,1,LB
List assign,LB,1
goto loop

:Okbutton
if @equal(@count(1),0)
else
list seek,1,0
repeat
run @item(1)
goto loop

:Cancelbutton
:Close
Stop

Thanks... Embarassed
Back to top
View user's profile Send private message Send e-mail
Aslan
Valued Contributor
Valued Contributor


Joined: 31 May 2001
Posts: 589
Location: Memphis, TN USA

PostPosted: Sat Apr 29, 2006 2:27 pm    Post subject: Reply with quote

Code:
:Okbutton
if @equal(@count(1),0)
else
 list seek,1,0
 repeat
 %%run = @next(1)
 If %%run
  Run %%run
  wait 1
 end
 Until @null(%%run)
end
goto loop
Back to top
View user's profile Send private message Send e-mail
uvedese
Contributor
Contributor


Joined: 21 Jan 2006
Posts: 169
Location: Spain

PostPosted: Sat Apr 29, 2006 2:50 pm    Post subject: Reply with quote

Code:

  DIALOG CREATE,Drag and Drop Example,-1,0,294,188,DRAGDROP
  DIALOG ADD,BUTTON,OK,136,52,64,24,,,HAND
  DIALOG ADD,BUTTON,Cancel,136,180,64,24,,,HAND
  DIALOG ADD,LIST,LB,10,10,272,114,,SORTED
  DIALOG ADD,STATUS,SB
  DIALOG SHOW

  list create,1

:loop
  wait event
  %E = @event()
  Goto %E

:DRAGDROP
  List clear,1
  list DROPFILES,1
  dialog set,SB,@count(1) files were dropped
  List clear,LB
  List assign,LB,1
  goto loop

:Okbutton
  if @greater(@count(1),0)
    list seek,1,0
 
    repeat
      %a = @next(1)
      if %a
        shell open,%a
        wait 1
      end
    until @null(%a)
  end
  goto loop

:Cancelbutton
:Close
  Stop


SHELL command allows to open a file with the associate application

__________________

uVeDeSe
visit: http://www.uvedese.es


Last edited by uvedese on Wed Apr 02, 2008 8:52 pm; edited 1 time in total
Back to top
View user's profile Send private message Visit poster's website
filip
Valued Contributor
Valued Contributor


Joined: 07 Aug 2004
Posts: 340

PostPosted: Sat Apr 29, 2006 3:42 pm    Post subject: Reply with quote

Thanks guys

This list+run helps me install winks (MS Messenger animation content) for my younger brother... Very Happy
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help All times are GMT
Page 1 of 1

 
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 can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group