首頁猿問 gotfocus控件使用函數(shù)?

gotfocus控件使用函數(shù)?

JavaScript

紅顏莎娜 2019-02-14 15:11:02

有text1至text10 共10個文本窗口也有10個gotfocus控件當(dāng)單擊command按鈕時只計算獲取標(biāo)點(diǎn)的text文本窗口中的值求具體代碼

查看完整描述

2 回答

慕妹3146593

TA貢獻(xiàn)1820條經(jīng)驗獲得超9個贊

那不叫g(shù)otfocus控件，叫g(shù)otfocus事件
Dim tt As TextBox
Private Sub Command1_Click()
MsgBox tt.Text
End Sub
Private Sub Text1_GotFocus()
Set tt = Text1
End Sub
Private Sub Text2_GotFocus()
Set tt = Text2
End Sub

對類似問題建議使用控件數(shù)組，將Text1設(shè)置為控件數(shù)組，不管有多少Text，只需一個GotFocus事件即可：
Dim tt As TextBox
Private Sub Command1_Click()
MsgBox tt.Text
End Sub
Private Sub Text1_GotFocus(Index As Integer)
Set tt = Text1(Index)
End Sub

反對回復(fù) 2019-03-10

嚕嚕噠

TA貢獻(xiàn)1784條經(jīng)驗獲得超7個贊

將text1至text10改名為txtText(1)至txtText(10)
Dim GotFocusText

Private Sub Command1_Click()
MsgBox txtText(GotFocusText).Text
End Sub

Private Sub txtText_GotFocus(Index As Integer)
GotFocusText = Index
End Sub