Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 | 3 |

 

  Вопрос: Помогите с текстовым редактором!!! Добавлено: 14.02.10 14:09  

Автор вопроса:  F@got | Web-сайт: antivirusfagot.blogspot.com | ICQ: 209371 
Доброго времени суток форумчане!
Я начинающий программист, поэтому не судите строго.
На данный момент пишу блокнот на VB6, понимаю что это так сказать колесо, но пишу для учебы и для себя.
Конечно Вы помните функцию у стандартного блокнота (Notepad) Drag&Drop т.е. при перетаскивании любого файла на текстовое поле блокнота файл открывается в нем.

Вот такую функцию мне необходимо написать и для своего блокнота, но пока безуспешно
Надеюсь на ваше участие, заранее благодарен.

 


Ответить

  Ответы Всего ответов: 43  

Номер ответа: 1
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #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)
  ;Dim S As String
  S = Data.Files.Item(1)
End Sub

Ответить

Номер ответа: 2
Автор ответа:
 F@got



ICQ: 209371 

Вопросов: 4
Ответов: 39
 Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #2
Добавлено: 14.02.10 15:28
Данный код включил в код блокнота, OLEDrag OLEDrop включены на автомат, но такого эффекта как в мелкософтном блокноте все равно нет. Может я что то не так делаю? Обьясните немного подробней выше приведенный код пожалуйста.

Ответить

Номер ответа: 3
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #3
Добавлено: 14.02.10 15:28
Свойство OLEDragMode = 1 (Manual)

Наверное еще понадобиться узнавать расширение файла который перетаскивается
  1. Function dlgExtension(FName As String) As String
  2.     If InStrRev(FName, ".") <> 0 Then
  3.         dlgExtension = LCase(Right$(FName, Len(FName) - InStrRev(FName, ".")))
  4.     Else
  5.         dlgExtension = ""
  6.     End If
  7. End Function


Или сделать загрузку файла при загрузки программы

  1.  
  2.     CMD = Trim(Command$)
  3.     If CMD <> "" Then
  4.         If Mid$(CMD, 1, 1) = Chr$(34) Then
  5.           Lg = Len(CMD)
  6.           sFile = Mid$(CMD, 2, Lg - 2)
  7.         Else
  8.           sFile = CMD
  9.         End If
  10.     End If

Ответить

Номер ответа: 4
Автор ответа:
 F@got



ICQ: 209371 

Вопросов: 4
Ответов: 39
 Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #4
Добавлено: 14.02.10 15:37
Не получается все равно... Все сделал как сказали, не получилось
Свойство OLEDragMode = 1 (Manual)

Включил в код блокнота 1 и 2 листинги.

Ответить

Номер ответа: 5
Автор ответа:
 F@got



ICQ: 209371 

Вопросов: 4
Ответов: 39
 Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #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-сайт: xawp.narod.ru
 Профиль | | #7
Добавлено: 14.02.10 16:04
я тоже в свое время
в какое?

Ответить

Номер ответа: 8
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #8 Добавлено: 14.02.10 16:05
создай новую форму и TextBox с именем Text1
  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5. Me.OLEDropMode = 1
  6. Text1.OLEDropMode = 1
  7. End Sub
  8.  
  9. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  10. On Error Resume Next
  11. Dim i As Integer
  12. Do
  13. DoEvents
  14. i = i + 1
  15. MsgBox Data.Files(i)
  16. Loop Until Len(Data.Files(i)) < 1
  17. End Sub
  18.  
  19. Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  20. On Error Resume Next
  21. Dim i As Integer
  22. Do
  23. DoEvents
  24. i = i + 1
  25. MsgBox Data.Files(i)
  26. Loop Until Len(Data.Files(i)) < 1
  27. End Sub

Ответить

Номер ответа: 9
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
 Web-сайт: xawp.narod.ru
 Профиль | | #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-сайт: antivirusfagot.blogspot.com
 Профиль | | #13
Добавлено: 14.02.10 16:52
To nikolas-rus

Да именно это я и имел в своем вопросе.

To All

Неужали очень тяжело показать пример что-б при перетаскивании объекта происходило его открытие в текстбоксе?

Ответить

Номер ответа: 14
Автор ответа:
 Just



Вопросов: 4
Ответов: 330
 Профиль | | #14 Добавлено: 14.02.10 17:03
вот пример открытия файла:
  1.  
  2. Dim FileNum As Integer
  3. Dim txt As String
  4. Dim alltxt As String
  5. FileNum = FreeFile
  6. 'Открываем файл в режиме чтения
  7. Open "C:\text.ini" For Input As FileNum
  8.   'цикл выполняется, пока конец файла не достигнут
  9.   Do Until EOF(FileNum)
  10.     'записывает в переменную txt
  11.     Line Input #FileNum, txt
  12.     'каждая строка с новой строки
  13.     alltxt = alltxt + txt + vbCrLf
  14.     Text1.Text = Text1.Text + txt + vbCrLf ' или так
  15.   Loop
  16. Close #FileNum


если не разберешься - пиши, попробую помочь

Ответить

Номер ответа: 15
Автор ответа:
 F@got



ICQ: 209371 

Вопросов: 4
Ответов: 39
 Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #15
Добавлено: 14.02.10 17:03
За меня весь код писать не нужно, я его сам написал, я просто по человечески попросил показать пример открытия любого перетаскиваемого обьекта в текст боксе. И не разводить балаган.

Ответить

Страница: 1 | 2 | 3 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам