Visual Basic - textbox

Life is soft - evento anual de software empresarial
   
Vista:

textbox

Publicado por Alexht (12 intervenciones) el 12/02/2008 04:48:20
Como puedo hacer para un textbox solo acepte un solo espacio entre palabras y no mas de un espacion entre ellas
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:textbox

Publicado por Pedro Luis (878 intervenciones) el 12/02/2008 12:28:42
Podría ser algo asi

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 And Len(Text1) = 0 Then KeyAscii = 0: Exit Sub
If KeyAscii = 32 And Mid(Text1, Len(Text1), 1) = " " Then
KeyAscii = 0
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:textbox

Publicado por Alexht (12 intervenciones) el 12/02/2008 15:04:47
Gracias por la ayuda, ya puse el codigo; no mepermite aceptar espacio al principio y eso esta muy bien, pero me sigue aceptando mas de un espacio entre cada palabra o caracter y deseo que no acepte mas de un espacion entre cada palabra o caracter.

te agradeceria mucho tu ayuda
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Juan Carlos

RE:textbox

Publicado por Juan Carlos (106 intervenciones) el 12/02/2008 19:50:34
Probá con:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
If Len(Text1.Text) = 0 Then
KeyAscii = 0
Exit Sub
ElseIf Text1.SelStart = 0 Then
KeyAscii = 0
ElseIf Text1.SelStart > 1 Then
If Mid(Text1.Text, Text1.SelStart, 1) = " " Then
KeyAscii = 0
ElseIf Mid(Text1.Text, Text1.SelStart + 1, 1) = " " Then
KeyAscii = 0
End If
End If
End If
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:textbox

Publicado por Alexht (12 intervenciones) el 13/02/2008 03:16:27
Solucionado el problema les agradezco mucho su ayuda
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar