- -
Sürükle Bırak
(
https://www.ircforumlari.net/visual-basic/124765-surukle-birak.html)
Cemalizim | 21 Temmuz 2008 19:23 | Sürükle Bırak PHP- Kodu: 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ı |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:11. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net