首頁猿問 vb6.0中，有沒有獲取焦點(diǎn)位置的...

vb6.0中，有沒有獲取焦點(diǎn)位置的函數(shù)，方法，或是代碼？

JavaScript

ABOUTYOU 2019-01-27 12:08:46

查看完整描述

2 回答

紅糖糍粑

TA貢獻(xiàn)1815條經(jīng)驗(yàn) 獲得超6個(gè)贊

用Me.ActiveControl可以獲得當(dāng)前窗體中擁有焦點(diǎn)的那個(gè)控件。要注意的是，你不能在會導(dǎo)致焦點(diǎn)改變的情況下進(jìn)行檢測，比如按鈕單擊事件中，這時(shí)焦點(diǎn)是按鈕了，就無法知道點(diǎn)擊之前焦點(diǎn)是在哪個(gè)控件了。建議用時(shí)鐘控件，比如：
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Debug.Print Me.ActiveControl.Name
End Sub

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

汪汪一只貓

TA貢獻(xiàn)1898條經(jīng)驗(yàn) 獲得超8個(gè)贊

Private Declare Function GetFocus Lib "user32" Alias "GetFocus" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

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