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

   
   
     

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

Страница: 1 |

 

  Вопрос: Быстрая вставка html-тегов Добавлено: 08.11.08 11:13  

Автор вопроса:  Rogue
 Доброго времени суток!
Возникла потребность в вставке определенного html-тега в текст бокс по нажатию соответствующей тегу кнопке. А как сделать - увы... Буду дико благодарен помощи.

P.S. А удачным примером того, что требуется является добавление тегов при создании новой темы вот сейчас :)))

Ответить

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

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



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #1 		Добавлено: 08.11.08 12:47
  1. Private Sub command1_click()
  2.     'вставка в позицию курсора
  3.     text1.seltext = "<html>"
  4. End Sub
  5.  
  6. Private Sub command2_click()
  7.     'вставка в конец
  8.     text1.text = text1.text & "<html>"
  9. End Sub

Ответить

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



Вопросов: 14
Ответов: 262
  Профиль | | #2 Добавлено: 08.11.08 13:11
Или как-то так)
  1. Private Sub Command1_Click()
  2. Dim L As Long
  3. L = Text1.SelLength + Len("<" & Command1.Caption & ">")
  4. Text1.SelText = "<" & Command1.Caption & ">" & Text1.SelText
  5. Text1.SelStart = L
  6. Text1.SelText = "</" & Command1.Caption & ">"
  7. End Sub

Ответить

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



Вопросов: 2
Ответов: 1
  Профиль | | #3 Добавлено: 08.11.08 16:33
Всем огромное спасибо!

Ответить

Страница: 1 |

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



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