共用方式為

KeyDown 事件、TextBox 控制項、CurLine、CurTargetX、CurX、Text 屬性範例

  • 發行項

下列範例會追蹤多行TextBox中的CurLine、CurTargetX和CurX屬性設定。 當使用者鍵入Text屬性、移動插入點，以及使用鍵盤擴充選取範圍時，KeyUp事件中的這些設定就會變更。

若要使用此範例，請遵循下列步驟：

  1. 將此範例程式碼複製到表單的宣告部分。

  2. 將一個名為 TextBox1 的大型 TextBox 新增至表單。

  3. 在資料行中新增三個名為 TextBox2 、TextBox3 和 TextBox4 的 TextBox 控制項。

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 
 TextBox2.Text = TextBox1.CurLine 
 TextBox3.Text = TextBox1.CurX 
 TextBox4.Text = TextBox1.CurTargetX 
End Sub

Private Sub UserForm_Initialize() 
 TextBox1.MultiLine = True 
 
 TextBox1.Text = "Type your text here. User CTRL + ENTER to start a new line." 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。