Visual Basic é uma linguagem de programação publicado pela Microsoft para tornar mais fácil para os programadores a desenvolver aplicativos para o sistema operacional Windows . Como você pode suspeitar , ele suporta a adição de muitas características comuns às aplicações do Windows, incluindo a funcionalidade de " arrastar e soltar " . " Arraste e solte " ações funcionam da mesma forma como as ações "copiar e colar " , na medida do Visual Basic está em causa, e trabalhar através de uma combinação dos eventos MoveMove , DragEnter e DragDrop . Instruções
1
Crie um novo projeto , clicando em " Arquivo" e " Novo Projeto ".
2
clique duas vezes duas " TextBox " controles da guia " caixa de ferramentas" adicioná-los para a aplicação.
3
Clique na segunda caixa de texto. Clique no botão " Propriedades" guia e, dentro dela , clique no botão que se parece com um relâmpago. Localize a linha " DragEnter " e dê um duplo clique nele. Isto irá criar um método " DragEnter ", que será realizada sempre que um item arrastado entra na caixa de texto
4
Cole o seguinte código dentro do método da etapa anterior : .
E. efeito = DragDropEffects.Copy
Clique na aba " Form.vb [Design ]" para retornar à GUI ( Graphical User Interface) modo de design .
5
Clique na segunda caixa de texto novamente e voltar para a visualização Propriedades. Clique no relâmpago. Desta vez , selecione " DragDrop . " Aqui, você vai definir as ações a serem tomadas quando o texto é descartado :
TextBox2.Text = e.Data.GetData ( DataFormats.Text )
6
Clique no botão " Form. vb [Design] "tab. Selecione a primeira caixa de texto e selecione a opção " MouseDown " event:
MouseIsDown = True
Você também vai precisar para colar o seguinte logo abaixo da linha " Public Class Form1 " :
Dim MouseIsDown = False
7
Clique na aba " Form.vb [Design] " para voltar para o modo de design GUI e encontrar a propriedade " MouseMove " pela primeira caixa de texto. Clique duas vezes nele para produzir um evento de " MouseMove " . Cole o seguinte :
se MouseIsDown Então
TextBox1.DoDragDrop ( TextBox1.Text , DragDropEffects.Copy )
acabam se
MouseIsDown = False < br >
