Johnny
asked on
how can i make a history in a text box
how can i make a history ina text box so when you use the uparrow or down arrow it remebered what youve typed before??
much like the old doskey fuction?
and it there a way to list whats in the history too???
thanks alot
much like the old doskey fuction?
and it there a way to list whats in the history too???
thanks alot
You would be better off using a combobox for this instead of a textbox.
ASKER
ok JR2003 ill go for that
i have a send button and a text box on the form now
heres what i want to do
i want it to have a history of items(yep a combo box would do that) and if a user hits enter it will fire the send button
id also like to have it when an item is picked it does not fire unless the send button is pressed(so they can change stuff)
how do i go about doing that
i have a send button and a text box on the form now
heres what i want to do
i want it to have a history of items(yep a combo box would do that) and if a user hits enter it will fire the send button
id also like to have it when an item is picked it does not fire unless the send button is pressed(so they can change stuff)
how do i go about doing that
Here is some basic code that does what you requested:
Option Explicit
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i As Integer
Dim value As String
If KeyAscii = 13 Then
KeyAscii = 0
value = Combo1.Text
If value <> "" Then
' do something with value
Debug.Print value
' remove item from middle of list if it exists
For i = 1 To Combo1.ListCount - 1
If Combo1.List(i) = value Then
Combo1.RemoveItem (i)
Exit For
End If
Next i
' add item to top of the list
Combo1.AddItem value, 0
' reset the combobox
Combo1.Text = ""
End If
End If
End Sub
Private Sub Command1_Click()
Combo1_KeyPress (13) ' simulate enter being pressed on combobox
End Sub
Option Explicit
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim i As Integer
Dim value As String
If KeyAscii = 13 Then
KeyAscii = 0
value = Combo1.Text
If value <> "" Then
' do something with value
Debug.Print value
' remove item from middle of list if it exists
For i = 1 To Combo1.ListCount - 1
If Combo1.List(i) = value Then
Combo1.RemoveItem (i)
Exit For
End If
Next i
' add item to top of the list
Combo1.AddItem value, 0
' reset the combobox
Combo1.Text = ""
End If
End If
End Sub
Private Sub Command1_Click()
Combo1_KeyPress (13) ' simulate enter being pressed on combobox
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
please bare with me i wont be able to get to tghis tight away will try to check on it sunday aug,22
ASKER
please give me a few days for this guys im having personel prroblems right now but i will get back to it thanks for the replys one looks as if it will work..