COLOCAR TEXTO NA AREA DE TRANSFERENCIA

USUARIO.EXCLUIDOS 04/12/2006 12:22:38
#187793
Oi!
Alguem sabe como posso colocar o conteudo de um campo texto na area de transferencia ?
Eu uso o comando SendKeys "{Home}+{End}" para marcar o campo, mas eu queria o comando para jogar o texto marcado para a area de trabalho automaticamente.

Agradeço qualquer ajuda
RODRIGOGBGOMES 04/12/2006 12:31:22
#187797
'coloca isso de preferencia em um modulo
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 funcao faça isso
AreaTransferencia text1 ' nao use a extensao ".text"
USUARIO.EXCLUIDOS 04/12/2006 12:34:08
#187799 
 

Clipboard.Clear ' limpa o ClibBoard
Clipboard.SetText Text1.Text ' Poe o texto no ClipBoard
USUARIO.EXCLUIDOS 04/12/2006 15:12:31
#187869 Resposta escolhida
KNILSSON, evite usar o SendKeys qdo tem outra opção, pq ele não funfa em alguns PCs...

Vc pode fazer assim pra selecionar:
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)


E pra copiar é o que a galera disse...

Agora se vc não sabe de qual textbox irá copiar (que será do ativo), então é assim:
Pra selecionar:
On Error Resume Next
Screen.ActiveControl.SelStart = 0
Screen.ActiveControl.SelLength = Len(Screen.ActiveControl.Text)


Pra copiar (não precisa tá selecionado):
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.Text


Para copiar o que tiver selecionado:
Clipboard.Clear
Clipboard.SetText Screen.ActiveControl.SelText


E se precisar, para colar:
Clipboard.Clear
Screen.ActiveControl.SelText = Clipboard.GetText


Qualquer dúvida poste...flw
Tópico encerrado , respostas não são mais permitidas
Voltar