Contents
# How to use a
single select List box?
# What are the
properties of List box?
# How to use
multiselect List box?
# What are the
properties related to multiselect List box?
# What is a Combo
box and how to use it?
What is a List Box?
List box is one of the intrinsic controls.
List box is used to allow user to select one or more of the given list of
items. A List box can contain any number
of items, but the number of items that a List box can display depends upon the
display size of the List box. If List box contains more items than what can be
displayed then automatically a scrollbar
is attached to List box.
Now, let us develop a small program to
understand how to handle a List box.
Here are the required steps to create a new
project and user interface.
1.
Start a new project using File->New Project
2.
Select Standard Exe in list of project types and click on Ok.
3.
Place the required control on
the form
4.
Change the properties as
follows.
Control
|
Property
|
Value |
Form1
|
Name
|
Frmlist
|
|
Caption
|
&List box
Demo
|
Label1
|
Name
|
Lblnames
|
|
Caption
|
Names
|
List1
|
Name
|
Lstnames
|
Lable2
|
Name
|
Lblname
|
|
Caption
|
&Name
|
Text1
|
Name
|
Txtname
|
|
Text
|
(null string)
|
Command1
|
Name
|
Cmdadd
|
|
Caption
|
&Add Name
|
Command2
|
Name
|
Cmddelete
|
|
Caption
|
&Delete
Name
|
Command3
|
Name
|
Cmdquit
|
|
Caption
|
&Quit
Program
|
Label3
|
Name
|
Lblcount
|
|
Caption
|
# Names : 0
|
Now let us write code. We have to write
code for Click event of three
command buttons. We first concentrate on how to add an item to List box and how
to delete an item from List box.
Adding an item to List box
You add an item to List box using Additem method of the List box. Additem method takes an item, which is
a string, and adds that item at the end of the List box. It is also possible to
add an item at the specified index using index
parameter of Additem method.
Note: If List box is a sorted List
box (Sorted property is set to True) then item is placed in the List box
according to the order of the item.
The following is the syntax of additem method.
AddItem item, index
Object
|
Is any List box.
|
Item
|
Is the item to be added to List box. This is
a string expression.
|
Index
|
It is optional. If it is
given then item is added at the specified position. Index starts from 0
|
Example:
To
add name P.SRIKANTH to List box, enter:
List1.additem “P.SRIKANTH”
To
add an item at 2nd position in the List box, enter:
List1.additem “Praneeth”, 2
Removing an item from List box
You can remove an item from List box using Removeitem method of the List box. Removeitem method takes the index of
the item to be removed.
Here is the syntax of Removeitem method of List box:
RemoveItem index
Index
|
The index of the item that is to be
removed from List box. Index must be in the range 0 to ListCount –1. ListCount property
contains the number of items in the List Box.
|
To
remove item at 1st position (second item) of List box, enter:
List1.removeitem
1
Writing Code for cmdadd and cmddelete buttons
Now let us write code to add the name
entered in textbox to List box. The code is written for Click event of add (cmdadd) button. After name is added to List box
the name is removed from textbox and focus is set to textbox so that a new name
can be entered by user. As this change effects the count of items in the List
box, update names count by changing Caption
property of lblcount.
Private Sub cmdadd_Click()
' add
item to List box
lstnames.AddItem
txtname.Text
'update #
items display
lblcount.Caption = "# Names : "
& Str(lstnames.ListCount)
' remove
text from textbox
txtname.Text = ""
' set
focus to textbox
txtname.SetFocus
End Sub
Listing 5.1: Code for
adding an item.
Now let us write code to delete the item
that is currently selected in the List box. To remove an item from the List
box, use Removeitem method of the
List box. Removeitem method takes
index of the item to be removed. As we have to delete currently selected item,
we use the index of the item that is currently selected. ListIndex
property returns the index of the item that is currently selected. Finally
update count of items as deletion of an item decrements the count.
Private
Sub cmddelete_Click()
'attempt
to delete only when an item is selected
If
lstnames.ListIndex >= 0 Then
'
delete the item that is currently selected
lstnames.RemoveItem lstnames.ListIndex
lblcount.Caption = "# Names : " & Str(lstnames.ListCount)
Else 'no item is currently selected
Beep
End If
End Sub
Listing
5.2: Code for deleting the current item of List
box.
Test Run
Follow the steps given below to test
whether the program is doing what it is supposed to do.
1.
Run program by pressing F5.
Note: The input focus is in List box and not in textbox. So you cannot
enter any text straight away into textbox.
Press tab key to move from
List box to textbox. We will fix this problem later.
2.
Enter any name in textbox and
click on Add Name button.
Entered
name will be added to List box. Do this for a few times. Also note, the count
of names will be increased whenever a name is added to List box.
3.
Now click on Delete Name button.
As no
item in the List box is currently selected, this action should result in beep
sound. See listing 5.2.
4.
Select one of the names in the
List box and click on Delete Name button.
The selected name should be removed from the list and # Names should also be
decreased by one.
5.
Click on the Quit Program to quit program.
Setting focus to text Box instead of List box
We have seen in the test run that as soon
as the program is run focus is set to List box. This is so because List box is
the first control to be created out of the controls that can receive focus
(enterable controls). So its TabIndex
is set to 0. The control with least TabIndex
will receive the focus. But we have to initially set focus to textbox and not
to List box. This can be done using:
¨
TABINDEX property
¨
ACTIVATE event of Form
TABINDEX property
Each control on the form is assigned a
number depending on the order in which each control is created. The very first
control is given number 0, second control 1 and so on. This number can be
accessed and changed using TabIndex
property of the control. When the form is loaded, out of enterable controls
(controls that can receive focus such as textbox, command button etc) the
control with least TABINDEX is given
focus.
Note: Though TABINDEX exists
for non-enterable controls like labels, they do not have any influence on the
way focus moves between enterable controls.
You can change the order in which focus
moves between controls when user presses tab key using TabIndex property. For example, if you want a textbox to receive
focus first, then change the TabIndex
property of the textbox to 0. You need not change TabIndex of the control that now has TabIndex 0(i.e. List box), because Visual Basic automatically does
it for you.
So in our program, we can set focus to txtname instead of lstnames by changing TabIndex
of txtname to 0. However, note that in this example we are not much
concerned with the order in which focus moves between controls. If we are
concerned, then we have to change TabIndex
of all the controls to required values, so that focus moves in the required
direction.
Changing focus to textbox using ACTIVATE event
of form
Activate event of the form occurs whenever form is activated. This is
different from Load event, which occurs only when the form is initially loaded,
Activate event occurs whenever form
is activated. Activate event can be
used to send focus to a particular control as soon as the form is activated. So
in our program we use Activate event to set focus to textbox as follows:
Private
Sub Form_Activate()
'set
focus to textbox
txtname.SetFocus
End Sub
Listing
5.3: Code to set focus to textbox as and when form
starts.
Properties of List box
The following table lists properties of
List box. We have already used LISTINDEX and LISTCOUNT properties of List box
in the previous program.
Property
|
Meaning |
Listindex
|
Contains the
index of the item that is currently selected.
|
Listcount
|
Contains the
number of items the List box currently has.
|
Text
|
Contains the
item that is currently selected.
|
Sorted
|
If set to
true, items in the List box are always arranged in the ascending order.
|
List( )
|
This is an
array. Each element contains an item of the List box. List(0) refers to first
item, list(1) refers to second item and so on. The last element that can be
accessed is LISTCOUNT –1.
|
Style
|
Determines
the style of the List box. If it is set to 0-standard, then items are displayed as text items. If it is set
to 1-checkbox, then items are
displayed with a checkbox on the left. Multiple items can be selected by
checking the checkbox displayed on the left of the item.
|
Columns
|
Sets a value
that determines whether a List box scrolls vertically or horizontally and how
the items in the columns are displayed.
If it is set to 0, then only one column is displayed and List box
scrolls vertically. If it is set to>= 1 then items are arranged in snaking
columns, filling the first column, then the second column, and so on. The
List box scrolls horizontally and displays the specified number of columns.
|
Table
5.1: Properties of List box.
MultiSelect List boxes
So far we have seen List boxes where only
one item can be selected at a time. Now we will see how to select more than one
item at a time. We will also create a new program to understand properties and
logic related to multiselect List boxes.
Selecting multiple item using MULTISELECT
property
It is possible to select more than one item
by changing the value of Multiselect of List box property to either 1 or 2. By default this is set to 0, which
allows only one item’s selection at a time.
The following are the valid values for Multiselect property of a List box.
Value
|
Meaning
|
0 –None
|
Only one item can be selected at a time.
|
1 –Simple
|
Multiple items can be selected. Click on an
item to select and deselect.
|
2 – Extended
|
Allows a contiguous block to be selected
using SHIFT + mouse click.
|
Properties related to multiselect List box
The following are the properties related to
multiselect List boxes. Some of the properties of List box such as LISTINDEX do not have any meaning while
dealing with multiselect List box. And in the same way some of the properties
that are applicable to multiselect List box may not be applicable to normal
List box.
Property
|
Meaning |
SelCount
|
Contains the
number of items currently selected.
|
Selected( )
|
It is an
array. It returns true if the item with the given index is currently selected
otherwise it return false. For
example, Selected(0) returns true if
the first item is currently selected.
|
Table 5.2: Properties
related to multi-Select List box
Sample Application using multiselect List box
Now let us create a new project, which
allows user to select required subjects from the list of available subjects.
User can select more than one subject and move the selected subjects from
available subjects List box to selected subjects List box.contains
the program at runtime.
How does the application work?
¨
The multiselect demo
application displays a predefined set of subjects in first (left side) List box.
¨
User can select one or more
subjects and then click on >
button to move selected subjects to second (right side) List box.
¨
If user clicks on >> then all subjects from first
List box will be moved to second List box.
¨
User can select one or more
subjects in the right List box and click on < to move them to left List box.
¨
Selecting << will move all subjects from right List box to left List
box.
Steps to create multiselect List box demo
program
1.
Start a new project using File->New Project. And select Standard Exe as the project type.
2.
Place controls
3.
Change properties as follows.
Control
|
Property
|
Value
|
List1
|
Name
|
Lstavailable
|
|
Multiselect
|
1-simple
|
List2
|
Name
|
Lstselected
|
|
Multiselect
|
1-simple
|
Label1
|
Caption
|
Available
Subjects
|
Lable2
|
Caption
|
Selected
Subjects
|
Command1
|
Name
|
Cmdmlr
|
|
Caption
|
>
|
Command2
|
Name
|
Cmdmalr
|
|
Caption
|
>>
|
Command3
|
Name
|
Cmdmrl
|
|
Caption
|
<
|
Command4
|
Name
|
Cmdmarl
|
|
Caption
|
<<
|
Command5
|
Name
|
Cmdquit
|
|
Caption
|
&Quit
Program
|
I have named command buttons to represent
the direction in which the button moves subjects.
For example, CMDMALR means, command button
to move All items from Left to Right. The same convention is followed for other
cases as well.
Populating List box at design time
You can place a set of predefined values
into a List box at design time using the following procedure.
1.
Select the List box and press F4 to invoke properties window.
2.
Select List property and click on down arrow.
3.
Enter first subject in the
given empty area and select CTRL+ENTER
to move to next line.
4.
Continue the above process
until all values are entered and the press ENTER
key.
Note: To populate List box at runtime use ADDITEM method. If you want to
initially load a predefined set of values at runtime, use ADDITEM method in
LOAD event of the form.
Writing code for sample application
Now let us write code for command buttons
as follows:
Moving all subjects
Write code for >> and <<
command buttons. Command button >> moves all available subjects to
selected subjects List box. Command button << moves all subjects from
selected List box to available List box.
Here is the code for both the command
buttons.
' move all items from left list box to right list box
Private Sub
cmdmalr_Click()
Dim i As Integer
With lstavailable
'move all subjects to
lstselected
For i = 0 To .ListCount - 1
lstselected.AddItem
.List(i)
Next
' clear subjects from
lstavailable
.Clear
End With
End Sub
' move all items from right list box to left list box
Private Sub
cmdmarl_Click()
Dim i As Integer
With lstselected
'move all subjects to
lstavailable
For i = 0 To .ListCount - 1
lstavailable.AddItem
.List(i)
Next
'clear subjects from
lstselected
.Clear
End With
End Sub
Listing
5.4: Code to move all items from one List box to
another.
Now let us write code for > and < buttons. This code is slightly complicated, because you have
to find out what are the items that are currently selected and move only those
items. After moving the items to other List box they are to be removed from the
List box.
Here is the code to move selected subjects
from available subjects to selected subjects List box. The code invokes a
procedure called DELETEITEMS, which takes a List box as parameter and deletes
all the currently selected subjects from the List box.
Private
Sub cmdmlr_Click()
With
lstavailable
'
move currently selected subjects to LSTSELECTED
For i = 0 To .ListCount - 1
If .Selected(i) Then
' move current item
lstselected.AddItem .List(i)
End If
Next
End
With
'
delete currently selected subjects from LSTAVAILABLE by calling
'
DELETEITEMS procedure that takes the List box as the parameter
deleteitems lstavailable
End Sub
Listing
5.5: Code to move selected items from left to
right.
Creating user-defined procedure (DELETEITEMS)
The following are the steps to create
user-defined procedure DELETEITEMS.
1.
Invoke Code window by pressing F7.
2.
Select Tools-> Add Procedure.
3.
Enter the name of the procedure
as DeleteItems.
4.
Click on Ok. Now Visual Basic displays skeleton for the named procedure.
5.
Enter code between Sub and End
Sub.
Private
Sub cmdMRL_Click ()
With
lstselected
'
move currently selected subject to LSTAVAILABLE
For i = 0 To .ListCount - 1
If .Selected(i) Then
' move current item
lstavailable.AddItem .List(i)
End If
Next
End
With
'
delete currently selected subjects from LSTSELECTED by calling
'
DELETEITEMS procedure that takes the List box as the parameter
deleteitems
lstselected
End Sub
Private
Sub cmdmlr_Click()
With
lstavailable
'
move currently selected subject to LSTSELECTED
For i = 0 To .ListCount - 1
If .Selected(i) Then
' move current item
lstselected.AddItem .List(i)
End If
Next
End
With
'
delete currently selected subjects from LSTAVAILABLE by calling
'
DELETEITEMS procedure that takes the List box as the parameter
deleteitems lstavailable
End Sub
Listing
5.6: Code for > and < command buttons.
The following is the code for CMDQUIT
button.
Private Sub cmdquit_Click()
Unload Me
End Sub
Listing
5.7: Code for quit button.
Public
Sub deleteitems(lb As List box)
Dim i
as integer
‘
set the loop to move from bottom to top.
For
i = lb.ListCount - 1 To 0 Step –1
‘
delete the item if the item is currently selected
If lb.Selected(i) Then
lb.RemoveItem i
End If
Next
End Sub
Listing
5.8: Code for procedure DELETEITEMS.
Test Run
Take the following steps to understand what
this application can do!
1.
Run the project using F5.
2.
Select Oracle and Visual Basic
and click on > to move those two
subjects.
3.
Now click on << to move all selected subjects
back to Available subjects List box.
4.
Click on >> to select all available subjects.
5.
Select C++ and Java and click
on < to move subjects from Selected List box to Available subjects List box.
The following is the procedure DELETEITEMS
that is used to delete all selected items in a multiselect List box.
Combo box control
A Combo box control provides the features
of a List box, selecting an item from the list of items, and a textbox, where
user can enter a new value if the value is not existing in the supplied list.
A Combo box may be used in the following
cases:
¨
Where user wants to key-in the
value if the required value is not existing in the given list
¨
Where you have less space but
you have to accommodate a list of values. As Combo box displays list only on
demand (when user click on down arrow) and display only the selected item, it
doesn’t occupy much space on the form.
Properties of Combo box
Though most of the properties of List box
also apply to Combo box, here are the properties that are specific to Combo
box.
Property
|
Meaning |
Locked
|
If it is set
to True, you can enter value in
Combo box. You can only select existing value.
|
Style
|
Determines
the appearance and functionality of the Combo box. The following are the
valid values:
0 (Default) Dropdown Combo – Allows selection as well as editing the text.
1 - Simple Combo –
Displays List box, which doesn’t drop down and a textbox.
2 – Dropdown List -
Allows selection only from the drop-down list.
|
Selstart, Sellength, and Seltext
|
They carry the same meaning that they have for Textbox. See
chapter 3
|
Table
5.4: Properties that are specific to Combo box.
Note: multiple selection doesn’t apply to a Combo box. So properties like
Selcount, Selected() are not available to Combo box.
Exercises
1.
What property is used to get
the count of items in a List box?
2. What is the difference between ListCount
property and SelCount property?
3.
What is the return value of
property Selected (0) when first
item in a multiselect List box is selected.
4.
Which property returns the item
that is currently selected?
5.
Which property returns the
index of the item that is currently selected in List box?
6.
Is Selected property available for a Combo box?
7.
How do you add item “Teddy” at
5th position of a List box?
8.
Which method is used to delete
all the items of a List Box?
9.
When an item is removed using RemoveItem method, does it change ListCount property immediately?
10.
How do you make a Combo box a
drop-down List box?