تشخیص Focus

[hamid_80386]

سلام به همه

من تکه برنامه ای میخوام که با فشردن Ctrl+A کنترلی از برنامه را که هم اکنون Focus در آن قرار دارد، در متغیر A ذخیره کند و
با فشردن Ctrl+B فوکوس را به کنترلی که در متغیر A ذخیره شده برگرداند.

یه همچین چیزی.

 

[>-->O]

با توابع زیر کار کن

Private Declare Function GetFocus Lib "user32" () As Long

Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long