none
Como posso usar o método Copy e Paste? RRS feed

  • Pergunta

  • O pessoal quem poder me ajudar neste tópico agradeço, vi este exemplo no ajuda do access:

    Exemplo dos métodos Copy, GetFromClipboard e GetText e do objeto DataObject

    O exemplo a seguir demonstra a movimentação dos dados de um TextBox para a Área de transferência, da Área de transferência para um DataObject e de um DataObject dentro de outro TextBox. O método GetFromClipboard transfere os dados da Área de transferência para um DataObject. Os métodos Copy e GetText também são utilizados.

    Para utilizar este exemplo, copie esse código de exemplo na parte de Declarações de um formulário. Certifique-se de que o formulário contenha: 

    Dois controles TextBox denominados TextBox1 e TextBox2.


    Um CommandButton denominado CommandButton1. 
    Dim MyData as DataObject

    Private Sub CommandButton1_Click()
    'Need to select text before copying it to Clipboard
    TextBox1.SelStart = 0
    TextBox1.SelLength = TextBox1.TextLength
    TextBox1.Copy

    MyData.GetFromClipboard
    TextBox2.Text = MyData.GetText(1)
    End Sub

    Private Sub UserForm_Initialize()
    Set MyData = New DataObject
    TextBox1.Text = "Move this data to the " _
    & "Clipboard, to a DataObject, then to "
    & "TextBox2!"
    End Sub 


    Então mas o que preciso é algo bem mais simples que é depois de atualizar um textbox, pegar o conteúdo dele jogar para área de transferência,depois resgatar em outro form,eu tentei mas está dando erro de método não encontrado,ele não encontra nem o Copy e nem o Paste.Fiz assim,no form de origem:

    Private Sub Placa_AfterUpdate()
    Placa.SelStart = 0
    Placa.SelLength =Placa.TextLength
    Placa.Copy
    End Sub


    E no form de destino(também dentro do textBox chamado Placa):

    Private Sub Placa_GotFocus()
    Placa.SelStart = 0
    Placa.SelLength =Placa.TextLength
    Placa.Paste
    End Sub


    Fico no aguardo se puderem me ajudar nesta,Obrigado!
    segunda-feira, 6 de fevereiro de 2012 16:49