Выделение слова цветом и толщиной шрифта в MsgBox

DOR Пользователь Сообщений: 178 Регистрация: 01.01.1970	#1 21.03.2011 17:16:49 есть такое сообщение: MsgBox "Расчет тарифа не возможен, т.к. поле <<СРОК СТРАХОВАНИЯ>> не заполненно", Title:="Внимание!!!" как <<СРОК СТРАХОВАНИЯ>> выделить жирным шрифтом и красным цветом?

Guest Гость	#2 21.03.2011 17:57:09 MsgBox "все пропало шеф, " & Format("все пропало!", ">") Похоже, это все, что доступно для строк :О(

ikki

Пользователь

Сообщений: 9709 Регистрация: 22.12.2012

21.03.2011 18:10:54

в стандартном MsgBox нельзя.
рисуйте UserForm и раскрашивайте TextBox'ы как угодно.
можно даже подпрыгивающих и машущих флажками человечков добавить.

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

DOR

Пользователь

Сообщений: 178 Регистрация: 01.01.1970

21.03.2011 20:45:29

машущие флажками человечки это канечно забавно, но лишнее. можете на примере показать как разукрасить label или принципеально TextBox? Слусл такой, если поле пустое и пытаешься сохранить, то выдает ошибку, то что в << >> нужно заменить на жирный шрифт и красный цвет.

Прикрепленные файлы

post_210606.xls (44 КБ)

Guest Гость	#5 21.03.2011 20:56:42 насчет цвета не знаю, а жирный шрифт можно так: делаем 3 поля 1. слово "поле" 2. слово "СТРАХОВАТЕЛЬ" 3. фрза "не заполнено" Для поля 2 изменяем свойства шрифта на жирный

DOR Пользователь Сообщений: 178 Регистрация: 01.01.1970	#6 21.03.2011 21:00:29 текст ошибки будет меняться, соответственно это не подходит.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#7 21.03.2011 21:01:11 Просто в свойствах Label в строке Font укажите "жирный" (можно и размер шрифта ещё), а в строке Fore Color - выбрать нужный цвет.

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#8 21.03.2011 21:03:28 Прочитал невнимательно - Вам нужно ЧАСТЬ строки. Тогда, как сказали выше - из трёх Label, А если фрагмент, который нужно красить, будет меняться, то используйте переменную.

DOR

Пользователь

Сообщений: 178 Регистрация: 01.01.1970

21.03.2011 21:09:59

Это было бы приемлемо, если текст сообщения был примерно одинаковый, текс бокса 1 может содержать одно слово, а может и целую строку. например:
поле <<страхователь>> не заполнено..
Вы не можете использовать данныю программу, так как <<выбранное ТС не соответствует перечню>>...

Guest Гость	#10 21.03.2011 21:15:40 ну можно по разному извратиться. не обязательно же в одну строку все писать. поле СТРАХОВАТЕЛЬ не заполнено! Так ведь тоже можно. И поле под "переменное значение" сделать с запасом по ширине.

DOR Пользователь Сообщений: 178 Регистрация: 01.01.1970	#11 21.03.2011 21:20:25 извратиться то можно, но не нужно, нужно чтобы все было красиво, а не топориком рублено. придеться видать оставить капсом. хоть это и не очень...

ran

Пользователь

Сообщений: 7207 Регистрация: 21.12.2012

#12

21.03.2011 21:23:23

Вставьте это и попробуйте нажать кнопку.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1.Value = "" Then
MsgBox "Поле <<СТРАХОВАТЕЛЬ>> не заполненно"
Me.TextBox1.Value = "#########"
Me.TextBox1.BackColor = RGB(255, 0, 0)
With TextBox1
.SelStart = 0
.SelLength = Len(Me.ActiveControl.Text)
End With
Cancel = True
End If
End Sub

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#13 21.03.2011 22:10:43 Тут надо использовать Rich Textbox Control, пример тут: http://vbbook.ru/book/82/

DOR Пользователь Сообщений: 178 Регистрация: 01.01.1970	#14 21.03.2011 22:27:23 Опять же изменение цвета и размера происходит не на кусок текста, а на весь бокс. Или я может что не понял.

Читают тему