Programación General > Visual Basic 6.0 e inferiores

 Cambiar Texto

<< < (2/3) > >>

Toph:
:P bueno, para hacer la rutina al azar utilice la funcion para sacar numeros aleatorios de visual "RND", si el numero es par pasa a mayuscula si es impar pasa a minuscula, asi introduci en el text1: Hola Amigos, al presionar el boton una vez obtuve holA AmIGos, luego al presionarlo otra vez obtuve HOLA AmIGoS , cada vez diferente :)

siempre igual con dos textbox y un boton


--- Citar ---Option Explicit
Dim ini As Integer
Dim texto As String
Dim a As String
Dim lstexto As String
Dim x As Integer

Private Sub Command1_Click()
lstexto = Empty
texto = Text1.Text
For ini = 1 To Len(texto)
x = Int(Rnd * 4) + 1 'esto generara al azar los numeros
'la rutina Int(Rnd * 4)'genera numeros al azar del 0 al 3
'ese 1 es para que los numeros generados al azar sean del 1 al 4
 a = Mid(texto, ini, 1)
If Val(x) Mod 2 = 0 Then 'esta funcion es para saber si un numero es par
  lstexto = lstexto & UCase(a)
Else
  lstexto = lstexto & LCase(a)
End If
Next ini
Text2.Text = lstexto
End Sub
--- Fin de la cita ---

saludos  :hola:

cluster:
yo le podria un ramdomize despues del for.

Envenenado:
Jaja..! Esta barbaro.! Funca de encerio! Muy buen codigo che. =) Te felicito.

Para mi lo unico que le faltaria es un boton "Copiar" para copiar el resultado (Text2.text) ya que lo he intentado y solo consigo que se copie para "el mismo programa" y no para programas externos. Me explico?

Toph:

--- Citar --- Para mi lo unico que le faltaria es un boton "Copiar" para copiar el resultado (Text2.text) ya que lo he intentado y solo consigo que se copie para "el mismo programa" y no para programas externos. Me explico?
--- Fin de la cita ---

 :huh: sinceramente no te entiendo, ¿a donde quieres copiar lo que te da en text2.text?   ¿programas externos, como cuales?

Envenenado:
Pues mira. Yo en el proyecto tengo un command asi:

--- Código: Text ---Private Sub Command1_Click()Clipboard.SetText (Text1.Text)End Sub 
Eso supuestamente deja el text1.text en el clipboard. Pero si luego de hacer clik, te vas nose, a un fotolog, o a escribir una direccion de internet, y pones CTRL+V o PEGAR pega lo que anteriormente tenias asignado al clipboard y si no tenias nada no te pega nada. En definitiva, solo "copia" para la applicacion misma parece.

Alguien sabe un codigo que pueda copiar bien?

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior