\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
Dim a As Integer
PictureBox1.border = Border.Raised
PictureBox1.Stretch = True
PictureBox1.Picture = Picture[Application.Path &/ "dragon.png"]
End
Public Sub ButtonPegar_Click()
Dim a As Integer
\'AƱado el contendido del portapapeles al textArea
LabelMensaje.text = "El contenido del portapapeles tiene los siguientes formatos: "
For a = 0 To Clipboard.Formats.Count - 1
LabelMensaje.text &= " " & Clipboard.Formats[a] & "|"
Next
TextAreaContenido.text &= Clipboard.Paste("text/plain")
If Clipboard.format = "image/png" Then
\'cargo imagen en el picturebox1
PictureBox1.Picture = Clipboard.Paste().picture
Endif
End
Public Sub ButtonCopiar_Click()
\'copio el texto que haya en el textArea al porpatapeles
Clipboard.Copy(TextAreaContenido.text)
End
Public Sub ButtonCopiarImagen_Click()
\'copio imagen que esta en el picurebox1
Clipboard.Copy(PictureBox1.Picture.image)
End