文本内联水平rull

Question

我正在尝试在近两条水平线上键入标题 我使用Bootstrap类，如：

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objJournal As Outlook.JournalItem
Public WithEvents objTask As Outlook.TaskItem

Dim objOldTask As Outlook.TaskItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Inspectors
    Set objTask = Nothing
    Set objJournal = Nothing
    Set objOldTask = Nothing
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is TaskItem Then
       Set objTask = Inspector.CurrentItem
    End If
    If TypeOf Inspector.CurrentItem Is JournalItem Then
        Set objJournal = Inspector.CurrentItem
    End If
End Sub

Private Sub objTask_Open(Cancel As Boolean)
    MsgBox "TaskItem open event"
End Sub

Private Sub objTask_close(Cancel As Boolean)
    MsgBox "TaskItem close event"
End Sub

还有其他方法吗？

示例：

Answer 1

试试这个：

.box {
  display: flex;
  align-items: flex-end;
}

h1 {
  flex: 0 0 auto;
  margin: 0 0 -10px 0;
  padding-right: 10px;
}

.line {
  flex: 2 0 0;
  border-bottom: 3px double #000;
}

<div class="box">
  <h1>
    Hello
  </h1>
  <div class="line">
  </div>
</div>