Access 2000 Текстовое поле частично Подчеркнуто

Нужно найти способ подчеркнуть часть текста в текстовом поле в базе данных Access 2000.

я нашел этот код

Dim ctl As Control
 Dim dblSpacing As Double 'space between double underline
 dblSpacing = 30
 For Each ctl In rpt.Controls
     If ctl.Tag = "bl" Then
         rpt.Line (ctl.Left, ctl.Top + ctl.Height)-Step(ctl.Width, 0)
     End If
     If ctl.Tag = "tl" Then
         rpt.Line (ctl.Left, ctl.Top)-Step(ctl.Width, 0)
     End If
     If ctl.Tag = "dbl" Then
         rpt.Line (ctl.Left, ctl.Top + ctl.Height)-Step(ctl.Width, 0)
         rpt.Line (ctl.Left, ctl.Top + ctl.Height + dblSpacing)-Step(ctl.Width, 0)
     End If
 Next

Конечная функция

но не делаю то, что хочу. Есть ли способ изменить этот код или другой способ сделать это

0 ответов

Другие вопросы по тегам