VB TextBox 追加文本卡頓優化：SelStart/SelText 替代字符串拼接

問題現象

使用 Text1.Text = Text1.Text & str 追加大量數據時，界面卡頓、閃爍，性能差。

原因分析

• VB TextBox 的 Text 屬性每次賦值都會觸發控件重繪、內存重新分配。
• 字符串拼接產生大量臨時對象，GC 壓力大。

優化方案：光標定位 + SelText

Private Sub AppendTextFast(ByVal txt As String)
    ' 將光標移至文本末尾
    Text1.SelStart = Len(Text1.Text)
    ' 在光標處插入文本，不觸發全量重繪
    Text1.SelText = txt
    ' 可選：自動滾動到底部
    Text1.SelStart = Len(Text1.Text)
End Sub

進階優化建議

1. 批量緩衝：累積一定量（如 4KB）再調用一次 AppendTextFast，減少 UI 線程切換。
2. 鎖定繪製：使用 LockWindowUpdate Text1.hWnd / UnlockWindowUpdate 包裹大批量追加（需 API 聲明）。
3. 替換控件：大數據日誌場景建議使用 RichTextBox（支持 AppendText 方法）或虛擬列表 ListView (OwnerDraw)。
4. 異步處理：數據接收放在 Timer 或背景線程，通過 DoEvents 定時刷新 UI。

完整示例

Private Sub Command1_Click()
    ' 模擬大量數據追加
    Dim i As Long
    LockWindowUpdate Text1.hWnd ' 凍結繪製
    For i = 1 To 10000
        AppendTextFast "Line " & i & vbCrLf
    Next i
    UnlockWindowUpdate
End Sub

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Declare Function UnlockWindowUpdate Lib "user32" () As Long

通過 SelStart/SelText 實現增量追加，配合繪製鎖定，可將萬行日誌追加時間從秒級降至毫秒級。