Private Sub rtb_Change()
Dim selPos, selLen As Integer
selPos = Me.rtb.SelStart
selLen = Me.rtb.SelLength
Me.rtb.SelStart = 0
Me.rtb.SelLength = Len(Me.rtb.Text)
Me.rtb.SelColor = vbRed
Me.rtb.SelStart = selPos
Me.rtb.SelLength = selLen
End Sub
Боже мой, во проблема! Как сделать цвет текста в RichTextBox по умолчанию???
Оформление моей проги исполнено в тёмных тонах, текст в RichTextBox чёрный по умолчанию и поэтому плохо заметен. Пытался изменять текст с помощью RichTextBoxю.SelColor. В реале получилось что текст вставляемый ctr+v всё равно чёрный.... в других случаях я изменяю цвет. Без совета не разберусь.
А в чем проблема.
В Design-time задаешь своему компоненту цвет шрифта и будет тебе счастье.
Не помню как в VB, но в том же MS Excel VBA - это свойство ForeColor.
В VB может Font->Color.
Если это не спасает:D - ты всегда можешь отловить событие изменения твоего RichTextBox'а и 'перекрасить' шрифт в требуемый.
В Design-time задаешь своему компоненту цвет шрифта и будет тебе счастье.
Не помню как в VB, но в том же MS Excel VBA - это свойство ForeColor.
В VB может Font->Color.
Если это не спасает:D - ты всегда можешь отловить событие изменения твоего RichTextBox'а и 'перекрасить' шрифт в требуемый.
Спасибо за совет! К сожалению для RichTextBox нет свойства ForeColor, иначе проблем бы не было. А для события Change элемента я ужо сделал изменение текста на белый, но это оносится только к тексту вводимому с клавиатуры. С загрузкой из файла и програмном добавлении текста тоже нет проблем. Единственное нет смены цвета текста вводимого Crtl+V, как прописать изменение цвета этого текста я и не знаю. Тупо програмно выделяю весь текст и присваиваю ему новый цвет, это неудобно, курсор смещается в начало, в общем лажа.
Да, точно нет.:(
Ну тогда вот так. Пользователь ни о чем не догадается;)
Ну тогда вот так. Пользователь ни о чем не догадается;)
Код:
Спасибо тебе большое!!! Прога затарахтела как надо!!! Не догадался я сначала запомнить позицию курсора а потом её опять присвоить....
Признаю, признаю твой авторитет. Ещё раз спасибо!!!
Признаю, признаю твой авторитет. Ещё раз спасибо!!!