|
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
|
