CORRECÇÃO: Falha de arrastar/soltar do controle ListView

Traduções deste artigo Traduções deste artigo
ID do artigo: 171506 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sintomas

No Visual Basic 5.0, a funcionalidade de arrastar-e-soltar do controle ListView não funcionar corretamente se a propriedade DragMode do controle ListView é definida como 0 (manual). Operação automática de arrastar-e-soltar funciona corretamente.

Situação

A Microsoft confirmou este é um bug em produtos Microsoft listados no começo deste artigo. Esse bug foi corrigido no Visual Studio 97 Service Pack 2.

Para obter mais informações sobre o Visual Studio 97 Service Pack 2, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
170365: INFO: Visual Studio 97 Service Packs-, onde e por que

Para obter uma lista de bugs Visual Basic 5.0 que foram corrigidos no Visual Studio 97 Service Pack 2, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
171554: INFO: Visual Basic 5.0 correções no Visual Studio 97 Service Pack 2

Mais Informações

Etapas para reproduzir o problema

  1. Crie um novo projeto EXE padrão.
  2. Colocar dois controles ListView no formulário (ListView1 e ListView2).
  3. Coloque o código a seguir na seção Declaração geral do formulário:
        Private Sub Form_Load()
            Dim Li As ListItem
            Set Li = ListView1.ListItems.Add(, , "hello")
            Set Li = ListView1.ListItems.Add(, , "hello2")
            Set Li = ListView1.ListItems.Add(, , "hello3")
        End Sub
    
        Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, _
        x As Single, y As Single)
           Set ListView1.SelectedItem = ListView1.HitTest(x, y)
           ' In the following line any ICO file will do
           ListView1.DragIcon = LoadPicture _
           ("C:\program files\microsoft visual basic\samples\calc\calc.ico")
           ListView1.Drag vbBeginDrag
        End Sub
    
        Private Sub ListView2_DragDrop(Source As Control, x As Single, _
        y As Single)
           MsgBox "Hello"
           Dim li2 As ListItem
           Set li2 = ListView2.ListItems.Add(, , Source.SelectedItem.Text)
        End Sub
    
    						
  4. Executar o formulário e tente arrastar "hello" de ListView1 para ListView2. Observe que o ícone de arrastar desaparece quando o item é movido.

Propriedades

ID do artigo: 171506 - Última revisão: quarta-feira, 10 de dezembro de 2003 - Revisão: 2.0
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic Control Creation Edition
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
Palavras-chave: 
kbmt kbbug kbfix kbvbp500sp2fix kbvs97sp2fix KB171506 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 171506
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com