none
Ctrl+c e Ctrl+v...que codigo no Visual Basic? RRS feed

  • Pergunta

  • Olá, amigos,

    Ctrl+c e Ctrl+v via teclado é simples, certo?

    Mas, gostaria que ao apertar um botão, realizasse este comando como se fosse no teclado...é possível?

    Por ex.
    Criei: TextBox1, TextBox2, Botão 1 e Botão 2

    Escrevo qualquer texto no Textbox 1 e aperto Botão 1 e depois ao apertar o Botão 2, quero que apareça o que escrevi no TextBox1 no TextBox2

    Sei que utilizando o clipboard funciona mas, não queria utilizar o clipboard e sim os comandos em código.

    Obrigado pela atenção de todos.

    domingo, 26 de setembro de 2010 16:04

Respostas

  • Agora entendi.

    Comando Ctrl + C = Clipboard.SetText(TextBox1.Text)

    Comando Ctrl + V = TextBox2.Text = Clipboard.GetText()

    Aqui no exemplo que criei o TextBox1 é o Textbox do primeiro aplicativo, e o TextBox2 é o Textbox do segundo Aplicativo.

    Código do botão do primeiro aplicativo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Clipboard.SetText(TextBox1.Text)
    End Sub

    Código do Botão do Segundo aplicativo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox2.Text = Clipboard.GetText()
    End Sub

    ^_^

    domingo, 26 de setembro de 2010 21:32

Todas as Respostas

  • Olá Novato2010,

    Essa é uma tarefa bem simples.Observe o código abaixo:

     Dim copy As String
      Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
          MsgBox("Insira uma entrada", , "Entrada Inválida")
          Exit Sub
        End If
        copy = TextBox1.Text
      End Sub
      Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
          MsgBox("Insira uma entrada", , "Entrada Inválida")
          Exit Sub
        End If
        TextBox2.Text = copy
      End Sub
    

    Apenas uma sujestão: Se hovesse apenas um botão para executar essa tarefa talvez seria melhor, pelo menos bem mais fácil.Daí o código do botão ficaria assim:

    TextBox2.Text = TextBox1.Text

    Espero ter ajudado.

    domingo, 26 de setembro de 2010 18:47
  • Herbert,

    Obrigado pela dica.

    mas, na verdade não era isso o que eu queria...me desculpe, acho que formulei mal a pergunta.

    Na verdade o que eu gostaria de saber é como posso executar um comando de  Ctrl + V ao apertar um Botão.

    Ou seja, Botão 1 = Ctrl + C  e Botão 2 = Ctrl + V

    Vou explicar porque preciso disso:

    1) Criei um programa com um TextBox e Botão.
    2) Criei um segundo programa totalmente separado do primeiro: Criei TextBox e Botão

    Agora, inseri uma frase no TextBox do primeiro programa e ao apertar o Botão, seria Ctrl + C (Copiar frase do TextBox).
    Depois, no outro programa, ao apertar Botão, seria Ctrl + V, colando a frase copiada no TextBox.

    Será que é possível?

     

    domingo, 26 de setembro de 2010 20:38
  • Agora entendi.

    Comando Ctrl + C = Clipboard.SetText(TextBox1.Text)

    Comando Ctrl + V = TextBox2.Text = Clipboard.GetText()

    Aqui no exemplo que criei o TextBox1 é o Textbox do primeiro aplicativo, e o TextBox2 é o Textbox do segundo Aplicativo.

    Código do botão do primeiro aplicativo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            Clipboard.SetText(TextBox1.Text)
    End Sub

    Código do Botão do Segundo aplicativo:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            TextBox2.Text = Clipboard.GetText()
    End Sub

    ^_^

    domingo, 26 de setembro de 2010 21:32
  • Obrigado,

    Agora, tenho outra dúvida mas, vou abrir outro Threads.

    Abs

    domingo, 26 de setembro de 2010 22:27
  • Se a resposta solucionou seu problema não esqueça de qualificar para benificiar outros membros do forúm.

    segunda-feira, 27 de setembro de 2010 16:25