问题:Excel中Textbox控件以及Form里的Textbox控件,当直接填充的内容很长时,滚动条不能实时刷新。
现象:
修改后:
原因:
虽然已经向Textbox的Text里设置了内容,但此时Textbox并没有被激活,焦点也没有变化,所以,Textbox的滚动条没有被刷新出来。
修改后的VBA程序:
-----------------------ActiveX Textbox--------------------------
Private Sub CommandButton1_Click() TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _ & Chr(10) _ & "1234567890" _ & Chr(10) ‘ IF the text length is long enough, ENABLE the Textbox‘s scroll bar TextBox1.Activate ‘ Set the current select line: 0 TextBox1.CurLine = 0 End Sub
-----------------------Form Textbox--------------------------
Private Sub CommandButton1_Click() TextBox1.Value = "safdasfgsdfgfhfgjhfjfghjfhjfg" _ & Chr(10) _ & "1234567890" _ & Chr(10) ‘ IF the text length is long enough, ENABLE the Textbox‘s scroll bar TextBox1.SetFocus ‘ Set the current select line: 0 TextBox1.SelStart = 0 End Sub
知识点:
ActiveX Textbox中的 TextBox1.Activate 和 Form Textbox的 TextBox1.SetFocus功能相同
时间: 2024-10-02 23:18:02