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  

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



Вопросов: 4
Ответов: 330
  Профиль | | #31 Добавлено: 14.02.10 19:09
замени везде! )

не заменил:
  1.  
  2. Loop Until Len(Data.Files(i)) < 1



и ост замени

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #32 		Добавлено: 14.02.10 19:19
Привожу полный код, все равно вылетает ошибка в ниже выделенном коде ошибка DATA.FILES.ITEM(I) = SUBSCRIPT OUT OF RANGE


  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.Item(i)) < 1
  12.  End Sub
  13.   
  14.  Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  15.  On Error Resume Next
  16.  Dim i As Integer
  17.  Do
  18.  DoEvents
  19.  i = i + 1
  20.  FileToRichTextBox1 Data.Files.Item(i)
  21.  
  22.  Loop Until Len(Data.Files.Item(i)) < 1
  23.  End Sub
  24.   
  25.  Private Sub FileToRichTextBox1(sFilePath As String)
  26.  Dim FileNum As Integer
  27.  Dim txt As String
  28.  Dim alltxt As String
  29.  FileNum = FreeFile
  30.  'Открываем файл в режиме чтения
  31.  Open sFilePath For Input As FileNum
  32.    'цикл выполняется, пока конец файла не достигнут
  33.    Do Until EOF(FileNum)
  34.      'записывает в переменную txt
  35.      Line Input #FileNum, txt
  36.      'каждая строка с новой строки
  37.      alltxt = alltxt + txt + vbCrLf
  38.      RichTextBox1.Text = RichTextBox1.Text + txt + vbCrLf ' или так
  39.    Loop
  40.  Close #FileNum
  41.  End Sub
  42.  

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #33 		Добавлено: 14.02.10 19:20
Но повторюсь блокнот уже открывает перетаскиваемый в него файл.
Just Давай уже добьем мля :) этот код у меня скоро начнет ехать крыша :))))

Ответить

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



ICQ: 209371 

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

Нужно было поставить On error resume next в ниже приведенном коде понимаю не выход но все же :)
  1.  
  2.  
  3. Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  4.  
  5. On Error Resume Next
  6.  
  7.  Dim i As Integer
  8.  Do
  9.  DoEvents
  10.  i = i + 1
  11.  FileToRichTextBox1 Data.Files.Item(i)
  12.  
  13.  Loop Until Len(Data.Files.Item(i)) < 1
  14.  End Sub
  15.  



Just Спасибо тебе за терпение! и помощь!!

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #35 Добавлено: 14.02.10 19:31
там ошибка вылазит потому что прога читает диапазон значений и когда пытается получить несуществующие значения происходит ошибка
в общем не заморачивайся и поставь как я писал в начале!
On Error Resume Next в начале каждого саба

Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #36 Добавлено: 14.02.10 19:33
и кстати On Error Resume Next - это выход )

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #37 		Добавлено: 14.02.10 19:39
Приведу в общем то полный код за который было написано 3 страницы :)
Отдельное спасибо Just за терпение и участие.
Данный код позволяет открывать файлы при перетаскивании их на RichTextBox

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


Ответить

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



Вопросов: 4
Ответов: 330
  Профиль | | #38 Добавлено: 14.02.10 19:44
если хочешь без ошибки можно вообще без цикла сделать
  1.  
  2. 'On Error Resume Next
  3. Private Sub RichTextBox1_OLEDragDrop(Data As RichTextLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
  4.  
  5.  FileToRichTextBox1 Data.Files.Item(1)
  6. End Sub



но тогда прога будет получать тока путь 1 файла (если за раз перетянешь много файлов)

в этом случае (перебирания значений) On Error Resume Next тебе не попомешает а только поможет!

Ответить

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



ICQ: 209371 

Вопросов: 4
Ответов: 39
  Web-сайт: antivirusfagot.blogspot.com
 Профиль | | #39 		Добавлено: 14.02.10 19:49
Вот с вирусами воюю, а с кодингом вот не всегда получается :)

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #40 		Добавлено: 14.02.10 20:38
Да, что за люди за такие.
в Первом ответе написал
S = Data.Files.Item(1)

девятый ответ - настройки для Рича.
OleDragMode=0, OleDropMode=1
Для формы Не нужны.
Четырнадцатый ответ
пример открытия файла

  1.  
  2. dim FS as string
  3. FS=space(filelen(FileName))
  4. open FileName for binary as #1
  5.   get #1,1,FS
  6. close #1
  7. RichTextBox1.text=FS


Кстати лучше.

Раздули, блин, на три страницы. Зачем вообще программирование занялся, если 3 кода соединить не можешь?

Ответить

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



ICQ: 209371 

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

To AWP

За ответ и участие в вопросе благодарю, а по поводу того зачем я занялся кодингом, я думаю если бы все думали так как Вы то программистов не было бы!

Ответить

Номер ответа: 42
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #42 		Добавлено: 15.02.10 08:49
Еще их не было бы, если при каждой ошибке ставить On Error Resume Next

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #43 		Добавлено: 16.02.10 00:12
+1 =)

Ответить

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

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



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