|
Teknoloji 12.06.2003 İbrahim Gündüz - netyorum.com / Sayı: 137
VISUAL BASIC İLE SÜRÜKLE-BIRAK
Merhaba,
Bu yazıda sizlerle paylaşmak istediğim konu, pek çok Microsoft uygulamasında
yaygın olarak kullanılan sürükle - bırak olayı. Bu olayın en belirgin örneği
Windows gezgini (Explorer) uygulamasıdır. Dosya listesinden herhangi bir dosyayı
tutup , istenilen herhangi bir klasörün üstüne bırakırsınız. Böylece sürükle
bırak olayı gerçekleşmiş olur. Aşağıdaki kod örneği bu olayın nasıl
gerçekleştiğini basitçe göstermektedir.
Önce Visual Basic´i çalıştırıp Standart Exe tipinde yeni bir proje oluşturalım.
İkinci adım olarak proje formu üzerine bir adet label nesnesi koyalım.
Aşağıdaki kodları olduğu gibi kopyalayıp, kodlama alanına yapıştırabilirsiniz.
'Etiket nesnesine tıklanması anında,fare imlecinin etiket üzerindeki
pozisyonunun kayıt
'edileceği değişkenler
Dim Fx As Integer
Dim Fy As Integer
'Form üzerine bir nesnenin bırakılması olayı.
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
'Nesnenin form üzerindeki kordinatı tanımlanıyor..
Label1.Left = X - Fx
Label1.Top = Y - Fy
End Sub
Private Sub Form_Load()
'Etiket nesnesinin kenar stili Fixed Signle olarak tanımlanıyor.
Label1.BorderStyle = 1
End Sub
Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y
As Single)
'Farenin etiket üstündeki pozisyonu Fx ve Fy değişkenlerine aktarıldıktan sonra
sürükleme
'olayı başlatılıyor.
Fx = X
Fy = Y
Label1.Drag 1
End Sub
|
Projeyi çalıştırdıktan sonra form üzerindeki nesneyi tutup sürükleyerek formun
üzerinde istediğiniz başka bir noktaya bırakabilirsiniz.
İbrahim Gündüz
e-posta:
gunduzonline@celiknet.com
GündüzOnline
Yazılım Tasarım Grubu
|