Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

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

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

 

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

Автор вопроса:  F@got | Web-сайт: antivirusfagot.blogspot.com | ICQ: 209371 

Ответить

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

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #16 		Добавлено: 14.02.10 17:11
Just

Я не могу понять как связать в нормальный и нужный мне код те обрезки кода которые ты кинул.

Ответить

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



ICQ: 209371 

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

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #18 Добавлено: 14.02.10 17:28
спокойствие, тока спокойствие )

  1.  
  2. Option Explicit
  3.  
  4. Private Sub Form_Load()
  5. On Error Resume Next
  6. Me.OLEDropMode = 1
  7. Text1.OLEDropMode = 1
  8. End Sub
  9.  
  10. Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  11. On Error Resume Next
  12. Dim i As Integer
  13. Do
  14. DoEvents
  15. i = i + 1
  16. FileToTextBox Data.Files(i)
  17. MsgBox Data.Files(i)
  18. Loop Until Len(Data.Files(i)) < 1
  19. End Sub
  20.  
  21. Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  22. On Error Resume Next
  23. Dim i As Integer
  24. Do
  25. DoEvents
  26. i = i + 1
  27. FileToTextBox Data.Files(i)
  28. MsgBox Data.Files(i)
  29. Loop Until Len(Data.Files(i)) < 1
  30. End Sub
  31.  
  32. Private Sub FileToTextBox(sFilePath As String)
  33. Dim FileNum As Integer
  34. Dim txt As String
  35. Dim alltxt As String
  36. FileNum = FreeFile
  37. 'Открываем файл в режиме чтения
  38. Open sFilePath For Input As FileNum
  39.   'цикл выполняется, пока конец файла не достигнут
  40.   Do Until EOF(FileNum)
  41.     'записывает в переменную txt
  42.     Line Input #FileNum, txt
  43.     'каждая строка с новой строки
  44.     alltxt = alltxt + txt + vbCrLf
  45.     Text1.Text = Text1.Text + txt + vbCrLf ' или так
  46.   Loop
  47. Close #FileNum
  48. End Sub

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #19 		Добавлено: 14.02.10 17:32


Да! Спасибо тебе Just :) Этот пример кода именно то что мне не хватало для окончания написания программы! Теперь буду спать спокойно :) Еще раз всем спасибо за участие!! :)

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #20 Добавлено: 14.02.10 17:33
можешь заместо
  1.  
  2.   Do Until EOF(FileNum)
  3.     'записывает в переменную txt
  4.     Line Input #FileNum, txt
  5.     'каждая строка с новой строки
  6.     alltxt = alltxt + txt + vbCrLf
  7.     Text1.Text = Text1.Text + txt + vbCrLf ' или так
  8.   Loop



сделать так

  1.  
  2.   Do Until EOF(FileNum)
  3.     'записывает в переменную txt
  4.     Line Input #FileNum, txt
  5.     'каждая строка с новой строки
  6.     alltxt = alltxt + txt + vbCrLf
  7.   Loop
  8. Text1.Text = alltxt


но все это уже доработки... главное принцип понять!

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #21 		Добавлено: 14.02.10 17:53
Еще один вопросик у меня с ошибкой вылетает такой вот код
  1. Private Sub RichTextBox1_OLEDragDrop(Data As DataObject, Effect As Long, Button As
  2.  
  3.  
  4.  End Sub


Ругается именно на приват саб...

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #22 		Добавлено: 14.02.10 17:54
Прошу прощения немного не добавил
  1. Private Sub Text1_OLEDragDrop(Data As  DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #23 		Добавлено: 14.02.10 17:55
Ругается именно при вставке RichTextBox1 при Text1 все впорядке

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #24 Добавлено: 14.02.10 18:13
Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #25 		Добавлено: 14.02.10 18:44

Just
Нижеприведенный код явно не подходит для рич-текст бокса, я поимаю что наверно примахал, но помогите мне его доточить, что б он работал под рич текст боксом.

  1.  
  2. Private Sub Form_Load()
  3. On Error Resume Next
  4. Me.OLEDropMode = 1
  5.  RichTextBox1.OLEDropMode = 1
  6. ProgressBar1.Visible = False
  7. End Sub
  8.  
  9.  
  10.  Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  11.  On Error Resume Next
  12.  Dim i As Integer
  13.  Do
  14.  DoEvents
  15.  i = i + 1
  16.  FileToTextBox Data.Files(i)
  17.  Loop Until Len(Data.Files(i)) < 1
  18.  End Sub
  19.   
  20.  Private Sub FileToTextBox(sFilePath As String)
  21.  Dim FileNum As Integer
  22.  Dim txt As String
  23.  Dim alltxt As String
  24.  FileNum = FreeFile
  25.  'Открываем файл в режиме чтения
  26.  Open sFilePath For Input As FileNum
  27.    'цикл выполняется, пока конец файла не достигнут
  28.    Do Until EOF(FileNum)
  29.      'записывает в переменную txt
  30.      Line Input #FileNum, txt
  31.      'каждая строка с новой строки
  32.      alltxt = alltxt + txt + vbCrLf
  33.      Text1.Text = Text1.Text + txt + vbCrLf ' или так
  34.    Loop
  35.  Close #FileNum
  36.  End Sub

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #26 		Добавлено: 14.02.10 18:46
Вылетает вот что
  1. Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  2.  
  3. FileToTextBox Data.Files(i)
  4.  

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #27 Добавлено: 14.02.10 18:56
замени везде
  1.  
  2. Data.Files(i)


на это
  1.  
  2. Data.Files.Item(i)

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #28 		Добавлено: 14.02.10 19:03
Вылетает ошибка SUBSCRIPT OUT OF RANGE

Именно в выделенном участке кода


  1.  
  2. Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  3.  
  4.  
  5.  Dim i As Integer
  6.  Do
  7.  DoEvents
  8.  i = i + 1
  9. FileToRichTextBox1 Data.Files.Item(i)
  10.  
  11.  Loop Until Len(Data.Files(i)) < 1
  12.  End Sub

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #29 		Добавлено: 14.02.10 19:07
DATA.FILES.ITEM(I) = SUBSCRIPT OUT OF RANGE

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #30 		Добавлено: 14.02.10 19:09
Самое интересное что блокнот уже открывает перетаскиваемые файлы, но вылетает именно вышеуказанная ошибка.

Ответить

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

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



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