Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Перетаскивание файла на TextBox

296
09 августа 2006 года
Virtuoso
331 / / 31.07.2005
Visual Basic 6.0

Здрасте!
Хочу чтобы при перетаскивании текстового файла на текстбокс моей программы, содержимое файла загружалось в него! Ну это используется везде, элементарно в блокноте! Как это осуществить?
Спасибо!
15K
10 августа 2006 года
KAN
40 / / 08.08.2006
Привет.
Фишка:
ставишь у текстбокса свойство .oledragmode=1 (Automatic), .oledropmode=1 (manual)

дальше код:
 
Код:
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim FN as Integer
FN = FREEFILE
Dim FName as String
FName = data.files(1)
Open FName For Input As #FN
Text1.Text = Input(LOF(FN), #FN)
Close #FN
End Sub

... где индекс (1) означает что берём первый файл (особенно актуально, если drag'ают группу)
296
10 августа 2006 года
Virtuoso
331 / / 31.07.2005
Круто! Спасибо :)
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог