ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / шрифты в текстбоксе
15 сообщений из 40, страница 2 из 2
  2  все
шрифты в текстбоксе
    #37776372
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Shocker.Pro,

не... вспомнил. это я тогда тоже написАл. мне нужно добавить в текстбокс символ, сохраняя цвет.
Код: vbnet
1.
RichTextBox1.TextRTF = RichTextBox1.TextRTF & vvv

не канает. Shocker.ProСравни со своим первым вариантом это я потом начал химичить, когда ничего не получалось, и я стал комбинировать все возможные варианты)
...
Рейтинг: 0 / 0
28.04.2012, 19:40
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776376
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
что-то никак не могу сообразить. пробую сначала пометить символы, а в конце красить по этим меткам. крашу. а метки(вспомогательные символы) я убрать уже не в силах, т.к. краска смывается)
...
Рейтинг: 0 / 0
28.04.2012, 19:57
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776381
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
Код: vbnet
1.
2.
RichTextBox3.Text = vvv
RichTextBox1.TextRTF = RichTextBox1.TextRTF & RichTextBox3.TextRTF

тоже не фурычит. странное какое-то свойство это .TextRTF
...
Рейтинг: 0 / 0
28.04.2012, 20:07
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776391
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, я в ВБ6 не очень, но если вопрос
символ текстбокса должен меняться в шрифте и размерах(лучше даже в цвете, если возможно)
то неужели это сильно отличается от вопроса в Ворде 3 слово, 3 букву выкрасить синим?
но там же это легкотня!!!
и по аналогии сделать
...
Рейтинг: 0 / 0
28.04.2012, 20:21
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776397
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа,

дальше первого поста не читал?). дан текстовый файл(чёрный и зелёный цвета шрифта). нужно добавить в текстбокс обычный символ. но когда его добавляешь, цвета не сохраняются. можно красить по одному символу - это запасной вариант - но это не желательно по некоторым причинам
...
Рейтинг: 0 / 0
28.04.2012, 20:28
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776403
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero,
дан текстовый файл - то есть с расширением txt?, если да тогда как это? - дан текстовый файл(чёрный и зелёный цвета шрифта)
...
Рейтинг: 0 / 0
28.04.2012, 20:36
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776408
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа,

дан ричтекстбокс
...
Рейтинг: 0 / 0
28.04.2012, 20:39
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776415
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, http://kbyte.ru/ru/Forums/Show.aspx?id=9243 - оно?
...
Рейтинг: 0 / 0
28.04.2012, 20:48
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776419
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
катастрофа,

не совсем. там нет ни одного программного добавления символа. всё вручную
...
Рейтинг: 0 / 0
28.04.2012, 20:54
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776430
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
BelowZero, странно, цвета не нашёл
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Private Sub Command1_Click()
txt.Text = "kvg"
End Sub

Private Sub Command2_Click()
txt.Font = Arial
txt.Font.Size = 78
End Sub
...
Рейтинг: 0 / 0
28.04.2012, 21:21
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776433
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
как Шокер подсказывает - txt.TextRTF. после точки нет подсказок
???
...
Рейтинг: 0 / 0
28.04.2012, 21:24
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776472
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
копаюсь в сложных циклах: пытаюсь запомнить, цвет каких символов нужно изменить, и менять их в самом конце. но у меня тут цикл в цикле в цикле... мозг плавится(
...
Рейтинг: 0 / 0
28.04.2012, 22:44
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37776488
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
не совсем в тему, но: как выйти из сложного цикла? т.е. цикл в цикле в цикле, и из внутреннего цикла нужно выйти из всех. мудился с boolean, но пока что безуспешно. не помню, как раньше делал
...
Рейтинг: 0 / 0
28.04.2012, 23:12
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37802192
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZero
Участник
получилось сделать "форматирование" цвета в ричтекстбоксе по опозновательным символам. работает идеально, правда ресурсы жрёт... превращает текст вида 12345|||123||1234|||12| в 12345123123412 мб кому-нить пригодится
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
Dim coll As New Collection
Dim i As Integer
Dim x As Integer
Dim y As Integer
Dim str() As String
Dim TTText As String
WebBrowser1.Refresh
TTText = WebBrowser1.Document.body.innertext
str = Split(TTText, vbCrLf)
RichTextBox1.Text = ""
For i = 0 To UBound(str)
For y = 1 To Len(str(i))
    If Mid(str(i), y, 1) = "|" Then
        If coll.Count > 0 Then
        Dim aa As Long
        aa = Len(RichTextBox1.Text)
zanovo:
        For x = 1 To coll.Count
            If coll(x) = aa Then
            aa = aa - 1
            GoTo zanovo
            Else
            coll.Add aa
            End If
        Next x
        Else
        coll.Add Len(RichTextBox1.Text)
        End If
    Else
    RichTextBox1.Text = RichTextBox1.Text & Mid(str(i), y, 1)
    End If
Next y
RichTextBox1.Text = RichTextBox1.Text & vbCrLf
Next i

For x = 1 To coll.Count
If coll(x) > 0 Then
RichTextBox1.SelStart = coll(x) - 1
RichTextBox1.SelLength = 1
RichTextBox1.SelColor = vbGreen
End If
Next x
RichTextBox2.TextRTF = RichTextBox1.TextRTF

...
Рейтинг: 0 / 0
19.05.2012, 17:42
| Ответить | Цитировать | Написать  
шрифты в текстбоксе
    #37803076
BelowZeroTooCold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BelowZeroTooCold
Участник
Код: vbnet
1.
coll.Add aa

нужно заменить на
Код: vbnet
1.
If x = coll.Count Then coll.Add aa

, а то коллекция заполняется впустую тысячами лишних значений
...
Рейтинг: 0 / 0
20.05.2012, 22:32
| Ответить | Цитировать | Написать  
15 сообщений из 40, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / шрифты в текстбоксе
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37776408&tid=2157766]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 309ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]