Câîéñòâà àêòèâíîãî êîíòðîëà

[Homer J.S.]

Ïîäñêàæèòå ïîæ-ñòà, êàê îïðåäåëèòü èìååò ëè îáúåêò, íàõîäÿùèéñÿ â ôîêóñå òî èëè èíîå ñâîéñòâî.
Íóæíî ïðè íàæàòèè íà êíîïêó â òóëáàðå, îïðåäåëèòü ïîääåðæèâàåòñÿ ëè ñâîéñòâî òåõò ó àêòèâíîãî êîíòðîëà.
-----------
(ìîæíî êîíå÷íî îïðåäåëÿòü òèï îáúåêòà ñ ïîìîùüþ typeof Me.ActiveControl, íî òîãäà êîäà ìíîãî ïîëó÷àåòñÿ, èáî îáúåêòîâ ïîääåðæèâàþùèõ ýòî ñâîéñòâî ìíîãî)
----------
Çàðàíåå ñïàñèáî

[alibek]

Может это и не очень изящно, но код

Код: Выделить всё

On Error Resume Next
ActiveControl.Text = "testing"
On Error GoTo 0

может все упростить

[Homer J.S.]

ß òàê ïðîáîâàë, íî òî ëè basic ó ìåíÿ äóðàöêèé , òî ëè åùå ÷òî, íî on error ýòó îøèáêó íå ãëóøèò, runtime error è âñå òóò!

[alibek]

Посмотри в Tools -> Options, вкладка General, блок "Error Trapping". Там должно быть "Break in Class Module".