ник: час
Я так и пишу, но что-то не фурычит.....
Private Sub Form_Current()
Dim ctlCurrentControl As Control
Set ctlCurrentControl = Me.ActiveControl ' здеся говорит
введённое выражение требует, чтобы элемент управления находился в активном окне
(что бы это значало?)
MsgBox ctlCurrentControl.NAME
End Sub
|
писал вот так
Dim ctlCurrentControl As Control
Set ctlCurrentControl = Screen.ActiveControl
MsgBox ctlCurrentControl.NAME
|
эффект тот жа