Página 1 de 1
Melhorias do textbox para o listbox
Enviado: Ter Out 29, 2019 6:39 pm
por RobertoCM
Olá boa tarde adaptei um modelo de textbox que envia os dados para o listbox ao preencher o terceiro textbox, porem começou apresentar erro ao tentar jogar os dados após a primeira linha também não tá aceitando letras e números, precisaria consertar esse codigo para colocar varias linhas uma abaixo da outra no listbox e que que aceite letras numeros ao prencher o ultimo textbox e dar Enter, alguem pode me ajudar nisso?
Segue o arquivo em anexo:
Re: Melhorias do textbox para o listbox
Enviado: Qua Out 30, 2019 7:17 pm
por Reinaldo
Experimente:
Ao "chamar" a rotina "retorna..." altere Cint para CStr
Código: Selecionar todos
Private Sub TextBox3_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If TextBox3 <> "" Then
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab Then
retornaUserForm1 CStr(TextBox3)
End If
End If
End Sub
Na Function "retorna..." altere o tipo esperado de integer para string
Código: Selecionar todos
Function retornaUserForm1(ByVal vCodigo As String)
Dim i
i = Me.ListBox1.ListCount
Me.ListBox1.AddItem TextBox1.Text
ListBox1.List(i, 0) = TextBox1.Text
ListBox1.List(i, 1) = TextBox2.Text
ListBox1.List(i, 2) = TextBox3.Text
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End Function
Re: Melhorias do textbox para o listbox
Enviado: Qua Out 30, 2019 9:50 pm
por RobertoCM
Obrigado deu certo.