Visual Basic :: HighLight List Box Selected List Item With User Defined Color

Removing Selected Item From A List Box
Hi,
Here is my problem:

I have a form with selected items in a list box. e.g "Grapes" "Pears" "Carrots"

and 2 command buttons, "Add Item" "Remove Item"

When the user selects an item and clicks "Add" the item is appended to a text box on another form (frmMain).

My problem comes when a user removes an item, what I want my program to do is delete the item from the text box. e.g "Grapes"--->"Remove" and the item goes from the text box.

The text box is formatted as below:

Item1
Item2

so how would I go about doing this? (Removing the item)

Also, when the item is deleted how can I move the other text down, so I am not left with a blank white line?

Thanks alot,
vbnovice

Removing A Selected Item From A List Box
I just have a very simple and easy question

I have a listbox in my program and I have succesfully managed to add items to the list during the running of the program but i would also like to have the option for the user to select any item on the list and remove it... I know i would have to use the "RemoveItem" command but i dont know how to use it to remove the selected item in the list

Any help would be most appreciated

Zimbi

Msgbox Selected List Item
How do you msgbox the selected items name?

Move Selected List Item Up Or Down?
Hi.
Is it possible to move a list item up or down?
If yes can you give me the code to do it?
Thanks

VB6 List Box Showing Selected Item
Hi, I can process and pick the correct item in the list box but how to move the selection bar to the actual position in the list so that user do not require to move the drag bar and search for their data in the list.

Thanks,

Trying To Print Selected Item In List Box
Here it is: I am trying to use the highlighted item in a list box to be used to search a file and print the matching records out. It was easy to print he entire file, but I need some help on this here is what I have so far.

VB Code:
Private Sub mnuFilePrintSelrec_Click() Dim strListSel As String, strItmeName As String, intItemNum As Integer strListSel = lstItem.Text Open "g:cs212 est31c6.dat" For Input As #1 Printer.Print strListSel Printer.EndDoc Close #1End Sub

The problem with this is it prints only the highlighted item and does not search and print the records that match in the file. hos do I get it to use that as a search string in a file?

Remember Selected List Item?
I have a Listbox with about 5 gradients in the list. When the user clicks an item from the list it displays the according gradient. Its all working perfect, the question in hand though is how do you remember the selected list item when the program is closed, so when you open the app again that list item is selected.

Selected List Item Not Working
At the start of my program I'm loading a list of events from a textfile (.txt). I get this in string form, and split it into an array.

After that I loop through the array, adding each event to a listview (mode= report, with one column header). Some events might've been done already so they have the "1" status. When an event has a "1" status, I want it to be checked (my listview uses checkboxes). I'm using the following code;

Code:
If arrEvent(4) = 1 Then '// Done, thus checked
lstEvents.FindItem(arrEvent(0)).Selected = True
lstEvents.Refresh
End If

This code executes in the Form_Load procedure and arrEvent(0) contains the name of the event. This doesn't seem to work though.

Anyone know why? Thanks!

List View - Selected Item
How do i know selected items in a listview without looping through listcount.

Note. MultiSelect= true

How To Disable A Selected Item In A List Box
how can i change the font of a selected item in a list box also how can i disable a selected item which is not allowed users to click or remove in the list box

Index Of Selected List Item
I have a combo box, style 1, where users can enter items into the list by typing it then hitting enter. I want the user to be able to select one of the list items already entered and be able to delete it by pressing the delete key.
How can I delete the selected record?

ListView - Remove The Selected Item In The List
as per the heading how on earth do i remove the selected item in a listview. I did it like the below in a listbox but cant find any reference to a listindex in the list view. PLease help me I am going slowly insane over this little problem.

VB Code:
lstMovedFiles.RemoveItem (lstMovedFiles.ListIndex)

Selected Item In List View Is Not Marked
Hi,

I am hoping if anyone can help me...

I have 3 'list-view' controls in my program. Let's call it lvw1, lvw2 and lvw3.
If I select any item in the lvw1, the item is highlighted. But when I move to lvw2 and select an item there, the highlighted item in lvw1 is then removed.
Only item in lvw2 is highlighted. The same result appears, when I chose an item in lvw3..

It seems that only 1 item from 1 list view control can be highlighted at any one time.

Is there anyway, so that if I chose an itme in lvw1 it will still be highlighted even when I choose other item in lvw2 and lvw3.

Thank you for any replies.

Regards

hendra

Decision Based On List Item Selected
Hello,

I got a great answer to the last question I posted here so I wish to pose another one. I am curious how to determine which item is selected in a list box and then execute certain code pertaining to that particular selection. I know it would involve an If...Then...Else statement but am not sure how to retrieve what item is selected in the list.

If it helps at all, I need to know so that I can use my inventory list in my text based RPG in battle. So, if I happened to want to use an item in battle I want the item I select to be used causing other actions based on the enemy, defense, attack, etc.

Any help is immensley appreciated. Thank-you.

Quick Listview Question - Getting A Selected Item To Appear At The Top Of List
Hopefully a simple question - I have a list view and items are added at run time by the click of a button, the newly created item is selected but since the list view is sorted it might be selected but off the bottom of the list view window. Obviously the user can scroll down to look for it but this isn't very slick. Can I automatically force the list view to scroll down to the right place or bring one item to the top of the list view??

Problems With Listboxes If Item Is Selected From The List And The Textbox Value That
I'm using three sets of listboxes, textboxes, and a commandbutton for each textbox.

The PROBLEM:
I can enter a value in the textbox, click the commandbutton and the listbox populates. BUT if I select an item from the listbox and then try to change the value of the textbox that decides what is in the same listbox the code ERRORS.

From the Watches window I have received the following:
Watch : : UserForm1.Frame1.ListBox3.ListIndex : -1 : Variant/Long : UserForm1.ListBox3_Change

Am I correct when I say the value -1 means there was not data to create the list with?

I'm unsure of where the change needs to be to solve this???

Example of code being used:
Code:
Private Sub ListBox2_Change()
TextBox.Text = ""
TextBox.Text = UserForm1.Frame2.ListBox2.List(UserForm1.Frame2.ListBox2.ListIndex)
End Sub

Private Sub ListBox3_Change()
TextBox.Text = ""
TextBox.Text = UserForm1.Frame1.ListBox3.List(UserForm1.Frame1.ListBox3.ListIndex)
End Sub

Private Sub ListBox4_Change()
TextBox.Text = ""
TextBox.Text = UserForm1.Frame3.ListBox4.List(UserForm1.Frame3.ListBox4.ListIndex)
End Sub

Private Sub CommandButton3_Click()
frame_Search UserForm1.Frame1.TextBox13.Text
End Sub

Private Sub frame_Search(SearchFor As String)
Dim rngFind As Range
Dim strFirstAddress As String

ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
With Workbooks("S350 T3 Test with Form.xls").Worksheets("Master Tracking").Range("D:D")
Set rngFind = .Find(SearchFor, LookIn:=xlValues, lookat:=xlPart, searchorder:=xlByColumns)
If Not rngFind Is Nothing Then
strFirstAddress = rngFind.Address
Do
UserForm1.Frame1.ListBox3.AddItem rngFind.Offset(0, "-2")
UserForm1.Frame1.ListBox3.List(UserForm1.Frame1.ListBox3.ListCount - 1, 1) = rngFind
Set rngFind = .FindNext(rngFind)
Loop While Not rngFind Is Nothing And rngFind.Address <> strFirstAddress
End If
End With
With UserForm1.Frame1.ListBox3
If .ListCount = 0 Then
.AddItem
.List(0, 1) = "No Match Found"
.Enabled = False
Else
.Enabled = True
End If
End With

End Sub
Thanks for any suggestions,
J

Determining The Index Number Of A Selected Item In List Box
Hi! I would just like to ask how can I determine the index number of a selected item in a list box?

ex.

list box items

june
july <---how would I know its index no. in the listbox after I selected it?
august

Thanks in advance!

Increase List View Selected Item In Loop
I have a loop that runs and inside the loop I retrieve the text of the listview item that is currently selected, is there a way to increase the selected item so that if item 1 is selected on the next loop it will select item 2 and so forth?
Thanks,
- gabe

Linked List Using User Defined Datatypes
i'm a third year engineering student..

i was asked to solve the water jug problem using vb by my teacher...

i tried using user defined data types to create a tree for the different states

this was the structure i used:-

private type node
gallon1 as integer
gallon2 as integer
children(4) as node
end type

it is giving me a runtime error at the statement "children(4) as node" saying that "CIRCULAR DEPENDENCIES BETWEEN MODULES"

can any body help me out...

i cant use class modules 'coz arrays can't be made public in class modules...

plz help me some one....plz...plz.... i just need to know the correct node structure

How To Remove From A Position On A User-defined List
Hi there,
Hope someone can help me.
I've got a program which simulates a lift going up and down, adding and removing passengers from queues as it traverses the floors.
Lift moves up and down - works fine.
Customer details are added to a dynamic queue at each floor - works fine.
When the lift arrives at a floor it should remove passengers if they are due to alight at this floor then take on passengers if any are waiting in the queue, up to a static length of six.
Uptake of passengers - works fine.
However, the removal is a gigantic headache. I've had it almost working but the wrong passenger details are removed.

I've tried two ways - I have a boolean in the lift( a user-defined type) which shows true if the required floor is equal to the lift position.
I tried to loop through the array of customer details in the lift until this is false, but I'm having difficulties with parameters and global variables.

I've also tried dispensing with the boollean and just done an if statement, if the required floor is equal to the lift position, but I can't get this to work either.

Drag Image And Drop It In To Selected Item In The List View
Hi,
could you give me example of code for drag image and drop it in the selected item in the list view

regards,

COps

How To Read A Selected Item From A List View From An Access Database
Question: How can you read a selected item from a list view (loaded from a dataset) from an access database using an OleDb Connection?

Checking What User Has Selected In A List Box
Hi. I'm wondering if it's possible to have a user select an item in a list box and then check what they have selected in a different procedure.

I mean as an example, have a list box with the items 1, 2, and 3. And then when they click the GO (command button) it will check what they have selcted in the list box:

Private Sub cmdDone_Click()
Unload Me
End Sub

Private Sub cmdGo_Click()
Dim intNumber As Integer

MsgBox ("You selected " & intNumber)
End Sub

Private Sub Form_Load()
lstList.AddItem 1
lstList.AddItem 2
lstList.AddItem 3
End Sub

I could really use some help with this... Thanks

Excel-letting The User Select An Item From A List
I'm writing a macro for excel to do some input from files. Right now, I have a list of files being stored in an array from a FileSearch. I need to find a way for the user to be able to select which of these files he wants to input data from. I've tried a number of different ways with absolutely no sucess. Ideally, I'd like to have a list of all the files come up and let the user click on one and hit an Ok button and have the filepath and name then stored in a variable for the rest of my macro to use. I've been looking around for a couple of days and haven't found anything that seems like it might work.

Is It Possible To Have An Item Selected In A Listview Without The Highlight?
Hello,

Is there a way to have a whole line selected in a listview or a listbox, but not have the item highlighted? The selected line will have the thin rectangle around it but there wouldn't be any highlight color. Thank you.

Finding List Item As U Typed In Combo Box(Dropdown List Style).
Basically the title say it all.

When I type a letter in combo box it finds item by matching the letter that I typed, but when I type in a second letter it searchs item that starts with the second letter.

I wonder is there a way to macthing list item as u typed in combo box(Dropdown List style).

Thanks in advance.
Joon

Create List Of Files From Folder But Allow Double Click On List Item To Run Bat
I am a newbie
But am making some progress
My next plan is to make a simple dialog with a list box and 3 buttons to do the following
List all the batch files in a folder
then allow me to highlight one item in the list so when I click the button it will run that bat file.

Sounds easy enough but I just keep hitting a brick wall and am not making any progress at all.

All help or similar snipits of code that I can re-organise will be greatfully apperciated.

Thanks in advance

Selected List View Field To List Box
hi,

I Have list view control with check box, when i select the record the record to be displayed in list box,The event is geting trigered but the problem is that if i have multiselction or another row selection the exiting record disappears from the list box.

ListBox - Move List Item To Place In List
I have a list box with several items. I am trying to make a button that when the user selects an item in the list box, they can click on the button which will move the item up one in the list box:

So if my list looked like this:

ONE
TWO
THREE
FOUR
FIVE

and the user selected FOUR and clicked the button the list would look like this:

ONE
TWO
FOUR
THREE
FIVE

Does anyone know how to do this?

Thanks,
M

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

Change Background /Forgroound Of Each List Item In A List Box
How would i be able to change the back color of a listitem in a list control ? For example i want item number 1 to have a red background item number 2 to have a blue background etc.
Thanks for the help

Jerry

How To Change Combobox Selected Highlight Color? [SOLVED]
I want to change the highlight color of the selected item from a combobox from the ugly blue to some other color. How can I do this?

Thanks

_________________________________________________________________

Edited by - vbprog1144 on 12/8/2004 5:28:26 AM

Add A List Item To A Loaded Form List
help please. this is probably very simple.

i have a form loaded and showing. i need to add items to a list box, and my code is in a public sub in a different module.

my code follows. i wind up getting an "object doesn't support this type of property..."

i feel like i am close, i just don't seem to be referencing the form list correctly.

thanks much!

Public Sub BuildOverviewList()

Dim dbSOURCE As Database
Dim dbTARGET As Database
Dim rsSOURCE As Recordset
Dim rsTARGET As Recordset
Dim strDatabase As String
Dim strTable As String

strDatabaseName = "ProductCategories.mdb"
strTableName = "tblCurrentPresentation"
Set dbTARGET = OpenDatabase(dbPath & strDatabaseName)
Set rsTARGET = dbTARGET.OpenRecordset(strTableName, dbOpenDynaset)

'aryProductGroup provides the selected categories
For i = 1 To UBound(aryProductGroup)
'aryCategory1
For j = 1 To UBound(aryCategory1)
If aryCategory1(j) = -1 Then
strDatabaseName = "Category1_information.mdb"
strTableName = "CategorySlides"
Set dbSOURCE = OpenDatabase(dbPath & strDatabaseName)
Set rsSOURCE = dbSOURCE.OpenRecordset(strTableName, dbOpenSnapshot)
'write the record to the target table and add to list1
'USE THE ARRAY POSITION (j) TO GET THE SLIDE NAME FROM THE CORRECT TABLE
'ADD THAT SLIDE NAME TO THE LIST.
With rsSOURCE
rsSOURCE.Move (j)
With rsTARGET
.AddNew
![StepID] = 4
![CategoryID] = aryProductGroup(i)
![ProductID] = j
![Name] = rsSOURCE.Fields("SlideName").Value
.Update
End With
'Forms.frmPresOview6.List1.AddItem rsSOURCE.Fields("SlideName").Value
Forms.frmPresOview6.List1.AddItem rsSOURCE.Fields("SlideName").Value
End With
'also add record to ProductCategories/tblCurrentPresentation
End If
Next j

Next i

ListView Selected Item Color
I'd like to set a forecolor for the selecteditem and remove after another item is selected. Any ideas how I can do this w/o iterating through all the items and setting their colors to default besides selected Item?

Color Of Selected Item In Listbox...
Hello

quick question... is there an API or something to change the color of the highlighting when a record in a listbox is selected? by default it's an ugly blue, and that really doesn't suit my program's tastes ... maybe there is no way, but it would be nice.... thanks for the help!

Assign User Defined Type To Dictionary Item
I'm trying to assign a variable dim'ed as a UDT to a dictionary item, but am having problems.

When I define the UDT and variable within my form module like this:
CODEPrivate Type DataInfo
  fldInd As String * 1
  fldName As String
  fldPos As Long
  fldLen As Long
  fldMax As Long
  fldMin As Long
  fldCnt As Long
  fldWithData As Long
End Type
Dim aryDataInfo As DataInfo

dict.Item(x) = aryDataInfo

AddItem To Combo List And Have The Combo List Be Able To Retain The Item Upon Recall
I have a project that I need to do for school. You are to have a command button, a combo/dropdown list and a text box, you are to enter a name and birthday in the text box and when you click on the command button it is supposed to enter it in the combo box. My problem is that I got it to enter into the combo box with additem, but it will not retain the item that I just added. When I close the program the item I added does not stay there. How do I get the combobox to retain everything that I add through the textbox on command click. PLEASE HELP