-
Ok I am new to VB and have been able to figure out a few things that I need to do AND most of what I want to do is probably pretty basic compared to most of you but I'm gonna ask anyway! So that being said even a link to the basic stuff would be appreciated.
I have some combo/list boxes on my project and would like to have the ability to have the user add text and remove text to and from the list. I must have come close to the correct code but the best I could do was everytime you typed in a letter another blank space came up on the list :)
I have really no backgroung in programming but I do find it quite interesting (to say the least).
So.... anyone interested in adding something that my peanut cant quite understand?
I thank you in advance for anyone that will take the time to help me out.
I really have spent a while looking around before I decided to post and couldnt find quite what I'm looking for.
First post, first question...more to come I'm sure.
-
well you could have a textbox and a 2 command buttons and then have this code
Code:
'to add items
Private Sub Command1_Click()
List1.AddItem Text1.Text
'or
Combo1.AddItem Text1.Text
End Sub
'to remove individual items
Private Sub Command2_Click()
List1.RemoveItem List1.SelectedItem
End Sub
-
Wow your quick. Thanks. However I guess what I want is a little more complicated than that (surely not much).
In my usual haste I forgot to mention that I have the word "OTHER" in the list box and was hoping that when it was selected that I could have a inputbox open up and give the choice to add the item to the list.
-
Code:
Dim Message, Title, Default ,retval
If List1.Text="OTHER" then
Message = "Enter Item to add" ' Set prompt.
Title = "Adding an Item" ' Set title.
Default = "SomeItem" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
List1.additem MyValue
End If
This is untested but should work put it in the mouse up event of your listbox
[]P
-
Thank you both very much. I'll scurry right off and try it.
Ok I guess I missed something probably in the "mouse up event of your listbox".
This is exactly what I have,
Private Sub Combo1_Change()
Dim Message, Title, Default, retval
If Combo1.Text = "OTHER" Then
Message = "Enter Item to add" ' Set prompt.
Title = "Adding an Item" ' Set title.
Default = "SomeItem" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
List1.AddItem MyValue
End If
End Sub
Your quite welcome to slap me if I have missed something totally obvious to you.
[Edited by Buckaroo on 11-05-2000 at 02:28 PM]
-
Well now after my usual fumblings and regrets from my last post I have actually managed to get it to work...sort of.
Here is what I have so far and yes it does add to the combo box I have, however once the program is shut down and restarted it is gone. Must be very close to what I want but the final solution escapes me at this moment.
Private Sub Combo1_Click()
Dim Message, Title, Default, retval, MyValue
If Combo1.Text = "OTHER" Then
Message = "Enter Item to add" ' Set prompt.
Title = "Adding an Item" ' Set title.
Default = "New Product" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
Combo1.AddItem MyValue
End If
End Sub
Any other suggestion from the great people around here would be kindly accepted :)
[Edited by Buckaroo on 11-05-2000 at 08:14 PM]
