Question

VB的SelLength(选择文本)的问题

Private Sub Command1_Click()
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Form_Click()
Text1.SelLength = Len(Text1.Text)
End Sub

以上代码,为什么在form_Click()中能使Text1中的文本反色显示
而在Command1_Clicd()中却不能使Text中的文本反色显示呢?

Answer 1

这是因为你点击按钮后，text1失去了输入焦点啊；而点击窗体时，text1的焦点没有丢失。改成这样就行了：

Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Form_Click()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub