Moving Listbox Item To Another Listbox
hi does anyone know of an easy way to move an item in a listbox to another listbox, lets say a source and target listbox and vice versa. thanks
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Moving Item From One Listbox To Another
Hey all
I am trying to move an item from one listbox to another. The first listbox has items where the RowSourceType = "Field List" and the second one is value list. This is my code:
Private Sub DisplayAllFields_DblClick(Cancel As Integer)
If ListOfFieldsSelected.RowSource = (List0.Value & "." & DisplayAllFields.Value) Then
MsgBox ("You cannot select a field more than once. Please select another field")
Else
ListOfFieldsSelected.AddItem (List0.Value & "." & DisplayAllFields.Value)
End If
End Sub
When I double click the same value in the first list again, it brings up the msgbox once but it doesn't do that once it has added another field to ListOfFieldsSelected. I would use the RemoveItem method so user can't click the field again but DisplayAllFields is set to Field List so it can't remove item unless set to "Value list". Any suggestions on this?
Any help will be greatly appreciated.
Many thanks
Rupa
ListBox, Moving From First Item To Second And So On
Hey, im working on a media player, the media player works great but the playlist is screwey! Im having troubble with this:
You select an item for play - 100% ok
it plays it - 100% ok
it then goes to the next item on the list - BUGGY!
it wont move to the next item and when it does, it wont update the selected item eg, it will play the next item then when thats done it will play the one before that not the next on (constant loop between two files). Please help
When Moving Item Down In The Listbox The Text Disappears
Okay dont know why but the text is dissapearing when an item is moved down the list box.
Image1 displays before the move down
Image2 displays after the move down
Code is also attached. I am very confused I have been through this code througherly and I am sure there is not an error in the code.
Code:
' check: only proceed if there is a selected item
' check: last item can't be moved down
' save items text and items indexvalue
' remove item
' place item back on new position
' if you keep that item selected
' you can keep moving it by pressing cmdDown
' for arLoopCount adds the new playlist entrys from
' lstPlayList.
' list1 refreshes
' lstPlayList refreshes
Dim tempStr As String
Dim iIndex As Integer
Dim arLoopCount As Integer
List1.Clear ' Debugging orriented object to display the contents of arFilePlayList Array
If lstPlayList.SelCount = 1 Then
If lstPlayList.ListCount - 1 = lstPlayList.ListIndex Then
Exit Sub
Else
tempStr = lstPlayList.List(List1.ListIndex)
iIndex = lstPlayList.ListIndex
lstPlayList.RemoveItem lstPlayList.ListIndex
lstPlayList.AddItem tempStr, iIndex + 1
lstPlayList.Selected(iIndex + 1) = True
End If
End If
For arLoopCount = 0 To lstPlayList.ListCount
arFilePlayList(arLoopCount) = lstPlayList.List(arLoopCount)
List1.AddItem arFilePlayList(arLoopCount)
Next arLoopCount
List1.Refresh
lstPlayList.Refresh
Dragdrop Moving Wrong Item In Listbox(aborted Dragdrop Idea)
I am using dragdrop in a list box(checkbox style) to move items around but sometimes it picks up the item below the one I selected instead of the one I clicked on. ANy ideas? heres the code I'm using
Code:
Private Sub lstFields_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button And vbLeftButton) = vbLeftButton Then
nDragIndex = Y Me.TextHeight("Xyz")
If nDragIndex >= 0 And nDragIndex < lstFields.ListCount Then
blnDraging = True
End If
End If
End Sub
Private Sub lstFields_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim nIndex As Integer
Dim sItem As String
If (Button And vbLeftButton) = vbLeftButton Then
If blnDraging = True Then
nIndex = Y Me.TextHeight("Xyz")
If nIndex > lstFields.ListCount - 1 Then
nIndex = lstFields.ListCount
ElseIf nIndex < 0 Then
nIndex = 0
End If
If nIndex <> nDragIndex Then
sItem = lstFields.List(nDragIndex)
lstFields.RemoveItem nDragIndex
lstFields.AddItem sItem, nIndex
End If
End If
blnDraging = False
End If
End Sub
This is my first post with code in it so I hope I did it right, sorry if I didn't.
Sunflower Queen
Populate A Listbox Based On A Selected Item In Another Listbox
Ok...I am stumped.
I have a single form that has 3 list boxes. I have 4 public strings containing various values. Based on the selection from lstBox1, I need to populate the ListBox2 and ListBox3 list from values in the public strings. Clear as mud?? That is what I thought!
Example string variable
strLuxury = """Hand Wash"" ""Hand Wax"" ""Check Engine Fluids"" ""Detail Engine Compartment"" ""Detail Under Carriage"" ""Fragrance"" ""Shampoo Carpets"" ""Shampoo Upholstery"" ""Scotchgard"""
ListBox1 contains the following:
Standard
Deluxe
Executive
Luxury
ListBox2 is empty, but is contained in a frame indicating Exterior Options
ListBox3 is empty, but is contained in a frame indicating Interior Options
If Luxury is selected in ListBox1, then ListBox2 should contain
Hand Wash
Hand Wax
Check Engine Fluids
Detail Engine Compartment
Detain Under Carriage
And ListBox3 should contain
Fragrance
Shampoo Carpets
Shampoo Upholstery
Scotchgard
If Fragrance is present in ListBox3, a seperate dropdown box should appear allowing selection of the appropriate scent.
Yes, this is a homework assingment.
Thank you in advance for your help!
Mark
Listbox: How To Know Last Added Item's Index, When The Listbox Is Sorted?
When sorted property of a listbox is set to True, each new item added won't be at the end of the list, it will be automatically placed in the correct index, according to text order, is there a way to know which is the index of that item (last item added)? Looping to find it would be horrendous, I just need the index to mark that item selected.
.: Please Help: Copy Selected Item(s) From A ListBox To The Other ListBox..
Hi everyone!
I'm having problem with copying file to another Listbox, please help..
So, in this case, I have two ListBoxes where the 1st ListBox holds several items..
I need to copy the selected item to the other listbox 'without' a repetition, I mean.. the same item won't copied anymore..
When the user tries to copy the item which have already been in the ListBox2, then a messagebox will pop up to warn the user of the existing item.... So, how should I do that??
Thanks a lot
Listbox To Listbox File Moving
I am working on an application where I want to present a current file's field list in one listbox and let the user Click once to highlight it and click a command button to move it from that listbox to another one (for processing). When moved I want it to be gone from the first list and present in the second. Similarly, I have another command button that does the opposite. Can someone give me some ideas of how I actually do this?
Adding An Item From One Listbox To Another Listbox
I have several forms, one with a listbox that displays the selected records of a field from a database. I select(click) one of those records and want to have another particular field from that record display in another listbox on another form. So far it works with this code, but pulls all the records from the first listbox.
To be more specific, the database has populations and zip codes, etc. The field for population is called pop2001 and the zip codes is Zip. The listbox with the selected records displays zipcodes and I want to select one of those zipcodes and have it's population display in the other forms listbox, but it displays all of them. Can anybody help?
Code:
Private Sub Form_Load()
PopRecSet.MoveFirst
Do Until PopRecSet.EOF
frmpopfinal.lstpopfinal.AddItem PopRecSet![pop2001]
PopRecSet.MoveNext
Loop
End Sub
Listbox Name Showing Up As First Item In Listbox?
For some reason the listbox I've just added to my form shows the name of the listbox in itself at design time. At run-time, the name of the listbox shows up as the first item in the list.
I've tried looking for a CAPTION or TEXT property but neither seem to be present. Any ideas as to how to fix this?
Drag Item From Listbox To Listbox
I was wondering how to drag one item from one listbox to another listbox on the same form...
By using drag and drop, not by using any button..
I choose an item by pressing and holding the button and then drag it to the other listbox..
Also,How do I drag a file from outside my app and into the listbox?
How to use the drag and drop (onto apps listbox) function?
Please provide a simple example(form) if you can
PS: Do it as simple as possible!! No need for extra's!!
I need more help, The examples below didnt work correctly!
How To Search Listbox For Item If Item Not Found Add Item?
Hi, lol man I cant find nothing today when I search the forum.
This my latest problem, How do I search a listbox for an item lets say "Game Over" And if the item is found the program does nothing, but if the item is not found it will add "Game Over"
Thanks Again
Removing An Item From A ListBox By Clicking The Item
Hi, How do you remove an item from a ListBox by simply clicking the item u want to be removed?
This is the code i tried but it doesnt work:
Private Sub list1_Click()
Dim n As Long
Dim ncount As Long
ncount = List1.ListCount - 0
For n = 0 To ncount
List1.RemoveItem (n)
Next
End Sub
Any ideas?
-Flaw
Moving Listbox??!!
ok, how do i make an item in a listbox (List1) move into another listbox (List2) after i have selected the item and the pressed a command button. For example: In listbox1 i have an item that says "Hello" then i select it and click the command button then "Hello" moves it from listbox1 into listbox2 and is no longer in listbox1 any more. How do i do this please help!!
Thank You.
Moving From One Listbox To Another
I am currently moving items from one listbox to another the normal way with a loop. However, there can be up to 15,000 records that are moved at one time. Is there an API call that will move all records from one listbox to the other more quickly and efficiently?
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 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 Listbox View
After picking an item in a Listbox, I want to return it to the top of the list. using listindex just selects an item, but doesn't return whats shown to that item. I want it to display item 0.
How do I accomplish this?
I had:
Code:
ListBox1.ListIndex = 0
but it just highlights the item, but does not show it.
i'm showing one item at a time, and scrolling to the picked item.
Listbox Moving Listindex
i have this code to select the next listindex and if its at the end start at the beggining again.
VB Code:
List1.ListIndex = (List1.ListIndex + 1) Mod List1.ListCount
my question is can anybody come up with a line like that but make it go backwards.
i know you can do if statements to check where the index is but i have been trying to figure this out and i just cant get it right.
thank you.
casey.
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 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 ListBox To Typing Position.
Hey,
I have a question for you that seems to me as if it could be a hard one... I have not been able to find anything about it, mainly because I haven't got a clue as to where to look for...
I made some sort of AutoComplete feature in my program (in a RichTextBox), and it would be really nice if I could make it similar to Visual Basic's "Auto List Members" option (which is the listbox popping up with possible keywords when you type a ".")
I want a ListBox to become visible whenever the program is autocompleting a word, that lists all other possible keywords (because there are often multiple).
I want this ListBox to appear at the location of the I-beam (selection thingy).
How can I get it to move there? Is it possible to find the Top and Left location of the I-beam inside a RichTextBox somehow? I doubt it...
Can it be done otherwise?
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 Text From Textbox To Listbox
I'm trying to move text from a multiline textbox [Text1] to a list box [List1] but I cant seem to get it :-( Here's what I've done so far.... The code skips some lines. Any help will be appreciated. TIA
Dim CurrStart As Integer
Dim Temp As String 'temp buffer
CurrStart = 1
Temp = Text1 'save text1 to temp
While InStr(CurrStart, Temp, vbCr)
CurrStart = InStr(CurrStart, Temp, vbCr) 'find the newline
List1.AddItem Left(Temp, CurrStart) 'add this line to listbox
Temp = Right(Temp, Len(Temp) - CurrStart) 'remove this line from temp
Wend
Last Item In A Listbox
A listbox normaly shows items 1 down to the maximum showable in that box despite of the value of .ListCount . How can I tell VB - after aplying the .AddItem-method - allway to show the .ListCount-item at the last line of the listbox (will say: display items [.ListCount-max. lines] to .ListCount)?
Thanks in advance!
Lightgun
For Each Item In Listbox...
Here is what im Trying to do:
Something like....
For Each Item in Listbox
MsgBox The Data of the item
Next
Its so simple, yet i havnt been able to figure it out =/
Listbox Item Taken Out
Hey, i also need to know how to take away an item from a list. so say i had lstMyList.additem myPerson.name
i would want to take away myPerson.name when i did a certain thing
does anyone know? thanks...Xtrava
Listbox Item
Is it possible to have some kind of short textstring shown with some information when you have the mousepointer over an item in a list box??
If I have the mouse of item 1 it might say "bla bla bla" and if I move it over item 2 "tada tada"
Add Item To ListBox
I'm trying to write a winsock program (but the actual problem doesn't have anything [at least I don't think] to do with Winsock, so I'm posting here). It is a LAN based IM system, and on the server side, it has a list box with connected users. What I'm trying to do is to add the user based on the index of the Winsock object, but I get an "Invalid Procedure Call or Argument" error on that line.
lstUsers.AddItem user(0), Index
user(0) is the user's name, and Index is the Index of the Winsock Object. When I comment out/take out the ", Index" part, the program rusn with no error. Where did I go wrong?
Listbox Value For An Item
I am populating a listibox with items. Is it possible to populate it like a combo in a html form?
I have a list of athlete's and when seleted I want to pull the ID for the athlete. I can already pull the text that is displayed but hoping I can add additional info like in a html combo and when selected display the other info.
VB Code:
...Do While adoRs.EOF = False lstAvailable.AddItem adoRs.Fields.Item("ATHLETE_NAME").Value adoRs.MoveNextLoop...
Update: Sorry, I said listview originally, I meant to say listbox.
Thanks for your help in advance.
ListBox Item
I have got a list box on a form, and I'm saving data into an Access Table like this, if 2 options are chosen, I place the first item in the field then I use a (comma), and then place the other option and so on.
Now I want to reverse it and do something like this, want to read that field and whenever it finds a comma , it should place the data in the next line. And I want to put the results in MsgBox and if I have these three items saved in the table: PS2, Newspaper, XBox...I would like them to appear in the MsgBox like This:
PS2
Newspaper
xBox
Any help on that?
Item From Listbox
Hi all,
I'm using a listbox which is containing around 100 items and the contents of listbox are changing after regular intervals. If a user selets an item from listbox, how can i get the name of the selected item?
Help me pls.
Anita.
Each Item In A Listbox
I am trying to step through each item in a listbox, starting with the first item and making my way through each of them. I will be writing the contents of each item to a binary file (I've got all the code for that..). However, I can't seem to figure out how to step through each item in the list box and get its text value. Any suggestions? Thanks in advance!
For Each Item In Listbox...
In vb.net I have a listbox that contains the path to files. Then I used a For Each loop to add each file to the a zip archive. How can I do this in vb 6.0?
VB.net code:
For Each file In ListBox1.Items
'code
Next
Thanks for any help you can provide
Dave
Last Item In Listbox
I want to make it so that when the last item is selected in my listbox a message box is displayed. The amount of items in the listbox may vary so i dont know how many items will be in the list. Can someone please help.
Move ListBox Item Up Or Down
Just wanted to make a small contribution to the forum. I looked around for this but didn't find anything really to my liking, so here's my version...
Code:
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Move Selected listbox item up or down
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
const UP as integer = -1
const DOWN as integer = 1
Private Sub btnUp_Click()
If Me.lstDisplayCols.ListCount > 1 Then
Call MoveListItem(UP, Me.lstDisplayCols)
End If
End Sub
Private Sub btnDown_Click()
If Me.lstDisplayCols.ListCount > 1 Then
Call MoveListItem(DOWN, Me.lstDisplayCols)
End If
End Sub
Private Sub MoveListItem(ByVal intDirection As Integer, _
ByRef lstListBox As ListBox)
Dim intNewPosition As Integer
Dim strTemp As String
intNewPosition = lstListBox.ListIndex + intDirection
strTemp = lstListBox.List(intNewPosition)
If intNewPosition > -1 _
And intNewPosition < lstListBox.ListCount Then
'Swap listbox items
lstListBox.List(intNewPosition) = lstListBox.Text
lstListBox.List(intNewPosition - intDirection) = strTemp
lstListBox.Selected(intNewPosition) = True
End If
End Sub
the lstDisplayCols listbox is a list of selected columns to be displayed for a search result list. Just put the name of your list box there...
How To Get The Text Of Item In A Listbox?
I am using a test tool that uses VBA as its back end. When I record the action the tool itself only recongnizes the NAME of the item selected in the list...in most cases this is best.
However, I really need it to select by text, but this does not seem to work. So I want to write a little VBA that will extract the text of the displayed selection in the listbox after my test tool plays back the selection.
Example:
the text displayed is "English"
the name of this item is "en-US"
I want:
textDisplayed = text.listbox, which will mean textDisplayed = "English"
I was wondering what the syntax for this is? rather new to VB.
Thanks in advance
Listbox Item Selection
Is there a way to select one item or a range of items in a listbox? Also, is there a way to deselect the currently selected items in the listbox?
Remove Item From Listbox
Hi
Please can someone help me, here is what i have a 1 textbox and 1 listbox, the listbox is populated from a field in the access database, all good so far. but i need to remove a specific item from the listbox, eg. the listbox is populated with table numbers "Table 1" to "Table 50" the textbox is connected to the database so if i move to "Table 5" in the textbox and click remove it is removed from the database but not from the listbox, so basicall i need to remove a table that i select from the textbox and the corresponding table number in the listbox must be removed, and cant quite figure it out, here is what i am trying.
Private Sub Command1_Click()
Dim MyTest As Integer
MyTest = Text1.Text
List1.RemoveItem MyTest
End Sub
Please can someone give some advise.
Many thanks in advance
Remove Item From Listbox
In the list box, I want to remove selected items and retain the other items in the same positions in which they existed before removal.
For example, consider a listbox having 10 items. Suppose I remove the 7th item, 8th, 9th & 10th items should remain in the same position. 8th to 10th items should not move up in the list. 7th item will not have any values.
How can this be done?
Removing An Item In A Listbox
When selecting an item in a listbox and clicking Go_click(), to remove that item, is the code just
Code:
Private Sub Go_Click()
List1.RemoveItem List1.ListIndex
End sub
It seems to work, but, should there be more?
Listbox+For Each Item+Pause
Ok, guys, i need help. I have one listbox, populated with irc #channels, and i want bot to come and enter in each channel in listbox, then to say some text (i use this for my irc server, for annoucments), and part that channel after saying a message.
I got how to do that, but i have a problem. It comes to "exces flood" and i am being disconected from server.
How can i eventually pause some events? U know, it joins to channel, than says a message, parts that channel, waits for a couple a seconds (for exam. 3 seconds) than joins other channel in list and so on??
Code:
On Error Resume Next
Dim i As Integer
For i = List1.ListCount - 1 To 0 Step -1
Winsock1.SendData "JOIN " + List1.list(i) + vbCrLf
Wait 5000 (its says to wait 5 seconds, than to do next)
Winsock1.SendData "PRIVMSG " + List1.list(i) + " :" + "xax" + vbCrLf
Wait 5000 (its says to wait 5 seconds, than to do next)
Winsock1.SendData "PART " + frmLISTAKANALA!List1.list(i) + vbCrLf
Next i
End sub
Greetings from Bora.
|
TRACKER
