OLEDropMode и т.п.

[Jenizix]

Помогите разобраться...

Есть форма с OLEDropMode = 1, как отловить что на нее кинули какой-нить файл или ярлык, и узнать путь и имя файла...
А то чет я не пойму с этими DataObject нифига ...

Да, а для чего нужен Effect?

[xolod]

[...мысленно]
ну когда же люди научаться ставить MSDN, прежде чем задавать такие вопросы...

[хотя в слух..]
Вот такой примерчик, нужны два ListBox (List1 и List2)

Код: Выделить всё


Private Sub Form_Load()
    ' Populate the list
    List1.AddItem "One"
    List1.AddItem "Two"
    List1.AddItem "Three"
    List1.AddItem "Four"
    List1.AddItem "Five"
End Sub
Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1.OLEDrag    ' Begin dragging
End Sub
Private Sub List1_OLEStartDrag(Data As DataObject, AllowedEffects As Long)
    ' Only allow moves
    AllowedEffects = vbDropEffectMove
    ' Assign the ListBox selection to the DataObject
    Data.SetData List1
End Sub
Private Sub List2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strList As String
    ' Check the format of the DataObject
    If Not Data.GetFormat(vbCFText) Then Exit Sub
    ' Retrieve the text from the DataObject
    strList = Data.GetData(vbCFText)
    List2.AddItem strList
End Sub
Private Sub List1_OLECompleteDrag(Effect As Long)
    ' Remove the item from the ListBox
    List1.RemoveItem List1.ListIndex
End Sub


А этот пример загрузит в PictureBox файл, который ты на него переташишь

Код: Выделить всё


Private Sub Picture1_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    If Not Data.GetFormat(vbCFFiles) Then
        Effect = vbDropEffectNone    ' Don't allow dropping
    End If
End Sub
Private Sub Picture1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim strFilename As String
    ' Get the filename from the Files collection
    strFilename = Data.Files(1)
    ' Load the picture
    Picture1.Picture = LoadPicture(strFilename)
End Sub


[Jenizix]

Сенкс!!! Щас проверю...!

[Ennor]

Заранее прошу прощения за оффтоп. Не могу не высказаться.

[...мысленно]
ну когда же люди научаться ставить MSDN, прежде чем задавать такие вопросы...

Скажи, ты в 14 лет хорошо знал английский? Если да, то могу тебя поздравить, ибо я его тогда не знал вообще (ну, если сравнивать мой тогдашний уровень с теперешним), однако меня это не остановило. И эти отважные люди тоже не останавливаются. Да, на практике это выливается в задалбывание идиотскими вопросами, но поверь мне, это лучше, чем если бы они шарились по подвалам и нюхали клей.

Это действительно проблема - невозможность чтения документации по причине плохого знания языка. Поэтому - поиск и книги. Накопить на одну книжку по языку можно без проблем в самой глухой провинции (особенно если комп уже есть). Главное - действовать, а с этим, как я погляжу, проблем у народа нет .

Ну и конечно вот этому нельзя не порадоваться - http://www.vbstreets.ru/News/Site/66131.aspx

ЗЫ xolod - no offense

[Jenizix]

Ennor, а от куда ты знаеш что мне 14 лет???

[xolod]

Вот за что мне нравиться конструктивный критик..
Прошу прощения за тафталогию. Всегда он критикует конструктивно, то есть по делу

2 Ennor

[hCORe]

Ennor, а от куда ты знаеш что мне 14 лет???

По стилю сообщений.

[Jenizix]

<OFFTOPIC> Вы прям тут все психологи </OFFTOPIC>

всем спасибо! разобрался!
Ennor и xolod - Respect!

Тема закрыта.

[alibek]

Ennor, а от куда ты знаеш что мне 14 лет???

А у меня еще и среднего нету... в этоб году неполное среднее будет =)))... 9 класс...

PS смотри мою подпись....

[Jenizix]

аааа, теперь понял...