• Viernes 17 de Mayo de 2024, 04:18

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - Maiskov

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Necesito Un Arreglo En El Siguiente Codigo
« en: Domingo 16 de Marzo de 2008, 15:27 »
If My.Computer.Clipboard.ContainsText Then
text = My.Computer.Clipboard.GetText
End If

ESTE ES EL CODIGO QUE UTILIZA VISUAL BASIC 2005 EXPRESS PARA OBTENER ALGO DEL PORTAPAPELES PERO NO LO HACE, ME EXPLICO LO QUE ESTOY HACIENDO ES QUE EL PROGRAMA CREE UN ARCHIVO QUE COPI UNA COSA AL PORTAPAPELES (HASTA AY TODO BIEN) Y QUE DESPUES LO OBTENGA PONGO ESE CODIGO PERO NO FUNCIONA OS DEJO EL CODIGO FUENTE DE ESE TROCITO PARA QUE VEAIS QUE ES LO QUE OCURRE... LO UNICO QUE HACE MAL ES OBTENER EL CODIGO DEL PORTAPAPELES:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Clipboard.SetText("Codigo de prueba")
My.Computer.FileSystem.WriteAllText("C:\Test.txt", String.Empty, False)
Dim text As String
If My.Computer.Clipboard.ContainsText Then
text = My.Computer.Clipboard.GetText
End If

End Sub

TODO ESO ESTA EN UN BOTON

MUCHISIMAS GRACIAS

Páginas: [1]