USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Área de Transferência
Falcao
DIADEMA
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2006 12:59 hs            
Boa tarde pessoal.
Li as dicas sobre "Usando a Área de Transferencia", fiz o teste para copiar um texto da área de transferência e funcionou corretamente, só que agora fiquei com uma curiosidade: o windows apenas guarda o último texto que enviei para a área de transferência? 
 
Por exemplo:
No bloco de notas criei na 1º linha o seguinte texto: 1111111111111111111111111
Na 2º linha o seguinte texto: 2222222222222222
Na 3º linha o seguinte texto: 3333333333333333
 
Depois disso copiei uma linha de cada vez.
O programa apenas retornou os dados da 3º linha (3333333333333333).
O windows apaga da área de transferência automáticamente os dados da 1º e 2º linha?
Pois minha idéia era recuparar os dados que enviei para área de transferência das 3 linhas. É possível??
 
Obrigado.
 
 
 
 
 
   
   
Asdrubal
ITUIUTABA
MG - BRASIL
ENUNCIADA !
Postada em 12/01/2006 14:14 hs            

Isto é pardão do windows, guardar na área de transferência somente a última informação que foi passada. Tente usar um delimitador para depois vc quebrar as linhas.

ex.: linha1&linha2&linha3 onde & é o delimitador, depois vc quebre usando este delimitador e retornando o texto ao normal.

 

 


Asdrubal
Analista de Sistemas Júnior
   
Falcao
DIADEMA
SP - BRASIL
ENUNCIADA !
Postada em 12/01/2006 14:20 hs            
Obrigado pela dica asdrubal.
 
Vou tentar.
 
abraços
   
Tekki
Pontos: 2843 Pontos: 2843 Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 12/01/2006 19:12 hs            
Falcao, seguindo a dica do nosso amigo Asdrubal fiz este exemplo.
 
 
Dim sTexto As String
Sub cmdCopiar_Click()
    Clipboard.Clear
    sTexto = Text1.Text & "#$%" & Text2.Text & "#$%" & Text3.Text
    Clipboard.SetText sTexto
End Sub
Sub cmdColar_Click()
    Dim i As Integer
    Dim asTexto() As String
    sTexto = Clipboard.GetText()
    asTexto() = Split(sTexto, "#$%")
   
    Text4.Text = asTexto(0)
    Text5.Text = asTexto(1)
    Text6.Text = asTexto(2)
End Sub
 
Neste caso o delimitador é : #$%
 
Mas se o usuário der um Print Screen ou CTRL + C num texto ou num aqurivo, a função de colar, já era. Emoções
 
 
   
Falcao
não registrado
ENUNCIADA !
Postada em 13/01/2006 06:06 hs   
Obrigado pela dica Tekki.
 
A minha idéia inicial era capturar os links de videos, animes, programas..... em varios sites, e depois converte-los automaticamente para uma forma de lista que será importada pelo GetRight, USDownloader (gerenciador para MegaUpload, RapidShare..).
Eu consegui desenvolver que assim que eu dou um click com o botão direito do mouse e peço para copiar o link, ele automaticamente captura e limpa a área de transferência. Depois disso seleciono qualquer dos layout (GetRight ou USDownloader) e ele converte os link em lista de arquivo no padrão desses programas.
No momento não estou com meu código fonte aqui na empresa, pois, terminei a 24h00 em minha casa. Quando eu voltar para minha casa, lhe envio o código fonte para seu e-mail para analise, caso seja interessante publique-o nas dicas.
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página