Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/03/2008, 06:32
Avatar de Maiskov
Maiskov
 
Fecha de Ingreso: marzo-2008
Mensajes: 17
Antigüedad: 16 años, 2 meses
Puntos: 0
Exclamación Ayuda on este sencillo codigo

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

ESO ESTA EN UN BOTON