انا مبتدئ .. ومحتاج اعرف حاجات قليلة .. محتار فيهم جدا

1.  
2. Dim cx, cy As Integer
3. Dim moving As Boolean
4.  
5. Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
6. cx = X
7. cy = Y
8. moving = True
9. End Sub
10.  
11. Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
12. If moving Then
13. Me.Left = Me.Left + (X - cx)
14. Me.Top = Me.Top + (Y - cy)
15. End If
16. End Sub
17.  
18. Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
19. moving = False
20. End Sub
21.  

1. Private Sub Form_Load()
2. Me.OLEDropMode = 1
3. End Sub
4.  
5. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As In
   teger, X As Single, Y As Single)
6. For Each f In Data.Files
7. MsgBox f
8. Next
9. End Sub
10.  
    
    

1.  
2. Private Sub Form_Load()
3. Me.OLEDropMode = 1
4. End Sub
5.  
6. Private Function GetFileExtension(ByVal file As String) As String
7. Dim dotIndex As Integer
8. dotIndex = InStrRev(file, ".")
9. If dotIndex = 0 Then
10. GetFileExtension = ""
11. Else
12. GetFileExtension = Right(file, Len(file) - dotIndex)
13. End If
14. End Function
15.  
16. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As In
    teger, X As Single, Y As Single)
17. For Each f In Data.Files
18. If GetFileExtension(f) = "gif" Then
19. MsgBox "GIF File Dropped!", vbInformation
20. End If
21. Next
22. End Sub
23.  
    
    

الله الله عليك .. بجد انا مش عارف اشكرك ازاي ...

بس معلش لسة عندي طلبات كتير .. ابقي جواني عليها لما تكون فاضي

- عايز اعرف ازاي اعمل قائمة (كليك يمين) مع وضع اوامر لكل اختيار

- وعايز اعرف ازاي اغير صورة اداه المديا بلير بأي صورة تانية .. ولما يتعرض فديو يتعرض فيها

وال سلام عليكم ورحمة الله وبركاتة