COPIAR E COLAR

GABRIEL.LOGAN 20/03/2005 21:02:43
#73946
Gente eu sei copiar um texto:

Clipboard.Clear
Clipboard.SetText Rich.SelText


Mas na hora de colar acontece algo que eu queria evitar veja:

Eu copiei a palavra "logan".

Quando eu colo ela entre a palavra "teste1" e "teste2" na frase " teste1 teste2 " acontece que o texto é apagado e so aparece a palavra "logan" quando era pra ficar "test1 logan teste2". Estou usando o colar assim:

Dim area_tranferencia As String
If Clipboard.GetFormat(vbCFText) Then
area_tranferencia = Clipboard.GetText(vbCFText)
 Rich.Text = area_tranferencia
Else
End If


Como devo usar o colar pra ficar correto?
GABRIEL.LOGAN 21/03/2005 12:45:14
#74034
Alguem? Por favor me ajudem.

AGRADECIDO
USUARIO.EXCLUIDOS 21/03/2005 12:59:46
#74038 Resposta escolhida
é simples
coloque assim
Coloque o SELTEXT

Dim area_tranferencia As String 
Clipboard.SetText "logan"   'coloca na área de transferencia 'logan'
Rich = "Text1 Text2"    ' escreve no rich... a frase
Rich.SelStart = 6  'define aonde irá aparecer a palavra logan
area_tranferencia = Clipboard.GetText
Rich.[txt-color=#ff0000]SelText[/txt-color] = area_tranferencia

Resultado :
[txt-size=3]"""Text1 [txt-color=#0000ff]logan [/txt-color]Text2"""[/txt-size]

Entendeu? agora você pode adptar do seu jeito....
Não se esqueça de encerrar o tópico...
GABRIEL.LOGAN 21/03/2005 13:03:03
#74039
Vou analizar e a noite eu dou uma posição se funcionou, por enquanto eu agradeço. E a noite se tiver dado certo eu encerro o topico.

Obrigado
USUARIO.EXCLUIDOS 21/03/2005 13:06:17
#74042
Okkk... mas vai dar certo!! acabei de testar!!!
Mas tudo bem!!
Falou...
GABRIEL.LOGAN 21/03/2005 13:10:40
#74043
Cara ja adiantei e testei o código, deu certo. Valew.

So adaptei ele assim:


area_tranferencia = Clipboard.GetText(vbCFText)
 Rich.SelText = area_tranferencia


Pois o valor de Rich.SelStart será automaticamente onde eu cliquei.

Valew. Foi exatamente o que eu queria.
Tópico encerrado , respostas não são mais permitidas
Voltar