| Вопрос: помогте пожалуйста | Добавлено: 24.03.07 07:49 |
Автор вопроса:  kofeynik
|
| Как активизировать команду Drag для Frame в VB6 |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 24.03.07 09:30 |
|
Private Sub Form_Load()
Frame1.OLEDropMode = 1 End Sub Private Sub Frame1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) If Data.GetFormat(vbCFFiles) = True Then Dim c As Long For c = 1 To Data.Files.Count Frame1.Caption = Data.Files(c) Next c End If End Sub Запусти форму и кидай файлы на Frame, только подлиннее сделай ее, что бы видеть весь путь. |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 24.03.07 09:36 |
|
Желаю хорошо овладеть VB 6.0 для работы с SQL вот тебе пример по SQL
http://rus-skipper.narod.ru/raznoe/SQLDB1.zip |
||
Страница: 1 |