Visual Basic :: Moving All Items From One List Box To Another

Moving Through Items In A Listview
Am I being a complete , or what? I'm trying to move through the items in a listview, so that I can insert the entries one-by-one in to DB - ie each item in the listview represents a new record in a DB table.

Now, I would have expected (as with all things VB) this to be quite straight forward. Something along the lines:

ListView1.selecteditem.movenext

I know this a bit hopeful, but I can't believe there's no way to incrementally move through all the items.

I've been through MSDN and searched this entire forum for a similar thing but I cant find anything.

I must be missing something really obvious here!

Moving New Menu Items From One PC To Another..
Hi there. I'm using MS Word 2003 in my PC A. I'v built a new menu (e.g. Letter Template with 35 sub menu items (each item built with some macro scripts)) on the menu bar (at the right of "Help") and now I have to work with another PC B. How can I move the new menu items from PC A to PC B without having again to use the "Customise" to add all the menu items in PC B?

Cheers.

Moving Items Up And Down In A Listbox
I just solved this question that I've had for a while.

Thought I'd share the code.

http://cornempire.newezone.com/resou...e/listmove.htm

Moving Menu Items
Hi folks, I found a post the other week concerning moving menu items up and down the list by clicking and dragging them to a different place (Like in IE's faves). I was wondering if anyone could find this post as I have spent the last 20 mins looking with no solution.

Any help would be much apreciated

Lucas

Moving Items In A Listbox
Hi, I have a listbox, with the following:

[case 1]
Msg "Hello"
[case2]
msg "hello"

You can place these items on another dialog.
but, I need it to look like:

[case1]
Msg "hello"
... ---->Open a new space for more Messages when you place one.
[case2]
Msg "hello 2"

This is the code I have so far, but it isnt working.

Code:
Private Sub Command1_Click()
Dim newe As Integer

newe = Newevent.EventList(Eventnum).ListCount
Newevent.EventList(Eventnum).AddItem "<Msg>: " & Text1.Text, newe
'This bit is OK, places the message.

If Newevent.EventList(Index).Text = "..." Then
Newevent.EventList(Index).List(Newevent.EventList(Index).ListIndex) = "..."
Newevent.EventList(Index).List(Newevent.EventList(Index).ListIndex) = "<Msg>: " & Text1.Text
'Only one thing to happen for a Case
'Need it so you can have more than 1 Message under
'case 1, case 2,etc... (Move every ListItem down 1?) -Chris

Dim Position
For n = Newevent.EventList(Index).ListCount To Position + 1 Step -1
Newevent.EventList(Index).List(n) = Newevent.EventList(Index).List(n - 1)
Next
Newevent.EventList(Index).List(Position) = "..."
End If
Exit Sub

Unload events
Unload Me

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Any help would be appreciated

Chris

Moving Items Together From Two Listboxes!
i have two lists!

list 1 list2

math sci
history soc
math sci
drawing fun
physics sci
biology sci
phys.eductaion fun

list1 has the subjects
list2 has the category of the subjects

now i can arrange the second list so that sci goes first then soc then fun
(i have the code for this) but the problem is that together with the category also the subject should move.

so i want them to move together when being sorted!
is there any way to keep them together!
i have done something with listindex and topindex but it is not functional for this case!

Moving Items In Listbox
im trying to get items in a list box to move up and down im not sure how to do it i dont have the first clue wot to do can anyone help with the code?

Moving Items In An Array
G'day

I have a numeric array (20,7).

The user is allowed to delete one line (1 to 20).

If the used deletes line 7, I need to move all items 8 to 20 down 1 and zero number 20 so I don't have a blank line in position 7

Is there an easier way to do it rather than a for/next loop

Peter.

Moving Collection Items
I've never used a Collection before and I was wondering how would I go about moving an item from one index to another?

I want to display the item that has an index of 0 and then remove it form the collection at a certain interval. Then I want to move all teh other items up a spot in the collection. (1 becomes 0, 2 becomes 1, etc.)

Thanks in advance.

Edit: Also, is there a fast way to clear a collection other than looping through it all and setting the values to null?

Moving Items Between Listboxes
Hey...

Could someone please provide me with the syntax for moving items in between two listboxes (i.e. List1 and List2)?

I'm having some trouble fiddling about with it. I simple want to be able to add items from List1 to List2 (deleting the item from List1 in the process) and vice versa.

Thanking you in advance...

Moving ListBox Items
Could anyone tell me how to write a sub that allows you to click and drag an item in a listbox to a new index position within the listbox?

Ash

Moving Items In A Listbox
I have a listbox that has several items in it that i want the user to be able to move up or move down. I have two buttons, one for up the other one for down. Anyone know how to do this? Thanks!

Moving Items In A ListView
Hi,
I'm using a ListView to show information. I want the user to be able to click and drag one of the ListView items to move it higher or lower on the ListView. Is there any way to do this? I know that you can do it with command buttons, but is there a way to do it with the mouse?

Thanks!

Moving Items Between Listboxes
I'm having trouble figuring out how to move a list from one listbox to
another using a command button. The idea is to click on a command
button and all items in listbox A will move over to listbox B. I'm
able to move one item using AddItem, but I don't know how to move the
whole list.

Thank you.

Moving Items Between Listboxes
Hello,

I have a form with 2 listboxes (lstUnselected & lstSelected). I want to let the user send as many items as they have highlighted from 'lstUnselected' to 'lstSelected' with the click of a button. The items will then disappear from 'lstUnselected' and appear on 'lstSelected.'

How does this work?

Much thanks!
Ed

Moving Messages From One Sent Items Box To Another!!!
Hi All

Am desperatly trying to allow PA's to send as their bosses and there be a custom rule that moves the sent item from the PA's Sent items box to the bosses sent item box. Ideally this would be automatically and not be a forward.

I have got code to check the from feild on entry to the PA's sent item box and then forward it on to the boss but I then need to populatre the from feild so that I can run a rule at the bosses end!!!

Any help would be great.

Thanks

Nathan

Moving Items In Listbox Down
This code is supposed to move items down 1 spot within the list box with the push of a cmdbutton. I got it to move one item at a time down, but ideally it should move multiple items down at the same time. Any ideas or suggestions would be greatly appreciated. Thank you.

Private Sub cmddown_Click()
Dim Temp As String, Item As Integer

Item = lstShopping.ListIndex

If (Item > -1) And (Item < lstShopping.ListCount - 1) Then
Temp = lstShopping.List(Item)
lstShopping.RemoveItem Item
lstShopping.AddItem Temp, Item + 1
lstShopping.ListIndex = Item + 1
End If
End Sub

Archie Kantzavelos

Moving/Sizing Items On A Canvas
I'm looking for some help/info on how I can move and resize objects (image controls with handles drawn around it) on a canvas (in this case the whole form which is fullscreen); like, for example, moving shapes or textboxes around the page in Word. I've had a little luck trying to figure it out myself, but it's just not working...

Moving Items From One Datalist Box To Another {Access}
Sorry if I'm posting this to the wrong forum.
I've tried searching the site for an answer, but haven't found anything that helped me...

I've got two datalist boxes (using MS Access, if that helps), and I'm trying to figure out how to move selected items from the first box to the second box.
I know that it's probably something really incredibly easy, but I can't get it for the life of me and it's making me want to ram my head against a brick wall.
Any help you guys can give will be much appreciated.

Moving Single Items From One Folder To Another
How do I go deleting a message in my inbox, and have it show up in my Trash? I know this much of the process:

1. Delete the message (Don't need info on this)
2. Empty the listview when the user clicks on the Trash folder (Don't need info on this either)

There's a Step C, which involves retrieving the sender, subject, send date, and message text from the message, just like I did when retrieving new mail. How would I retrieve the data for just that message, and add that to the now-empty listview?

An example of what I want to do would be found inside Outlook Express. Note as it empties the listview when you change folders, and then loads the contents of the selected folder.

Sorry if this seems a little vague, but that's the best I can explain it.

Moving Items From Listboxes To Table
I want to move rows with items from listboxes to a table. Each listbox is a collumn of items, and I want all items to be moved to the database table one row at a time, and remove the rows from the listboxes when they have been added to the database. I figure I need loop function for this, but I dont have much experience with them.
I tried running the codes bellow, but I get invalid use of property or something at "kategoriliste.ListIndex = fisknummer" etc.
I also have a problem with the insert function to the database, it's giving me "missing operator in query". I tried copying an insert function from another post on this forum and changed it for my needs, but it didnt work any better.

Code:
Public Sub OppdaterIndivider()
Dim MyConn As ADODB.Connection
Set MyConn = New ADODB.Connection
Dim MyRecSet As ADODB.Recordset
Dim alder As String
Dim kjoenn As String
Dim arten As String
Dim kategori As String

For fisknummer = 0 To kategoriliste.ListCount

kategoriliste.ListIndex = fisknummer
familien.ListIndex = fisknummer
populær.ListIndex = fisknummer
kjønn.ListIndex = fisknummer
pris.ListIndex = fisknummer

kategori = kategoriliste.Text
arten = familien.Text
alder = 6
kjoenn = kjønn.Text

Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:ProgrammeringAkvariespilletAkvariespillet.mdb;"
MyConn.Open
With MyConn
.BeginTrans
.Execute "INSERT INTO Individermaller (artsnavn, alder_mnd, kjønn) VALUES('" & arten & "', #" & alder & "', #" & kjoenn & "#)"
.CommitTrans
End With

Next fisknummer
kategoriliste.clear
familien.clear
populær.clear
kjønn.clear
pris.clear

End Sub
So, can you tell me why the loop and the insert functions aren't working?

Moving Multiple Listview Items Up Or Down At Once
Hi, does anybody know how to move multiple selected listview items up or down at once?

I found the subs below, but they only move one item up or down, even if I have selected multiple items.

Thanks.

vb Code:
Private Enum menmDirections MoveUp = 1 MoveDown = 2End Enum Private Sub MoveItem(ByVal penmDirection As menmDirections)Dim lvwItem As ListItemDim lvwNew As ListItemDim lvwSubItem As ListSubItemDim lngIndex As Long Set lvwItem = lstView.SelectedItem If Not (lvwItem Is Nothing) Then If penmDirection = MoveUp Then lngIndex = lvwItem.Index + 2 ElseIf penmDirection = MoveDown Then lngIndex = lvwItem.Index - 1 End If If lngIndex > 0 And lngIndex <= lstView.ListItems.Count + 1 Then Set lvwNew = lstView.ListItems.Add(lngIndex, , lvwItem.Text) For Each lvwSubItem In lvwItem.ListSubItems lvwNew.ListSubItems.Add , lvwSubItem.Key, lvwSubItem.Text, lvwSubItem.ReportIcon, lvwSubItem.ToolTipText Next lvwSubItem lvwNew.Selected = True Set lvwNew = Nothing lstView.ListItems.Remove lvwItem.Index End If Set lvwItem = Nothing End IfEnd Sub

vb Code:
Private Sub MoveUp(lv As ListView) Dim itm As ListItem, itmNew As ListItem, i As Long If lv.SelectedItem.Index > 1 Then Set itm = lv.SelectedItem Set itmNew = lv.ListItems.Add(itm.Index - 1, , itm.Text, itm.Icon, itm.SmallIcon) For i = 1 To itm.ListSubItems.Count With itm.ListSubItems(i) Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText) End With Next lv.ListItems.Remove itm.Index itmNew.Selected = True lv.SetFocus End IfEnd Sub Private Sub MoveDown(lv As ListView) Dim itm As ListItem, itmNew As ListItem, i As Long If lv.SelectedItem.Index < lv.ListItems.Count Then Set itm = lv.SelectedItem Set itmNew = lv.ListItems.Add(itm.Index + 2, , itm.Text, itm.Icon, itm.SmallIcon) For i = 1 To itm.ListSubItems.Count With itm.ListSubItems(i) Call itmNew.ListSubItems.Add(, .Key, .Text, .ReportIcon, .ToolTipText) End With Next lv.ListItems.Remove itm.Index itmNew.Selected = True lv.SetFocus End IfEnd Sub

Listview Report Moving Items Up && Down
Hi everyone ,

I know how to move the first column field up and down in a listview report.

But now i have 10 columns and the user wants to select a row and puts it one down (if its not already at the bottom) or one up (if its not already at the top).

thx

Moving Listbox Items W/ Mouse
does anyone know how to shift listbox items around with the mouse? a good example would be winamp's playlist. the code i came up with works fine...if you move your mouse slowly. if you go fast, it'll pretty much mess up the order because the cursor jumps around when you move your mouse too quickly.

Dim HotItem1 As Integer

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
If HotItem1 <> List1.ListIndex Then
If HotItem1 > -1 Then
a = List1.List(HotItem1)
b = List1
List1.List(List1.ListIndex) = a
List1.List(HotItem1) = b
End If
HotItem1 = List1.ListIndex
List1_Click
End If
Else
HotItem1 = -1
End If

End Sub

Moving Items Between Listboxes (RESOLVED)
Hi, all

I am trying to do simple moving items between Listoxes I have a lbxAll that is populated with all items and lbxSelected that is to contain the selected items. I need a functionality that user will be able to select more than one item and at the push of a button these items will be transfered to the other listbox and removed from lbxAll

This is my code

Code:

'# to loop over all irems
        Dim i As Integer
        For i = 0 To lbxAll.Items.Count - 1
            '# if current item is selected copy it to lbxSelected
            If lbxAll.GetSelected(i) = True Then
                lbxSelected.Items.Add(lbxAll.Items.Item(i))
            End If
        Next

        Dim j As Integer
        For j = lbxAll.Items.Count - 1 To 0 Step -1
            '# if current item is selected copy it to lbxSelected
            If lbxAll.GetSelected(j) = True Then
                lbxSelected.Items.Remove(lbxSelected.Items.Item(j))
            End If
        Next

The first loop works OK items are copied into lbxSelected But I am always getting error when a Item is to be removed I think this is because once the item has been removed the whole index of lbxAll will change... But Is there any way of doing this?

--------------------------------------------------------------------------------

<Signature>

     That boy is our last hope.......................................

     No there is another !

</Signature>

Edited by - pajer on 9/13/2004 4:33:57 AM

LIST BOX HELL. Please Save, Remove Items, Many List Boxes...one Last Name
ok, so the code so far, or as much as you need to see, is
****************************
***************************
***************************
***************************
***************************

Sub LoadCal()
Dim gdtDate As Date
Dim i As Integer
Dim x As Integer
Dim startDay As Integer
Dim giMaxDays As Integer

' clear list boxes before filling again
For i = 0 To 41
List1(i).Clear
Next

' * * * * * * * * * * * * * * * * * * * * * *
' * * * * * ADD DAY NUMBERS * * * * *
'label at top of form
Label1.Caption = MonthName(giMonth) & " " & giYear

'this is the current date
gdtDate = CDate(giMonth & "/01/" & giYear)

'minus one so the first line is never completely empty
startDay = Weekday(gdtDate) - 1

'the number of days in this month
giMaxDays = Day(DateAdd("m", 1, gdtDate) - 1)

'populates list boxes with days
x = 1
i = startDay
While i < (giMaxDays + startDay)
List1(i).AddItem (x)
x = x + 1
i = i + 1
Wend

' * * * * * * * * * * * * * * * * * * * * * *
' * * * * * ADD NAMES TO DAYS * * * * *

' !!!!!!!!!!!!!!!!!check to see that list is not empty !!!!!!!!!!!
If lstAgentList.ListCount = 0 Then GoTo done
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

'agent list counter, "at which item" index
x = -1
'populate list boxes from the first day of the month with numbers
i = startDay
'counter for number of days until sunday
a = startDay - 1

'from the first day to the last day
While i < (giMaxDays + startDay)
If a < 6 Then
'a maximum of 3 names per day
While (List1(i).ListCount) < 4
' if there are no more items in the items list ('x' is greater than counter)
If x < (lstAgentList.ListCount - 1) Then
x = x + 1
' otherwise set it back to 0 (zero)
Else
x = 0
End If
'add the next name from the established agent list
List1(i).AddItem (lstAgentList.List(x))
Wend
a = a + 1
Else
'a maximum of 3 names per day
While (List1(i).ListCount) < 4
'add the next name from the established agent list
List1(i).AddItem (lstAgentList.List(x))
'here we do not increment name for it is a sunday
Wend
'reset 7 days until sunday counter
a = 0
End If
'increment day count
i = i + 1
Wend

done:
' end
End Sub

***************************
***************************
***************************
***************************
now see the shaddy thing with this is...well, it's a calendar month see, and every day is a list box....first item, the date, 1st, 2nd, 3rd, 4th, and so on...each list box can hold that first item, the date, plus 3 names.

if someone double clicks on one of those names (which are populated through other methods...not important) i want that name to be deleted...now where i am out of ideas is: how do i delete one item from one list when my list (List1) is an array of about 41 list boxes all named List1 (x) see....

also if I wanted that name which was double click to delete itself through the entire month, then ....well...the rest is my own trouble...but so far i can't seem to be able to delete.

grrr.
...

thanks in advance,
-munchkin

If Item Selected In Combo Box Then Clear List Box Then Add New Items In The List Box
how?

Editing List Items And ListSubItems In List View Control
Hi,

It is possible to edit ( add an entry ) the first column of a ListView control. By setting to automatic mode.

How do I edit the subsequent columns ( The listSubItems ).

BB

Outlook Macro- Moving Items Into Folders
hi - Im trying to get mail from specific addresses to go into appropriate folders, but my code only sorts mail for one address and not the other. What can you see that Im not seeing?

Code:
Sub Sort()

'Dim Variables

' Initialise Outlook App
Dim objOutlook As New Outlook.Application
' Initialise name space
Dim objOutlookNameSpace As NameSpace
' Initialise folders
Dim fldInbox As MAPIFolder
Dim fldOS As MAPIFolder
Dim fldSM As MAPIFolder

Dim fldPersonal As MAPIFolder
' Others
Dim lNumEmailsInInbox As Long
Dim MyMail As Items

' Set the name space to MAPI
Set objOutlookNameSpace = objOutlook.GetNamespace("MAPI")

' Set the pointer to the inbox
Set fldInbox = objOutlookNameSpace.GetDefaultFolder(olFolderInbox)

' Set the pointer to the Test folder (a folder within the inbox)
Set fldOS = fldInbox.Folders("ACM Business").Folders("01 Overstock IN")
Set fldSM = fldInbox.Folders("ACM Business").Folders("02 SkyMall IN")
' How many emails in the inbox?
lNumEmailsInInbox = fldInbox.Items.Count

' Display it on a form
MsgBox ("There are " & CStr(lNumEmailsInInbox) & " messages in your Inbox")

' Initialise Mail items
Dim MyMailItem As Outlook.MailItem
Set MyMail = fldInbox.Items

' If there are any mail items in inbox
If lNumEmailsInInbox > 0 Then

' Loop through each mail in the inbox and move it to the appropriate folder
For Each MyMailItem In MyMail
If MyMailItem.SenderEmailAddress = "overstock-orders@vcommerce.com" Then

'MsgBox ("Moving " + CStr(MyMailItem))
With MyMailItem
.Move fldOS
End With
ElseIf MyMailItem.SenderEmailAddress = "updates@Skymall.com" Then

With MyMailItem
.Move fldSM
End With
End If
Next MyMailItem
Else
Call MsgBox("No emails in inbox to move", vbAbortRetryIgnore, "Warning")
End If

End Sub
Any help would be appreciated
Thanks a lot guys.

Combine List Items To Create New Item In Same List?
Hi all,

This has been giving me fits for a few days - any help would be most appreciated. I'm sure it's pretty simple, but I'm new to VB (and programming in general) and can't seem to come up with the correct syntax to get this to work:

I have a listbox from which the user can select mutliple items. Once user performs a multi-select, I enable a button (no problem there). When user clicks that button, I want to create a new item in that same list consisting of all selected items with "AND" between them.

Thus, if user had selected <item 1>, <item 2>, and <item 4>, the new item would be "<item 1> AND <item 2> AND <item 4>". Can someone please help me with the logic and syntax on this?

Here's what I have up to this point (I've removed the parts that I believe - based on the fact that this is not working - to be wrong and replaced them with ?????):

Code:
        Dim terms As String
        For Each terms In List.SelectedItems
            If List.SelectedItems.Count > 1 Then
                terms = ??????? & " AND " & ???????
            End If
        Next
        List.Items.Add (???????)

Thanks!!

Edited by - troy_atl on 10/17/2005 12:04:26 PM

How To List The Items Of Combo List When It Get Focus Without Click On It
Hi:
Here I have problem, I have a Combo list. If the user don't want to use mouse, and She want the Combo list list all of of it's item just like mouse click on it when she use TAB to focus on it. How can I implement this function. If anybody know about it. It will be very helpful
Millions of Thanks.

wky086

List Box, How Can I Paint Specific Items On A List
Hi,

I've got a list box, and I want to paint specific items on it.
I've tryed to use the ".forecolor" property, but it paints all the list.
also I've tryed to approach the specific item ".list(index).forecolor"
with no success

Thanks in advance, ofir

List Box, How Can I Paint Specific Items On A List ?
I've got a list box, and I want to paint specific items on it.
I've tryed to use the ".forecolor" property, but it paints all the list.
also I've tryed to approach the specific item ".list(index).forecolor"
with no success

Thanks in advance, ofir

List Box - Selecting Items To Be Displayed Into Another List Box
Hi,
I'm pretty new to this and for my assignment I've been set the task of using arrays (and saving the array in a Random Access file) but to to get to the point. This program currently adds and saves the array and then displays the user data into a listbox. However I want the list box items that have been saved to be displayed individually in another listbox (hope i'm making this clear.)
So for instance

In listbox LstUsers
I have records stored data which contains the name , address, postcode , package option chosen etc.
This information is pretty long so what I want the program to do is when the user selects one of these records in LstUsers it will then display that data in another List box called for example LstDetails.

I know i'd have to use an If statement but im unsure of the value i'm supposed to use. If anyone could give me a hand with this i'd be grateful thanks in advance.

Loop The Loop: Adding List Item And Sub-items Assigned To Items.
Hello there,

below are the codes i've written to record all the items (which are qnsID) in list box (List1) into qnsdata_table.

Code:
Private Sub Command6_Click()
Dim x As Integer
Dim y As Integer

x = List1.ListCount
y = 0

rst.Open "SELECT * from qnsdata_table", cn, adOpenDynamic, adLockOptimistic

Do While Not y = x
rst1.Open "SELECT qnsdataID from autonumber", cn, adOpenDynamic, adLockOptimistic
rst.AddNew
rst!qnsDataID = "qd" & Right("000000" & CStr(CInt(rst1!qnsDataID) + 1), 6)
rst!qnsID = Me.List1.ItemData(y)
rst.Update
rst1.Close
rst1.Open "UPDATE autonumber SET qnsdataID = qnsdataID +1", cn, adOpenDynamic, adLockOptimistic
y = y + 1
Loop

rst.Close
End Sub

The problem is that for each item (qnsID) there are several assigned (ansID) and i need them to be recorded along with the qnsID, into qnsdata_table.
______________________________
| qnsdataID | qnsID | ansID |
-----------------------------------
| qd0001 | qns0002 | ans0012 |
| qd0002 | qns0002 | ans0016 |
| qd0003 | qns0002 | ans0001 |
------------------------------------

In this case, should i have another Do While Loop within the current Loop, to find out how many 'ansID' there are which are assigned to each 'qnsID'.

I've tried

Code:
rst2.Open "SELECT Count(ansID) AS ansID_count FROM ans_table where....(conditions)

Me.Text2 = rst2!ansID_count '(ive no idea where to store the count) value)

a = Me.Text2 '(shift value into variable a)
b = 0
and here goes another loop, but it didn't work.

Need some advice and comments from you guys =)

Thanks a million.

Astrov

Dragging List Items Around A List Box: Example
Since I can't post this in the code library, I thought I'd share it here. This code is pretty simple. It allows items to be reordered in a list box by dragging them around.

Put this in General Declarations

Code:
Dim item1 As String, item2 As String, listindex1 As Integer, listindex2 As Integer

Put this in for your list events.

Code:
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'When the mouse is clicked, we want to save the text at the spot
'and the index of the spot to variables
item1 = List1.List(List1.listindex)
listindex1 = List1.listindex
End Sub
Private Sub List1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
'When the mouse is released, we want to save the text and the spot
'again. Then we print the text to opposite spots in the list.
item2 = List1.List(List1.listindex)
listindex2 = List1.listindex
List1.List(listindex1) = item2
List1.List(listindex2) = item1
End Sub

Importing List Items To Another List
i need a code which will import all the items of list1 to list2!

so that the lists will look identical!

Selects Items From List Box To List Box?
Hi everyone!

Has anyone seen a good example of how to set up a list box and then have an arrow button pointing to another list box which allows the user to select the items they want...... geesh this is hard to explain, and I dont know what to call it....

Basically the first box contains all of the possible selection avliable to the user and the highlight each one they want and hit the 'arrow' pulling those selected items into the 'selected' box. Make sense?? Most that I've seen professionally done include arrows to 'de-select' and another set to 'select all' and 'deselect- all'

Any pointers or examples on how to do this would be greatly appreciated. I currently have a well functioning program using just a single selection at a time and would like to upgrade it to have this type of functionality.

Thanks!
Willie

Moving Mouse Over The List Box
Hi, I am trying to manually make my own Menu Editor. I don't like how you cannot edit the font and color of the regular menu editor.I got it all working and looking great, but there are 2 small problems that I cannot figure out how to fix.

I want to be able to move the mouse over a list box, and just like a regular menu I want the one that is under the mouse to be highlighted. And as you move the mouse over different selections it will highlight them, without yet clicking on the mouse, anyone know how to do that?

Also, does anyone know how to change the forecolor of a command button? It is possible?

I appreciate any help.

Thanks,

Dan

Moving Up && Down In File List Box
heyy guyz..

i was wondering...if i have a file list box with many files in it...how can i cause the cursor or watever to move to the next file down or up, to the beginning, and to the end of the list of files (and if possible cause the cursor to move randomly as well)...

and if it does move...under which event would that be?? example: file1_change??

thanxx in advance

Moving Lines Within A List Box
hello,
i have a list box and i want to move some lines in it, but here is the catch;

i built the list like this:
i have a 'brake' line and then some other lines starting with " " (4 spaces). it serves me as groups.

what i want to do is move the entire groups up and down.
i keep failing on managing to do this..

it looks something like this:

brake1
line1
line2
line3
brake2
line1
brake3
line1
line2

i have between 2 and 10 brakes and as many lines between them.. (they also have unique names; not 'brake' and 'line').

also,
the up and down buttons are only enabled when i'm on a brake.
they are disabled seperatly when i'm on the first or last brake.

when i click on my up button (for example when i'm on brake3);
it will replace brake2 and look like this:

brake1
line1
line2
line3
brake3
line1
line2
brake2
line1

and so is with the down button (on brake1);

brake3
line1
line2
brake1
line1
line2
line3
brake2
line1

after this, i also want to be able to move the lines up and down, but to disable the buttons when i'm on the first line and the last line.

(i only use 2 buttons; 'CmdUp' and 'CmdDown')

i use this line to tell when it's a line and not a brake;
if left$(list1.listindex,4)=" " then blahblah..

i only managed to get the brake (any) to become the first of the list, and not even go down...

help?
thanks in advance..