CLIPBOARD.GETTEXT EM UM BLOCO DE NOTAS
Bom dia pessoal utilizo a função Clipboard.SetText(TextBox1.Text) para copiar o texto da textbox, porem preciso colar este texto em um bloco de notas ou broffice, como faço pra que isso aconteça?
Obrigado.
Obrigado.
Na verdade, o uso do ClipBoard não seria o mais recomendado, mesmo porquê, por questões de segurança, a .Net Framework e as novas versões do Windows validam a UAC para diversas operações, dentre elas o acionamento de teclas de atalho e o uso da ClipBoard.
No caso, você pode salvar o conteúdo (texto) em um arquivo e [Ô]executar[Ô] esse arquivo na aplicação padrão do usuário (BrOffice, Notepad ou outra, que esteja associada á extensão do arquivo), via Process. Algo como:
Com alguma adaptação nessa rotina, é possÃvel ainda aguardar o término da edição do texto e ler o resultado das alterações, como em:
Valew!
No caso, você pode salvar o conteúdo (texto) em um arquivo e [Ô]executar[Ô] esse arquivo na aplicação padrão do usuário (BrOffice, Notepad ou outra, que esteja associada á extensão do arquivo), via Process. Algo como:
...
Dim nomeDoArquivo As String = [Ô]meuArquivo.txt[Ô]
Dim texto As String = [Ô]Texto que você deseja editar no aplicativo externo.[Ô]
My.Computer.FileSystem.WriteAllText(nomeDoArquivo, texto, False)
Process.Start(nomeDoArquivo)
...Com alguma adaptação nessa rotina, é possÃvel ainda aguardar o término da edição do texto e ler o resultado das alterações, como em:
...
Dim nomeDoArquivo As String = [Ô]meuArquivo.txt[Ô]
Dim texto As String = [Ô]Texto que você deseja editar no aplicativo externo.[Ô]
My.Computer.FileSystem.WriteAllText(nomeDoArquivo, texto, False)
Dim p As System.Diagnostics.Process
Try
p = New System.Diagnostics.Process()
p.StartInfo.FileName = nomeDoArquivo
p.StartInfo.WindowStyle = ProcessWindowStyle.Normal
p.Start()
p.WaitForExit()
p.Close()
texto = My.Computer.FileSystem.OpenTextFileReader(nomeDoArquivo).ReadToEnd
MessageBox.Show(String.Format([Ô]{0}[Ô], texto), [Ô]Texto alterado[Ô])
Catch ex As Exception
MessageBox.Show([Ô]O servidor retornou a mensagem: [ô][Ô] & ex.Message, [Ô]Error[Ô])
End Try
...Valew!
Tópico encerrado , respostas não são mais permitidas