IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Temmuz 2008, 19:23   #1
Çevrimdışı
Yardımcı Admin
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Sürükle Bırak




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
 Private Sub Form_Load()
    
Label1.Visible 0  'Drag işlemi sırasında dosya adının sembolü olarak kullanılacak.
    File1.Pattern = "*.BMP;*.ICO;*.JPG;*.JPEG;*.WMF;*.GIF"
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Yukseklik = 200
    Label1.Move File1.Left, File1.Top + Y - Yukseklik / 2, File1.Width, Yukseklik
    Label1.Drag
End Sub

Private Sub Dir1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = 0 Then Source.MousePointer = 12  '
Hedefin üzerine gelindiğinde.
    If 
State 1 Then Source.MousePointer 0   'Hedeften ayrılındığında.
End Sub

Private Sub Drive1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = 0 Then Source.MousePointer = 12
    If State = 1 Then Source.MousePointer = 0
End Sub

Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    If State = 0 Then Source.MousePointer = 12
    If State = 1 Then Source.MousePointer = 0
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    On Error Resume Next
    Picture1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
    If Err Then MsgBox "Resim dosyası yüklenemedi."
End Sub 

Alıntı

__________________
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Cevapla

Etiketler
bırak, sürükle


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
sürükle bırak div yapmak draggable hAte HTML/CSS/JavaScript 0 03 Kasım 2014 07:58
Facebook'ta Sürükle-Bırak Zen Facebook Haberleri 0 24 Aralık 2012 17:03