cada 4 espacio

[papanoel_devacaciones]

Hola , podrian decirme como hacer que cada 4 letras o numeros  que escribas en un formulario te ponga us espacio...es para un programita que estoy creando 
que tendra tambien editor hex....gracias









saludos

[Ferсhu]

No es por ofender eh...pero si no sabes como hacer eso dificil q hagas un programita jaj

EVENTOS!!!!!!!!!! EVENTOS!!!!!!!!!

[yeikos]

Código (vb) [Seleccionar] Expandir

Function fncSpace(strText As String)
    For i = 1 To Len(strText)
        x = x & Mid(strText, i, 1)
        If i Mod 4 = 0 Then x = x & Chr(32)
    Next
    fncSpace = x
End Function

[HaDeS, -]

Mas recursivo

Código (vb) [Seleccionar] Expandir


Dim e&
Private Sub Text1_Change()
e = e + 1
If e = 4 Then Text1.Text = Text1.Text + " ": e = 0: Text1.SelStart = Len(Text1.Text)
End Sub


[sirdarckcat]

.HaDeS.:

una prueba mas de q javascript es mas bonito hades

Código (javascript) [Seleccionar] Expandir

text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")}
y si funciona xD, ve a donde dice responer, o crear nuevo mensaje, y pon en la barra de direcciones:
javascript:text1=document.postmodify.message;alert(text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")});

[Ferсhu]

igualmente ni aclaro q keria q las teclas se presionen en un textbox

por eso.....Private Sub Form_KeyPress(KeyAscii As Integer) 

[HaDeS, -]

.HaDeS.:

una prueba mas de q javascript es mas bonito hades

Código (javascript) [Seleccionar] Expandir

text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")}
y si funciona xD, ve a donde dice responer, o crear nuevo mensaje, y pon en la barra de direcciones:
javascript:text1=document.postmodify.message;alert(text1.onkeypress=function(){with(text1)value=value.match(/[^\s]{1,4}/g).join(" ")});

Mi codigo de 79 caracteres xD

Código (vb) [Seleccionar] Expandir


Private Sub t_Change():e=e+1:If e=4 Then t=t+" ":e=0:t.SelStart=Len(t)
End Sub


[sirdarckcat]

ah ps si puedes ponerle el nombre que sea al objeto..
75 chars


t.onkeypress=function(){with(t)value=value.match(/[^\s]{1,4}/g).join(" ")}

[APOKLIPTICO]

Che pueden dejar de pelearse por cual es el mejor lenguaje? este es un foro de Visual Basic!

[sirdarckcat]

no nos estamos peleando tamos jugando xD
nomas para terminar.. 74 chars

Código (javascript) [Seleccionar] Expandir

t.onkeypress=function(){with(t)value=value.match(/[^ ]{1,4}/g).join(" ")}
Saludos!!