 Autor
|
Tema: cada 4 espacio (Leído 3,500 veces)
|
papanoel_devacaciones
 Desconectado
Mensajes: 428
|
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
|
|
|
|
|
En línea
|
|
|
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
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
|
|
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
Mas recursivo 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
|
|
|
|
|
En línea
|
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
.HaDeS.: una prueba mas de q javascript es mas bonito hades 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(" ")}); |
|
|
|
|
En línea
|
|
|
|
Ferсhu
Desconectado
Mensajes: 1.215
Menos palabras y Mas codigos.
|
igualmente ni aclaro q keria q las teclas se presionen en un textbox por eso.....Private Sub Form_KeyPress(KeyAscii As Integer)  |
|
|
|
|
En línea
|
|
|
|
HaDeS, -
WarZone Master
Desconectado
Mensajes: 284
|
.HaDeS.: una prueba mas de q javascript es mas bonito hades 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 Private Sub t_Change():e=e+1:If e=4 Then t=t+" ":e=0:t.SelStart=Len(t) End Sub
|
|
|
|
|
En línea
|
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
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(" ")}
|
|
|
|
|
En línea
|
|
|
|
APOKLIPTICO
Desconectado
Mensajes: 3.871
Toys in the attic.
|
Che pueden dejar de pelearse por cual es el mejor lenguaje? este es un foro de Visual Basic!
|
|
|
|
|
En línea
|
AMD Phenom II 1075T X6 @ 290 Mhz x 11 (HT 2036 Mhz NB Link 2616 Mhz) 1.23 Vcore
ASUS M4A89GTD-PRO/USB3
2x2gb G-Skill RipjawsX DDR3 1600 Mhz CL7 (7-8-7-24-25-1T)
Seagate 500 Gb
XFX HD4850 512Mb GDDR3. 650 Mhz/995 Mhz 1.1 Tflops.
|
|
|
sirdarckcat
Aspirante a supervillano
Colaborador
Desconectado
Mensajes: 7.029
No estoy loco, soy mentalmente divergente
|
no nos estamos peleando tamos jugando xD nomas para terminar.. 74 chars t.onkeypress=function(){with(t)value=value.match(/[^ ]{1,4}/g).join(" ")}
Saludos!! |
|
|
|
|
En línea
|
|
|
|
|
 |
