listbox

Dec 15th, 1999, 11:14 AM

how to select one item from one listbox and add it to another list box? i have tried to use listbox.getvalue(), listbox.additem()...but they don't work. please help! thank you

**johnpc** · Dec 15th, 1999, 12:36 PM

Code:

'Put two List Boxes on a Form
'and add the following to the
'General Declarations Section
Option Explicit
Dim Player(0 To 2) As Variant
Dim I   As Integer

Private Sub Form_Load()
  
   Player(0) = "Miggey McMoo"   ' Enter data into array
   Player(1) = "Alf Hinshaw"
   Player(2) = "Woofer Dean"
  
   For I = 0 To 2   ' Add names to list.
      
      List1.AddItem Player(I)
   Next I
 
End Sub

Private Sub List1_Click()
List2.AddItem Player(List1.ListIndex)
End Sub

Dec 15th, 1999, 01:20 PM

thanks for the fast reply. but i need the code in vbscript as i'm using asp. tq

**Clunietp** · Dec 15th, 1999, 04:25 PM

Here's a little something I threw together for you Dany -- you said you were using ASP so this does it using server side VBScript

Tom

Code:

&lt;%@ Language=VBScript %&gt;

&lt;HTML&gt;
&lt;HEAD&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;

&lt;%
dim MySelections
dim MovedSelections
redim MovedSelections(0)

myselections = split(request.form("lst1"), ",")

%&gt;

&lt;form name=form1 method=post&gt;

&lt;P&gt;
&lt;SELECT name=lst1 multiple=true&gt;
&lt;%
Call CheckForOption("TOM")
call CheckForOption("BOB")
%&gt;

&lt;/SELECT&gt;
&lt;/P&gt;

&lt;P&gt;
&lt;SELECT name=lst2 multiple=true&gt;
&lt;%
Call ListMovedOptions
%&gt;

&lt;/SELECT&gt;
&lt;/P&gt;
&lt;INPUT TYPE=SUBMIT&gt;
&lt;/form&gt;

&lt;/BODY&gt;
&lt;/HTML&gt;

&lt;%

Sub CheckForOption(OptionName)
	
	dim bFound
	dim I
	
	bfound = false
	
	if ubound(myselections) &gt;= 0 then
	
		for I = 0 to ubound(myselections)
			
			if ucase(trim(myselections(I))) = ucase(trim(optionname)) then
				bFound = true
				exit for
			end if
		next
		
	end if
	
	if bfound = false then	
		response.write "&lt;OPTION&gt;" & OptionName & "&lt;/OPTION&gt;"
	else
		redim preserve movedselections(ubound(movedselections) + 1)
		movedselections(ubound(movedselections)) = OptionName
	end if
	
end sub

Sub ListMovedOptions
	
	dim I
	
	for I = 1 to ubound(movedselections)
		response.write "&lt;OPTION&gt;" & movedselections(i) & "&lt;/OPTION&gt;"
	next
	
end sub
%&gt;

Dec 16th, 1999, 09:24 AM

Thank you very much, I will try it .

Dec 16th, 1999, 01:01 PM

can i do it using client script. in the previous server script, the page will reload everytime u add an element from listbox1 to listbox2.

can i do this:
when i select an item form listbox1 and click the add button, a copy of that item will appear in listbox2(the item in listbox1 is not deleted). meaning, when i repeat the process 3 times with 3 different items. 3 items will appear in listbox2.

i tried to solve this problem for bout a week now. please help. thank you.

**Clunietp** · Dec 16th, 1999, 01:05 PM

If you want to do it on the client side using VBScript, you will leave out Netscape and old MSIE users.

If you want to keep the list between page refreshes (using server side logic), you can add that into the code I wrote.

Thread: listbox

Thread Tools

Display

Posting Permissions