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
Перетаскивание файла на TextBox
Здрасте!
Хочу чтобы при перетаскивании текстового файла на текстбокс моей программы, содержимое файла загружалось в него! Ну это используется везде, элементарно в блокноте! Как это осуществить?
Спасибо!
Фишка:
ставишь у текстбокса свойство .oledragmode=1 (Automatic), .oledropmode=1 (manual)
дальше код:
Код:
... где индекс (1) означает что берём первый файл (особенно актуально, если drag'ают группу)
Круто! Спасибо :)