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

   
   
     

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

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

 

  Вопрос: И снова Notes... часть 2 Добавлено: 14.07.11 14:36  

Автор вопроса:  Daniel | Web-сайт: smallsoft.ucoz.com | ICQ: 610950440 

Ответить

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

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



Вопросов: 14
Ответов: 262
  Профиль | | #16 Добавлено: 15.07.11 21:44
Первое: У кнопок есть замечательное свойство - ToolTipText. Пример:
  1. Private Sub Command7_Click()
  2. If Command7.caption = "^" Then
  3. SetWindowPos Me.hwnd, -1&, 0&, 0&, 0&, 0&, &H43
  4. Command7.caption = "_"
  5. writeset Me.BackColor, Command7.caption
  6. '--------------------------------------------
  7. Command7.ToolTipText = "НЕ поверх всех окон"
  8. '--------------------------------------------
  9. Else
  10. SetWindowPos Me.hwnd, -2&, 0&, 0&, 0&, 0&, &H3
  11. Command7.caption = "^"
  12. writeset Me.BackColor, Command7.caption
  13. '--------------------------------------------
  14. Command7.ToolTipText = "Поверх всех окон"
  15. '--------------------------------------------
  16. End If
  17. End Sub



Второе: http://img850.imageshack.us/img850/9274/notesx.jpg
Возможно не особо критично, но разница чувствуется, правда же?

Ответить

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



Вопросов: 14
Ответов: 262
  Профиль | | #17 Добавлено: 15.07.11 23:40
Некорректно загружает "записки", которые состоят более чем из одной строки. Только сейчас обратил на это внимание.
  1. Dim pa As String
  2. Dim t$
  3. pa = App.Path & "\notes.txt"
  4. Open pa For Input As #1
  5. Input #1, t$
  6. Text1.text = t
  7. Close #1

Вместо этого используй:
  1. Dim pa As String
  2. Dim t$
  3. pa = App.Path & "\notes.txt"
  4. Open pa For Input As #1
  5. Do Until EOF(1)
  6. Input #1, t$
  7. Text1.text = Text1.text & t & vbCrLf
  8. Loop
  9. Close #1

Ответить

Номер ответа: 18
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #18 Добавлено: 15.07.11 23:45
И раз уж переделываешь это - сделай все настройки одним файлом. Зачем их создавать 10 штук.
  1. Dim pa As String
  2. Dim t$
  3. Dim conf1, conf2, conf3 As String
  4. pa = App.Path & "\notes.txt"
  5. Open pa For Input As #1
  6.  
  7. Input #1, conf1 'Получаем позицию окна
  8. Input #1, conf2 'Получаем цвет формы
  9. Input #1, conf3 'Получаем еще какую-то херь
  10.  
  11. Do Until EOF(1) 'Получаем текст заметки, который будет идти с 4й строки и до конца файла
  12. Input #1, t$
  13. Text1.text = Text1.text & t & vbCrLf
  14. Loop
  15. Close #1

Лениво сидеть ковырять код и переделывать его под один файл. Но пример думаю вполне наглядный.

Ответить

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

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



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