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.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Index Of Newly Added Item In Sorted Listview
I need to find the index number of the item last added to a listview.
I can use listcount, except if the user clicks on the column header
and sorts the list, then the next item added could be listed in the
middle of the items already in the list. So .ListCount would not work
in that situation. So if I have a listview with items #1,#2,#3, and
I add an item which is placed in between #1 and #2, how can I find out it's spot in the list????
Any ideas or direction would be very helpful.
Sort Vba Listbox After New Item Added
I have a listbox which I want to sort after a new item has beed added. My code is as follows:
Code:
With Name
i = .ListIndex
i = i + 1
.AddItem , i
s = InputBox("Please enter name: ")
If s = "" Then
.RemoveItem i
Else
.List(i, 0) = s
.List(i, 1) = s
End If
End With
Dim vaItems As Variant
Dim p As Long, q As Long
Dim vTemp As Variant
vaItems = Me.Name.List
For p = LBound(vaItems, 1) To UBound(vaItems, 1) - 1
For q = p + 1 To UBound(vaItems, 1)
If vaItems(p, 0) > vaItems(q, 0) Then
vTemp = vaItems(p, 0)
vaItems(p, 0) = vaItems(q, 0)
vaItems(q, 0) = vTemp
End If
Next q
Next p
'Clear the listbox
Me.Name.Clear
For p = LBound(vaItems, 1) To UBound(vaItems, 1)
Me.TeamCode.AddItem vaItems(p, 0)
Next p
End Sub
The code works fine until I add the sort code (also found on this forum, I think by Timbo?), it causes a type mismatch error at:
'For p = LBound(vaItems, 1) To UBound(vaItems, 1) - 1'
Any idea what I have done wrong?
Showing The Latest Item Added To A ListBox
Hi,
I have a listbox to which I'm adding new items. The listbox is high enough to show 6 items without having to use the scroll bar.
When the listbox gets more than 6 items, I want it to scroll automatically to the bottom of the list to show the latest items without having user to use the scroll bar.
How do I do this?
Thanks.
ListBox: Automatically Scroll So Last Item Added Is Shown At Bottom
Maybe listbox is not the best way to do this, but here's what I want:
Program creates log records to display to user what tasks the program is performing. The log records are displayed in chronological order as they are written. Whenever a new record is written, it will be the last one visible within the list box. If the list box can show 4 records, when record 5 is written, you'll see records 2-5 in the list box, when record 6 is written you'll see, records, 3-6 in the list box, etc.
I used SendKeys like so ('li' is the list box index):
If li Mod PageSize = 0 Then
SendKeys "{PGDN}"
End If
But the problem is that if the user interacts with the application at all, this gets messed up. Also, if the app is minimized, then SendKeys affects whatever app the user is currently working with.
In searching the listbox threads I saw a post where the ListBox.SetFocus was done before the SendKeys, but that seems like it that would also interfere if the user had switched to a different app.
Ideas?
Jim
Getting Item Data Index With Listbox Value
I'm trying to get the itemdata int value from a listbox using the listbox text value. For example:
populate the listbox using a query:
rst = select id, value from table
While (Not (rs.EOF))
lstbox.AddItem rst!value
lstbox.ItemData(lstbox.ListCount - 1) = rst![id]
rstSiteID.MoveNext
Wend
So what i want to do is get the "id" value from a selected
"value" in a listbox.
Any help would be appreciated.
String Index/listbox Item Search [fixed]
hey...
I have a listbox with some items in it, where i have added (O) infront on some items.... what i want is, to remove (O) again from the item, i tryed coping it into a string, but then i forgot how i check the first 3 letters of the string...
can someone help plz ?
Take care and have fun
Garn
Right Click To Return Index And Select ListBox Item.
How can I make a right mouse click return the ListIndex and select a ListBox item?
Below code doesn't won't return the ListIndex.
Code:If Button = vbRightButton Then
MsgBox "Item Index " & List1(Index).ListIndex & " " & "List Index " & Index
End If
Thanks!
ddutke
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 To Listbox - Adding Index
I have on my form two listboxes: list1 and list2 and a button cmdGo
The item data placed in list one is placed there at runtime so therefore with no index values. When I press the go button I want each item from the first list box to go into the second list box BUT as the items go in I want to set index values because I need to form a string at a later stage and will need to keep adding until all items are added (until index is reached)
This is my code so far:
Private Sub Form_Load()
List1.AddItem "David"
List1.AddItem "Paul"
List1.AddItem "Sarah"
End Sub
Private Sub CmdGo_Click()
Dim x As Integer
Dim i As Integer
With List1
For x = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.Text
List2.ItemData(List2.NewIndex) = i
Next x
End With
End Sub
As you can see all is not well with the code and I am starting to pull my hair out - Any ideas?
.: 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
Sorted Listbox
This is probably pretty easy, but I am struggling with it. I have a sorted listbox with checkboxes. My program is a addin to another program, and when it closes it stores the names of all the items in the listbox along with their checked value in a attribute of the supporting program.
I have to go by names, because between the time I close and open the user could have changed the number of items that get populated into the listbox. My problem comes in startup. I know I could populate the listbox, and then iterate it looking for matching strings, but because of the mechanism to get the string value from the attributes and the large size of the string it is already taking 35 seconds for my program to start. I really don't want to slow it down any more if possible. Is there a something similar to a node as used in treeviews where I can set the item in the listbox to a reference and then set the selected value to that node all in one loop.
Hope that is clear... basically what I am hoping for is a method to process the selected value within the same loop I am using to add items to the list.
Thanks in advance for any help
Sorted Property In A ListBox ?
Hai,
During design time i set the Sorted property of a List Box, List1 to True.
In the process i add numbers to the list box, but it looks like this :
VB Code:
110111216789
as against,
VB Code:
178910111216
what is happening ??????????
any comments/ideas/codes highly appreciated....,
ashky.
Listbox Sorted Property ???????
We set the sorted property of a listbox at design time, but i want to know what kind of sorting is used there, i mean bubble sort or merge sort or whatever ??????
Is there a way to find out, what method microsoft used for that property.....,
Any ideas/help/comments highly appreciated...,
Thanks..,
ashky.
ListBox Sorted Property
Hi,
I use VB6 to create a form, which contains a listbox and another command button.
I try to use the button to change the Sorted Property of the listbox in runtime (List1.Sorted = True/False)
But when I click the button, it said "cannot change read only property"
Is that sorted property can't be changed in runtime??
Sorted Listbox Not Sorted (VB6)
In VB6, SP6, I created a listbox, set "Sorted" to True, and in the form_load event, I put this:
list1.additem "a-b" (with a dash or hyphen)
list1.additem "a_b" (with an underscore)
VB seems determined to put the underscore BEFORE the dash, but the ASCII code for the underscore is HIGHER than for the dash. I searched several places for things like "vb6 listbox underscore sorted", and could not find anything.
Is this a known problem? Is there a workaround, or should I just keep re-sorting the box in code?
Thanks in advance,
Larry
[NOT QUITE RESOLVED] Sorted Listbox Question
I have a listbox where each item is an element of a string array. Each one of these elements has an associated code, stored in a integer array. When the listbox sorted property is set to true, and one of the items is selected I need to know what its associated code is so, the question is how can I have the array of codes sorted as well.
How To Set Sorted Properties In The Listbox True
I want to know how to set the sorted properties in the list box to be true.. i have been reading the forum here and many sorting solution requires me to set the sorted properties = true first..
BUT, I dunno how to set!!!
BTW, I m using VBA for word, is there any difference for VB?
I m really new in VB world, pls anybody can enlighten me and help me for being stuck here?
Sorted Listbox Loses Itemdata
I'm using some listboxes which contain a string value as well as an itemdata which is storing the ID from a database.
My problem is, when the listbox.sorted = true, the itemdata is lost when I try to get it based on the listindex. ie, lstBox.itemdata(lstBox.listindex))
The sorted property of the listbox can only be set at design time. I can't find a way around this except to use a third party control such as VSFlexGrid.
Listbox Sorted By Command Button
As in listbox that contains people names, when you hit "B" on your keyboard, the highlight will go automatically to a name that starting with B letter such as Bob Smith.
Now how do I make a command button that do the same, so if I click B button, hightlight will go to Bob Smith and C button goes to Charlie Smith and etc.
Basically I want to make an alphabet buttons that work with Listbox.
Sorted Listbox Maximum Entries????
How many elements can a listbox (which has the sorted property = True) hold before there is a noticeable delay in sorting?
I am deciding whether I should use a sorted listbox to maintain the sort for me for 50000+ elements, but I am worried whether "adding" items into a listbox (which is already heavily populated) will cause noticeable delays due to the required sorting logic which will be performed.
** Of course, I will always set the Enabled and Visible properties to False to increase the speed.
Edited by - uncletr on 8/9/2004 7:56:08 AM
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!
Removing Multiple Identical Items, From A Sorted And An Unsorted Listbox...
Hi everyone...
I'm stomped on this one...
I have two listboxes on one of my forms. One is sorted and the other is unsorted.
Both contain the same items...Also the lisboxes are both set to multiselect...
I would like to remove the same items from both lists at the same time...So if
items 3, 5, and 7 were selected from the sorted listbox, how can I remove these
items plus the identical ones from the unsorted listbox?
Thanks in advance...
D-Race
Edited by - D-Race on 3/25/2005 8:10:50 PM
Listbox,if Added Enough Items To Fill It: How To Autoscroll?
Well, it was hard to explain. But basicly: For my chat I used a listbox and the additem command to comunicate between server and client.. But after a while of chatting we come to the end of the listbox.. You can continue to write, but you have to scroll down manually each time you write something new, I want this to autoscroll down - but frankly I have absolutely no clue how to do it
All help appreciated!
Checked Listview Items Get Added To Listdelete Listbox?
hey guys I have a listview called report, but is there a way that since there are checkboxes beside each item , is there a way to get whatever is checked that when it is checked to be added to my listdelete listbox. All I want is the item in the first column of the report listview added.
Thank you!
How Do I Get Drive ListBox Control To Refresh When New Device Added?
I have a drive listbox control, call it Drive1. I want to auto-detect if a thumb drive has been newly connected/disconnected.
I have tried every method provided for the drive listbox. It appears that when you click on it, it gets focus...then no other conditions fire regardless of where you click on the control (unless you change the selection, then you get a change event).
Right now, I have to have the user click away then click back, which is workable, but not preferable.
[ I'm doing a drive1.refresh in drive1_validate, form1_load and form1_mousedown]
Is there a simple solution that I'm not seeing?
-MagicT
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
Listbox(index)
Hello,
i've a goup of listbox lst(0) lst(1) lst(2) lst(3)
when i click on listbox lst(0) or lst(01)...
i copy lst to listbox lstFull
like this
Dim X
For X = 0 To lst(index).ListCount - 1
lstFull.AddItem lst(index).List(X)
Next X
how can click on lstfull and interact with lst
in other word link lst and lstfull
thanks
mr404
Listbox Index
I have a list box which is already poplulated with a recordset. Then I select an item in the list box and insert this into another recordset. The problem i have is when i multi select more than 1 item in the list box. The first item selected is added to the recordset but the second is not. Any suggestion for a learner ? How can my script recognise the various indexes selected ?
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
About Locating Listbox Index
Hi there. I got 4 columns in a listbox, namely the ID no, Surname, other name and phone no. After a change to the surname or other name and a sorting in the listbox items, the listbox index will change accordingly. So, if the value of the 1st column (ID no) remains unchanged (say, the changed item is "Cath101"), Can anyone please advise me how to locate and highlight on the listbox to indicate the changed item, say, "Cath101" in this case?
Cheers.
Getting Information On Index For A Listbox
hi. I have written some code which automatically generate controls (listboxes)
using load. These listboxes created during runtime in array (with index) are named gfrlst (index) using do while loop and the number of listboxes is up to the user. I wanted to allow the user to click any listbox created during runtime to launch another form and the form that is launched will have the index number of the listbox clicked stated at the top. The complication is that
when the user creates let say 4 listboxes (thus index for the listboxes will be from 0-3) and the user then launch a form by clicking listbox(2), I will not get the index value of 2. If I check the value of index, only value obtained is 3 (which is the final index value of the listboxes created). Is there anyway to get the index value of the listbox that is selected in VB 6.0. I found that I can get this value using LB_GETCURSEL (is that true?) but I have little knowledge on API and do not know how to use it.
Custom Listbox Index?
Is it possible to use a custom listbox index?
I'm using this code now:
Form1.vb
Code:
Imports MySql.Data.MySqlClient
Imports System.Data
Public Class Form1
Dim winamp As New WINAMPCOMLib.Application
' Fields
Private m_conn_string As String
'Proporties
Public Property ConnectionString()
Get
Return m_conn_string
End Get
Set(ByVal value)
m_conn_string = value
End Set
End Property
' Methods
' Loads the playlist, and the requests
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadPlaylist()
LoadRequests()
checkNowPlaying()
StatusLabel.Text = "Program Loaded"
End Sub
' Loads Playlist
Private Sub LoadPlaylist()
Dim i As Integer
Playlist.Items.Clear()
For i = 0 To winamp.PlayListCount - 1
Playlist.Items.Add(winamp.SongTitle(i))
Next
StatusLabel.Text = "Playlist Refreshed"
End Sub
' Load Requests
Private Sub LoadRequests()
Requests.Items.Clear()
Dim conn As New MySqlConnection
Dim myCommand As New MySqlCommand
Dim myReader As MySqlDataReader
Dim SQL As String
SQL = "SELECT * FROM winamp_requests ORDER BY request_id ASC"
conn.ConnectionString = ConnectionString
Try
conn.Open()
Try
myCommand.Connection = conn
myCommand.CommandText = SQL
myReader = myCommand.ExecuteReader
While myReader.Read
Requests.Items.Add(New listBoxItems(myReader.GetValue(myReader.GetOrdinal("request_playlist_pos")), _
myReader.GetValue(myReader.GetOrdinal("request_artist")) & " - " & myReader.GetValue(myReader.GetOrdinal("request_title"))))
End While
Catch ex As MySqlException
MessageBox.Show("Could not get requests: " & ex.Message)
End Try
Catch ex As MySqlException
MessageBox.Show("Error while trying to connect to database: " & ex.Message)
Finally
If conn.State <> ConnectionState.Closed Then
conn.Close()
End If
End Try
StatusLabel.Text = "Requests Refreshed"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
LoadPlaylist()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
LoadRequests()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
checkNowPlaying()
End Sub
Private Sub checkNowPlaying()
nowPlaying.Text = winamp.CurrentSongTitle
End Sub
Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub Playlist_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Playlist.DoubleClick
winamp.PlayListPos = Playlist.SelectedIndex
winamp.Play()
End Sub
Private Sub Requests_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Requests.DoubleClick
MessageBox.Show(Requests.SelectedIndex)
End Sub
Private Sub checkEndOfSong()
End Sub
Private Sub RefreshPlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshPlaylistToolStripMenuItem.Click
LoadPlaylist()
End Sub
Private Sub RefreshRequestsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshRequestsToolStripMenuItem.Click
LoadRequests()
End Sub
End Class
login.vb
Code:
Imports MySql.Data.MySqlClient
Public Class Login
Dim conn As New MySqlConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Application.Exit()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim conn_string As String
conn_string = "server=" & dbHost.Text & ";" _
& "user id=" & dbUser.Text & ";" _
& "password=" & dbPass.Text & ";" _
& "database=" & dbDb.Text & ""
conn.ConnectionString = conn_string
' Try to connect
Try
conn.Open()
conn.Close()
If rememberData.Checked Then
My.Settings.dbHost = dbHost.Text
My.Settings.dbUser = dbUser.Text
My.Settings.dbPass = dbPass.Text
My.Settings.dbDb = dbDb.Text
My.Settings.Save()
End If
Dim main_form As New Form1
main_form.ConnectionString = conn_string
main_form.Show()
Me.Hide()
Me.Close()
Catch ex As MySqlException
MessageBox.Show("Error while trying to connect to database: " & ex.Message, "Error")
conn.Dispose()
End Try
End Sub
Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If My.Settings.dbUser <> "" Then
dbUser.Text = My.Settings.dbUser
End If
If My.Settings.dbHost <> "" Then
dbHost.Text = My.Settings.dbHost
End If
If My.Settings.dbPass <> "" Then
dbPass.Text = My.Settings.dbPass
End If
If My.Settings.dbDb <> "" Then
dbDb.Text = My.Settings.dbDb
End If
dbPass.PasswordChar = "*"
End Sub
End Class
listBoxItems.vb
(Tried to use a Custom Listbox Index with this, but it isn't reallt working..
See:
http://www.vbmysql.com/articles/vb_m...ial-part6.html
)
Code:
Public Class listBoxItems
Private ItemID As Integer
Private ItemName As String
Sub New(ByVal ID As Integer, ByVal Message As String)
ItemID = ID
ItemName = Message
End Sub
Public Property Message() As String
Get
Return ItemName
End Get
Set(ByVal value As String)
ItemName = value
End Set
End Property
Public Property ID() As Integer
Get
Return ItemID
End Get
Set(ByVal value As Integer)
ItemID = value
End Set
End Property
Public Overrides Function ToString() As String
ToString = ItemName
End Function
End Class
Does anyone know it?
|
TRACKER
