FUNCAO CTRL C. - URGENTE!

USUARIO.EXCLUIDOS 23/08/2007 13:01:47
#232245
Caros amigos,

estou precisando de uma função para copiar um texto, a partir de um botao de comando.

Ex.:

Quando clicar no botao, ele seleciona e copia o texto que está no TextBox, para que eu possa colar em outro lugar.


Alguem sabe me ajudar, por favor!

Vlw!
RODRIGOGBGOMES 23/08/2007 13:08:35
#232252 Resposta escolhida
Public Function AreaTransferencia(ByVal TextBox As Object)
On Error GoTo err_exit
TextBox.Text = TextBox.Text
Clipboard.Clear
Clipboard.SetText TextBox.Text
err_exit:
End Function

pra chamar a função faça assim 

Private Sub SeuBotao_Click()
AreaTransferencia SuaTextBox 'nao precisa colocar o ".text" 
end Sub


espero q tenha ajudado flw
USUARIO.EXCLUIDOS 23/08/2007 13:11:14
#232253
copiar

[c]Public Function GetSendText() As String
Clipboard.SetText Text1.Text
cht_Window1.SetSendText (cb)
End Function

[/c]
colar

      Dim cb As String
      cb = Clipboard.GetText
[c]Public Sub SetSendText(txt As String)
Text1.Text = txt
End Sub

[/c]

Att,

Marcelo bressan
RODRIGOGBGOMES 23/08/2007 13:11:21
#232254
lembrando que nessa função vc colocou o texto na area de transferencia "clipboard" pra colar é normal... botao direito "colar" ou "crtl + v"
Tópico encerrado , respostas não são mais permitidas
Voltar