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

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Нумерованные списки Добавлено: 03.02.10 23:47  

Автор вопроса:  iprog | Web-сайт: usprogs.atheo-club.ru
Добрый вечер.
Может быть, мой вопрос покажется странным, но как в процедуре Text1_KeyPress (KeyAscii As Integer) написать такой код, чтобы курсор перешёл на следующую строку, как при нажатии Enter?
Заранее спасибо.

Ответить

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

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



Вопросов: 26
Ответов: 110
  Web-сайт: usprogs.atheo-club.ru
 Профиль | | #1 		Добавлено: 03.02.10 23:56
То есть у меня такой код:
  1. Private Sub Text1_KeyPress(KeyAscii As Integer)
  2. If Check5.Value = 1 And KeyAscii = 13 Then 'Check5 - CheckBox
  3. Text1.Text = Text1.Text & "| |" &"  " & Label4.Caption & ". " 'там, где "| |" - нужно вставить
  4. 'код перевода курсора
  5. Label4.Caption = Val(Label4.Caption) + 1
  6. End If
  7. End Sub


А вообще, в этом коде я делаю нумерованный список.

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 04.02.10 01:58
Переход на следующую строку это vbCrLf
Но разве
  1. Text1.Text = Text1.Text & Label4.Caption & ". "
не работает. Ведь при нажатии Enter каретка автоматом переводиться.

Ответить

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



Вопросов: 26
Ответов: 110
  Web-сайт: usprogs.atheo-club.ru
 Профиль | | #3 		Добавлено: 06.02.10 09:45
Спасибо! Ваш совет оказался очень полезен. Теперь всё работает.

Ответить

Страница: 1 |

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



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