buenas tengan todos
tengo un problema con el control text y la posiscion del puntero.
resulta que cuando hago esto
text1.Text = vbCrLf & "[config]"
text1.Text = text1.Text + vbCrLf
me sucede lo siguiente.
1. el puntero simepre se posiciona al comienzo
2. no me pasa de "[config]" creandome un bucle infinito
como puedo solucionar el problema?
para mayor detalle les dejo el code completo:
en un form colocar un control text, un list, el text debe ser multiline
un boton
Private Sub Form_Load()
Code = 101
list1.AddItem "0" & Code
End Sub
Private Sub Command1_Click()
Code = 200
list1.AddItem "0" & Code
text1.Text = vbCrLf & "[config]"
Code = 201
list1.AddItem "0" & Code
text1.Text = text1.Text + vbCrLf
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Code = Code + 1
list1.AddItem "0" & Code
End If
End Sub