怎么让自定义控件中执行了对其他控件的操作后焦点仍回到自己?
有两个问题衣请教大家:
1 一个自定义控件中有个ListView控件,
在lsvItem_ItemClick(ByVal Item As MSComctlLib.ListItem)中执行了对窗体中其他控件的操作后,我想让listview的当前行仍保持高亮选中状态,怎么做呢?现在执行完后,它就失去了焦点,当前行是灰色状态,表明焦点不在它上头.用以下语句也不行
SelectIdx = Item.Index
listView.ListItems(SelectIdx).Selected = True
2 假设窗体上有一个自定义控件和其他控件,当对其他控件操作以后,怎么用代码让焦点落到自定义控件里的某个控件上?
[解决办法]
SetFocus
[解决办法]
API
Declare Function GetFocus Lib "user32 " Alias "GetFocus " () As Long
Declare Function SetFocus Lib "user32 " Alias "SetFocus " (ByVal hwnd As Long) As Long
[解决办法]
顶