Редактор BB-кодов

@Girl_night · Регистрация: 14.10.2009

Студворк — интернет-сервис помощи студентам

Хочу написать програмку редактора бб-кодов(не спраивайте только зачем она мне), возникли трудности.

Имеется :
Microsoft Visual Basic 6.0

Вопросы :
1. Как сделать так, чтобы кнопка(тэг) применялась нетолько ко всему введённому тексту, но и к выделенному мышкой ?
2. Как сделать автоматический перенос слов в объекте Text.Box при наборе текста ?
3. Как сделать чтобы вводить URL по запросу(при нажатии ессно кнопки) как в обычном JavaScript, тоесть сначала вводим ссылку, потом имя ссылки, и затем всё это записываеться в в объект Text1.Box?

@BasicMan · 30.01.2010, 15:31

Girl_night, а почему юзаешь

Сообщение от Girl_night

TextBox

имхо, намного лучше для этих целей RichTextBox: http://msdn.microsoft.com/en-u... 34980.aspx

@Girl_night · 30.01.2010, 15:47 **[ТС]**

CyberБурундукЪ,

лучше для этих целей RichTextBox

как его включить в форму и зайдействовать?

@BasicMan · 30.01.2010, 16:21

здесь глянь

тока я не помню как он называется

@gaw · 30.01.2010, 16:45

компонент Microsoft Rich Textbox Control 6.0

Добавлено через 13 минут

Visual Basic
1
2
RichTextBox1.SelText = "[" & RichTextBox1.SelText & "]"
RichTextBox1.MultiLine=True

если правильно понял

Visual Basic
1
2
RichTextBox1.Text = RichTextBox1.Text & Chr(13) _
 & Text1.Text & "\" & Text2.Text

@Girl_night · 30.01.2010, 19:13 **[ТС]**

gaw, покажи на скрине где именно находится этот объект. А то не могу найти что то...

@gaw · 30.01.2010, 19:37

смотри

@Girl_night · 31.01.2010, 12:28 **[ТС]**

gaw, перенос сделала. Благодарю.

Как быть с первым и третьим моим вопросом?

@gaw · 31.01.2010, 13:03

посмотри код, который я скинул раньше
может я не понимаю вопроса, тогда попробуй сформулировать по другому

@Girl_night · 31.01.2010, 13:34 **[ТС]**

gaw,

Visual Basic
1
2
RichTextBox1.SelText = "[" & RichTextBox1.SelText & "]"
RichTextBox1.MultiLine=True

Visual Basic
1
2
RichTextBox1.Text = RichTextBox1.Text & Chr(13) _
 & Text1.Text & "\" & Text2.Text

это всё в кнопку(которая отвечает за добавление тэга) прописать?

Получилось так

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Command5_Click()
Dim a, b, с As String
RichTextBox1.SelText = "[" & RichTextBox1.SelText & "]"
RichTextBox1.MultiLine = True
RichTextBox1.Text = RichTextBox1.Text & Chr(13) _
 & Text1.Text & "\" & Text2.Text
a = RichTextBox1.Text
b = "[b]" + a + "[/b]"
RichTextBox1.Text = b
End Sub

подчеркивает RichTextBox1.MultiLine = True

Что не правильно я сделала?

@gaw · 31.01.2010, 14:08

смотрите тут

@gaw · 31.01.2010, 14:28

тут немного приукрасил

@Girl_night · 31.01.2010, 16:21 **[ТС]**

Спасибо посмотрю.

Добавлено через 34 минуты
Всё отлично но можно ли сделать процедуру вставки URL через InputBox ?

@gaw · 31.01.2010, 16:25

где то так

Visual Basic
1
2
3
4
5
Private Sub Command3_Click()
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelText = "[b]" & InputBox("====") & "[/b]"
 
End Sub

@Girl_night · 31.01.2010, 18:38 **[ТС]**

gaw, я имею ввиду сделать так, как выглядит это на форумах

Добавлено через 2 минуты
сейчас кнопка выглядит так

Visual Basic
1
2
3
4
Private Sub Command2_Click()
RichTextBox1.Text = RichTextBox1.Text & Chr(13) _
 & "[url=" & Text1.Text & "]" & Text2.Text & "[/url]"
End Sub

Добавлено через 23 минуты
та и еще как сделать так, чтобы окно программы нельзя было бы развернуть на весь экран и растянуть тоже.

@gaw · 31.01.2010, 19:26

Visual Basic
1
2
3
4
Private Sub Command2_Click()
RichTextBox1.Text = RichTextBox1.Text & Chr(13) _
 & "[url=" & InputBox("url") & "]" & InputBox("name") & "[/url]"
End Sub

напишите четко
как происходит ввод и как должна выглядеть строка

у свойствах формы установите ---BorderStyle = 4 или 3

@Girl_night · 31.01.2010, 20:29 **[ТС]**

gaw, строка должна выглядеть так:

[url=сама ссылка]имя ссылки[url]

Сначала у пользователя запрашивается сама ссылка, а потом имя для ссылки.

@gaw · 31.01.2010, 20:41

ну так я написал
в первом случае ввод Text1.Text,Text1.Text
в втором случае ввод InputBox("запрос url") , InputBox("введите name")
результат [url=сама ссылка]имя ссылки[url]

Chr(13) - перевод строки

@Girl_night · 01.02.2010, 18:52 **[ТС]**

gaw, спасибо разобралась))
Можно ли прикруть к проге предварительный просморт?

@gaw · 01.02.2010, 19:09

можна все или почти все
только я опять могу не понять
конкретнее и более емко

Добавлено через 8 минут
если Вы о просмотре страницы, то наверное необходимо организовать возможность альтернативного принятия решения типа записать-отменить , да-нет и т. п.

Visual Basic
1
2
3
4
5
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, "https://www.cyberforum.ru", vbNullString, "c:\", SW_NORMAL
End Sub

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37

	Редактор BB-кодов 30.01.2010, 15:18. Показов 5770. Ответов 48 Метки нет (Все метки) Хочу написать програмку редактора бб-кодов(не спраивайте только зачем она мне), возникли трудности. Имеется : Microsoft Visual Basic 6.0 Вопросы : 1. Как сделать так, чтобы кнопка(тэг) применялась нетолько ко всему введённому тексту, но и к выделенному мышкой ? 2. Как сделать автоматический перенос слов в объекте Text.Box при наборе текста ? 3. Как сделать чтобы вводить URL по запросу(при нажатии ессно кнопки) как в обычном JavaScript, тоесть сначала вводим ссылку, потом имя ссылки, и затем всё это записываеться в в объект Text1.Box? 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	30.01.2010, 16:21
	здесь глянь тока я не помню как он называется 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	30.01.2010, 19:13 [ТС]
	gaw, покажи на скрине где именно находится этот объект. А то не могу найти что то... 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	30.01.2010, 19:37
	смотри 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	31.01.2010, 12:28 [ТС]
	gaw, перенос сделала. Благодарю. Как быть с первым и третьим моим вопросом? 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	31.01.2010, 13:03
	посмотри код, который я скинул раньше может я не понимаю вопроса, тогда попробуй сформулировать по другому 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	31.01.2010, 16:21 [ТС]
	Спасибо посмотрю. Добавлено через 34 минуты Всё отлично но можно ли сделать процедуру вставки URL через InputBox ? 0

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	31.01.2010, 20:29 [ТС]
	gaw, строка должна выглядеть так: [url=сама ссылка]имя ссылки[url] Сначала у пользователя запрашивается сама ссылка, а потом имя для ссылки. 0

@gaw 6644 / 1511 / 169 Регистрация: 09.01.2010 Сообщений: 4,298
	31.01.2010, 20:41
	ну так я написал в первом случае ввод Text1.Text,Text1.Text в втором случае ввод InputBox("запрос url") , InputBox("введите name") результат [url=сама ссылка]имя ссылки[url] Chr(13) - перевод строки 1

@Girl_night 0 / 0 / 0 Регистрация: 14.10.2009 Сообщений: 37
	01.02.2010, 18:52 [ТС]
	gaw, спасибо разобралась)) Можно ли прикруть к проге предварительный просморт? 0