Страница: 1 | 2 | 3 |
Вопрос: Помогите с текстовым редактором!!!
Добавлено: 14.02.10 14:09
Автор вопроса: F@got | Web-сайт:
Доброго времени суток форумчане!
Я начинающий программист, поэтому не судите строго.
На данный момент пишу блокнот на VB6, понимаю что это так сказать колесо, но пишу для учебы и для себя.
Конечно Вы помните функцию у стандартного блокнота (Notepad) Drag&Drop т.е. при перетаскивании любого файла на текстовое поле блокнота файл открывается в нем.
Вот такую функцию мне необходимо написать и для своего блокнота, но пока безуспешно
Надеюсь на ваше участие, заранее благодарен.
Ответы
Всего ответов: 43
Номер ответа: 1
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #1
Добавлено: 14.02.10 15:18
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
 im S As String
S = Data.Files.Item(1)
End Sub
Номер ответа: 2
Автор ответа:
F@got
ICQ: 209371
Вопросов: 4
Ответов: 39
Web-сайт:
Профиль | | #2
Добавлено: 14.02.10 15:28
Данный код включил в код блокнота, OLEDrag OLEDrop включены на автомат, но такого эффекта как в мелкософтном блокноте все равно нет. Может я что то не так делаю? Обьясните немного подробней выше приведенный код пожалуйста.
Номер ответа: 3
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #3
Добавлено: 14.02.10 15:28
Свойство OLEDragMode = 1 (Manual)
Наверное еще понадобиться узнавать расширение файла который перетаскивается
Или сделать загрузку файла при загрузки программы
Номер ответа: 4
Автор ответа:
F@got
ICQ: 209371
Вопросов: 4
Ответов: 39
Web-сайт:
Профиль | | #4
Добавлено: 14.02.10 15:37
Не получается все равно... Все сделал как сказали, не получилось
Свойство OLEDragMode = 1 (Manual)
Включил в код блокнота 1 и 2 листинги.
Номер ответа: 5
Автор ответа:
F@got
ICQ: 209371
Вопросов: 4
Ответов: 39
Web-сайт:
Профиль | | #5
Добавлено: 14.02.10 15:44
К слову в блокноте я использую RichTextBox и CommonDialog
Номер ответа: 6
Автор ответа:
ηikolaŠ~rus
ICQ: 604058327
Вопросов: 50
Ответов: 287
Профиль | | #6
Добавлено: 14.02.10 15:45
F@got скинь мне свой блокнот на мыло coljan-rus@mail.ru , просто мне интересно что ты туда по напихал(я тоже в свое время делал блокнот,мне понравился ), я посмотрю может помогу
Номер ответа: 7
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #7
Добавлено: 14.02.10 16:04
Номер ответа: 8
Автор ответа:
Just
Вопросов: 4
Ответов: 330
Профиль | | #8
Добавлено: 14.02.10 16:05
создай новую форму и TextBox с именем Text1
Номер ответа: 9
Автор ответа:
AWP
ICQ: 345685652
Вопросов: 96
Ответов: 1212
Web-сайт:
Профиль | | #9
Добавлено: 14.02.10 16:07
Для Рича.
OleDragMode=0
OleDropMode=1
Номер ответа: 10
Автор ответа:
ηikolaŠ~rus
ICQ: 604058327
Вопросов: 50
Ответов: 287
Профиль | | #10
Добавлено: 14.02.10 16:12
AWP
когда только начил програмировать на вб
Номер ответа: 11
Автор ответа:
ηikolaŠ~rus
ICQ: 604058327
Вопросов: 50
Ответов: 287
Профиль | | #11
Добавлено: 14.02.10 16:16
Just
этот код просто показывает имя и путь файла который ты хочешь запихать в текстбокс или форму
А автор вопроса просил чтобы при перетыскивания объекта присходило его открытие в текстбоксе!
Номер ответа: 12
Автор ответа:
Just
Вопросов: 4
Ответов: 330
Профиль | | #12
Добавлено: 14.02.10 16:28
nikolas-rus
я показал как получить путь к файлу который будет перетащин на форму или еще куда а дальше нужно открывать и копировать файл построчно в ричбокс\текстбокс
а весь код я за него не собираюсь писать! к тому же это не интересно ему будет если все и сразу
Номер ответа: 13
Автор ответа:
F@got
ICQ: 209371
Вопросов: 4
Ответов: 39
Web-сайт:
Профиль | | #13
Добавлено: 14.02.10 16:52
To nikolas-rus
Да именно это я и имел в своем вопросе.
To All
Неужали очень тяжело показать пример что-б при перетаскивании объекта происходило его открытие в текстбоксе?
Номер ответа: 14
Автор ответа:
Just
Вопросов: 4
Ответов: 330
Профиль | | #14
Добавлено: 14.02.10 17:03
вот пример открытия файла:
если не разберешься - пиши, попробую помочь
Номер ответа: 15
Автор ответа:
F@got
ICQ: 209371
Вопросов: 4
Ответов: 39
Web-сайт:
Профиль | | #15
Добавлено: 14.02.10 17:03
За меня весь код писать не нужно, я его сам написал, я просто по человечески попросил показать пример открытия любого перетаскиваемого обьекта в текст боксе. И не разводить балаган.