http://foro.elhacker.net/index.php/topic,51341.msg208635.html#msg208635
y lo podes modificar... para usar switch...
salu2
y lo podes modificar... para usar switch...
salu2
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCita de: Casidiablo en 18 Septiembre 2006, 20:43 PMCita de: BenRu en 18 Septiembre 2006, 03:46 AM
Me gustaria que algo asi se hiciese en el foro....pero vamos...esto es como hablarle a la pared xD
XDDDD, que sarcasmo XDD. En mi opinión, los que entablen una amistad que usen el msn o utilizen su propio canal irc. Como han dicho, el irc se prestó para peleas y eso.
Saludos!!!
Function text_change(Text As String, LcaseA As String, UcaseA As String)As String
If NextKey$ = "a" Then Let NextKey$ = LcaseA$
If NextKey$ = "A" Then Let Nextkey$ = UcaseA$
Let NewSent$ = NewSent$ + NextKey$
Loop
text_change = NewSent$
End Function
---------------------------------------
Private Sub Crear_Click()
Result.Text = text_change(Text.Text, "@", "/\")
End Sub