Answer Needed A.S.A.P Listbox

Hello & welcome to the Forums Dingotar! :wave:

Will this help
Option Explicit
Private ListIndex As Integer 'variable to hold position enetered in textbox

Private Sub Command1_Click()
Select Case ListIndex 'what number was entered
Case 0 '0 was entered
MsgBox List1.List(ListIndex) 'show the corresponding list item
Case 1 '1 was entered
MsgBox List1.List(ListIndex)'show the corresponding list item
End Select 'just continue in the same fashion...
End Sub

Private Sub Text1_LostFocus()
ListIndex = CInt(Text1.Text) 'store & convert number entered to be used again later
End Sub

It's not perfect, but maybe one of the geniuses here on this forum can optimise it further:)

First set the list to the item you need.
I would put a Textbox (txtSpeedNum)for the speed number beneath the speed dial button (btnSpeedDial).
Then you enter the number in the text field and click the button
Assuming the list box is named lstNumbers

Private Sub btnSpeedDial_Click
lstNumbers.ListIndex = Val(txtSpeedNum.text) - 1
txtPhoneNumber.Text = lstNumbers.List(lstNumbers.ListIndex)
End Sub

That's all you need.

i will try the examples thanks

I slammed together a little sample which should make it clear.

I populate the list with some dummy phonenumbers during Form_Load().
Also I made the list itself clickable so the number you click appears in the txtPhoneNumber, just to show.

thanks alot it works :D YEY!

one lil question to finish it off.

i store my numbers in the listbox with a name and number

if i jsut key in a number into the phone and press call it enters the listbox called "unamed - (whatever number)

i also have the choice of entering a name a number seperatly with 2 textboxes. so i can type in Matt and 445 and it will show in the listbox as Matt - 445

when i use the listbox technique shown by WoF it enters both the name and number in to the Call field, is there any way to seperate the name a number from each other and just show the number when i press sped dial.

thanks again u have been a great help

thanks mate this works a treat :D

You got p which is the position of the " - " in the string.

Assuming Text4 to be your TextBox for the name, simply Text4.Text = Left$(List1.List(i), p - 1)
To avoid a crash when there is nothing before the " - " you could put this behind an If statement:

If p > 1 then Text4.Text = Left$(List1.List(i), p - 1)


I forgot: this goes under the 'If p Then' statement

Any more questions are welcome. :)

You can put the new one in the same place as the old one.
I assume List1.Listindex is still pointing to the item you want to change.
I further assume Text3 your phonenumber and Text4 your name.
So simply reassign them to the old list item:

List1.List(List1.Listindex) = Text4.Text + " - " + Text3.Text

Hm. I see what you are doing here...

You append the new item to the file to have it also saved and then reread the file into the listbox.

You could replace the new item in the list and then rewrite the file like this:

Private Sub Command14_Click()
'replace the old item with the new one
List1.List(List1.Listindex) = Text2.Text + " - " + Text3.Text

'rewrite the complete listbox to the file
filenum = FreeFile
'please note the backslash in the statement below
Open App.Path & "\NumList.txt" For Output As filenum
Dim i%
For i=0 to List1.ListCount - 1
Print #filenum, List1.List(i)
Next
Close #filenum

End Sub

If I may give some advice:
If you are using FreeFile to get a filenum you should also use this filenum in open, print, input and close statements like in above sample:
Print #filenum, "whatever".
Also please note, when saving and loading your file in the App.Path you have to specify the backslash to separate your filename from the path.
Your sample may not produce an error, but you wont find the file "NumList.txt" in your application path. You should go through your program and correct the usage of App.Path everywhere you used it to acces your file and add the "\" before your filename.