請問一下,有沒有哪個事件或者API可以把版面上所有的TEXTBOX控件獲得焦點時都可以選中所有文本?

Private Sub Text1_GotFocus()
    Dim k As Integer
    k = Len(Text1.Text)
    Text1.SelStart = 0
    Text1.SelLength = k
End Sub

我知道這樣.但問題是如果我版面上有100個TEXTBOX,那就要寫100次了.有沒有寫一次就可以的?

你就只能把100个textbox做成控件数组，这样就只需要响应一次gotfocus事件了

我現有的方法就是這樣做,也是比較麻煩.

不能用控件數組,太多了,在寫入數據庫時我會分不清哪個搭哪個.

你把 这段代码做成一个 子程序，

每个控件里，只需要写一行代码就行了。

代码好像是这样的，随手写的，没进VB测试。
Private Sub Text1_GotFocus()
   call selectText(text1)
end sub
public sub SelectText(obj as textbox)
    Dim k As Integer
    k = Len(obj.Text)
    obj.SelStart = 0
    obj.SelLength = k
End Sub

這個方法跟4樓的一樣,我現在是這樣做
100個TEXTBOX也是一樣要寫100次的獲得焦點事件.