From textBox To Listbox

esperanto234

"HI! im using the following code to fill a listbox from a textbox

Code:
Dim strNMBCY As Long
strNMBCY = Len(UserForm1.txtNMB)

If strNMBCY > 1 Then
UserForm2.ListBox1.AddItem UserForm1.txtNMB
UserForm2.ListBox2.AddItem UserForm1.txtNMB
End If

The problem is that it fills in a strange way Ex:
If I write in the textbox = Phill
It shows in the listbox like this =
P
Ph
Phi
Phil
Phill

Instead of only one word = Phill

CyberSoftHari

check the event of the code part? i think it will be in textbox or form, keypress or key up or down events

esperanto234

Quote:

Originally Posted by CyberSoftHari

check the event of the code part? i think it will be in textbox or form, keypress or key up or down events

The event is change, and with the other events is the same thing!! HELP PLEAASEEE

smartchap

Since u have placed code in the Change event of txtNMB in UserForm1, as soon as u change any data in txtNMB (either delete a character or add a character) addition of content of txtNMB will take place in ListBox1 & ListBox2 in UserForm2. So I think u can put this code either in other command button or in the LostFocus event of txtNMB. Or u place the code in the KeyPress event of txtNMB with a check that if KeyPress is vbKeyReturn then go to the code like:

Expand|Select|Wrap|Line Numbers

 
Private Sub TxtNMB_KeyPress(KeyAscii As Integer)

  If KeyAscii = vbKeyReturn then

     ......ur code here to add items to ListBoxes

  End If

End Sub

esperanto234

Quote:

Originally Posted by smartchap

Since u have placed code in the Change event of txtNMB in UserForm1, as soon as u change any data in txtNMB (either delete a character or add a character) addition of content of txtNMB will take place in ListBox1 & ListBox2 in UserForm2. So I think u can put this code either in other command button or in the LostFocus event of txtNMB. Or u place the code in the KeyPress event of txtNMB with a check that if KeyPress is vbKeyReturn then go to the code like:

Expand|Select|Wrap|Line Numbers

 
Private Sub TxtNMB_KeyPress(KeyAscii As Integer)

  If KeyAscii = vbKeyReturn then

     ......ur code here to add items to ListBoxes

  End If

End Sub

Thank you very much, I used the initialized event in the other form and it works perfectly.

From textBox To Listbox

re: From textBox To Listbox

re: From textBox To Listbox

re: From textBox To Listbox

re: From textBox To Listbox

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about