Pegar desde el portapapeles cuando recibe informacion de un puerto com
Publicado por Luis (1 intervención) el 18/11/2020 22:49:16
Hola necesito ayuda, estoy haciendo una interface que copie los datos que recibe de una bascula puerto com al portapapeles, pero quiero que lo pegue en cualquier otro lugar simulando CTRL+V ya que lo ocupo en otro programa que no puedo manuipular.
tengo este codigo, pero ahora necesito saber como emular CTRL+V para que pegue automáticamente la informacion una vez que la bascula envíe la info.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.BaudRate = 9600
SerialPort1.PortName = "COM1"
SerialPort1.Open()
Timer1.Start()
Me.Text = "Scale Reader status : CONNECTED"
End Sub
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
Timer1.Stop()
SerialPort1.Close()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim i As Single = SerialPort1.ReadExisting
lblValor.Text = i.ToString
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles COPIAR.Click
My.Computer.Clipboard.SetText(lblValor.Text)
End Sub
End Class
tengo este codigo, pero ahora necesito saber como emular CTRL+V para que pegue automáticamente la informacion una vez que la bascula envíe la info.
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
SerialPort1.BaudRate = 9600
SerialPort1.PortName = "COM1"
SerialPort1.Open()
Timer1.Start()
Me.Text = "Scale Reader status : CONNECTED"
End Sub
Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
Timer1.Stop()
SerialPort1.Close()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Try
Dim i As Single = SerialPort1.ReadExisting
lblValor.Text = i.ToString
Catch ex As Exception
End Try
End Sub
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles COPIAR.Click
My.Computer.Clipboard.SetText(lblValor.Text)
End Sub
End Class
Valora esta pregunta


0