| Вопрос: Перенос файлов в ListView из проводника windows. | Добавлено: 06.08.08 10:36 |
Автор вопроса:  Comoc
|
| Подскажите, как можно перенести файлы из проводника windows в ListView с последующим отображением их там. И при 2 клики содержимое файла открывалось в Richedit или textbox. Если можно, то подробно и с примером кода. Заранее спасибо. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 06.08.08 11:13 |
|
http://domkratt.com/uploaded/06082008/8DEE53B6_id=172858.rar
пример на VB6 |
||
|
Номер ответа: 2 Автор ответа: Comoc Вопросов: 4 Ответов: 9 |
Профиль | | #2 | Добавлено: 06.08.08 19:10 |
| А можно тоже самое но только на NET? | ||
|
Номер ответа: 3 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #3 | Добавлено: 06.08.08 19:24 |
| дотнет не юзаю. да ты открой в vb.net, он автоматом преобразует. может немного подправить придется. | ||
|
Номер ответа: 4 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #4 | Добавлено: 06.08.08 19:41 |
| не советую так делать, лучше посмотри в MSDN пример drag-n-drop | ||
|
Номер ответа: 5 Автор ответа: ComocВопросов: 4 Ответов: 9 |
Профиль | | #5 | Добавлено: 08.08.08 06:33 |
| Спасибо нашел! | ||
|
Номер ответа: 6 Автор ответа: ComocВопросов: 4 Ответов: 9 |
Профиль | | #6 | Добавлено: 08.08.08 06:38 |
| Спасибо нашел! | ||
|
Номер ответа: 7 Автор ответа: ComocВопросов: 4 Ответов: 9 |
Профиль | | #7 | Добавлено: 12.08.08 08:04 |
|
Если кому интересно то вот.
Private Sub ListView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
Dim strData As String On Error GoTo exitsub FileOpen(1, ListView1.SelectedItems(0).Text, OpenMode.Binary) strData = Space(CInt(LOF(1))) FileGet(1, strData) RichTextBox1.Text = strData FileClose() exitsub: On Error GoTo 0 End Sub Private Sub ListView1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop If e.Data.GetDataPresent(DataFormats.FileDrop) Then Dim MyFiles() As String Dim i As Integer MyFiles = e.Data.GetData(DataFormats.FileDrop) For i = 0 To MyFiles.Length - 1 ListView1.Items.Add(MyFiles(i)) Next End If End Sub Private Sub ListView1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter If e.Data.GetDataPresent(DataFormats.FileDrop) Then e.Effect = DragDropEffects.All End If End Sub |
||
|
Номер ответа: 8 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #8 | Добавлено: 12.08.08 08:17 |
| Супер! | ||
Страница: 1 |