Truques e Dicas - Tutoriais de Visual Basic

tutoriais

Photoshop

ASP

PHP

jogos

Galerias

fóruns

Flash

TUTORIAIS DE VISUAL BASIC

1. Introdução

Página:

Drag and Drop

Drag and drop, significa arrastar e largar, e tem a utilidade que a tua imaginação quizer atingir, mas com certeza será a execução de um comando aquando da libertação do objecto arrastado.

Observa a imagem seguinte:

Criámos dois objectos Image. Um atribuimos-lhe o nome de Image1, alterámos as propriedades Picture e inserimos uma cara sorridente, e a propriedade DragMode para 1=Automatic.

À outra alterámos a propriedade Picture e inserimos a imagem de um barril para queimar resíduos.

Se fizermos click sobre a 1ª imagem (Image1), mantivermos o botão esquerdo do rato premido e o arrastarmos sobre a image2 aparece uma chama, como mostra a imagem que se segue.

Ao libertarmos a chama sobre a image2, o barril de resíduos incendeia-se. E como não queremos ser incendiarios, fazemos aparecer uma imagem de chuva, que apaga o fogo quando clicamos nela.

Para executar o que acabámos de fazer tivemos que codificar alguns Eventos dos objectos referenciados que passarei a expor:

Private Sub Form_load()
Image3.Visible = False
Label6.Visible = False
End Sub

Private Sub Image2_DragDrop(Source As Control, X As Single, Y As Single)
Image2.Picture = LoadPicture("c:\icons\trash02B.ico")
Image3.Visible = True
Label6.Visible = True
End Sub

Private Sub Image3_Click()
Image2.Picture = LoadPicture("c:\icons\trash02A.ico")
Image3.Visible = False
Label6.Visible = False
End Sub

Nota : a negrito estão assinalados os nomes dos eventos codificados.

Seguinte

ANÚNCIOS