Форум: Русские за Границей - Показать сообщение отдельно - Интернет

25.05.2003, 16:26

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

MsgBox Data.Files(1)

End Sub

После этого он напишет имя фаила который ты переташил...

25.05.2003, 16:26	#164
GriKo Guest Сообщений: n/a	Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox Data.Files(1) End Sub После этого он напишет имя фаила который ты переташил...