Is control MSFLEXGRID en heeft dit de focus

[ikkewel]

Ik zoek een manier om te bepalen of de gebruiker op een gegeven moment (na het intoetsen van een shortcut) een MSFLEXGRID-control als focus heeft.

Dim hForm As Form
Set hForm = Forms(Forms.Count - 1)
For Each Control In hForm.Controls

hier zou ik willen controleren of het een MSFLEXGRID is en of het ook de focus heeft.

Next Control

Alvast bedankt voor jullie meedenken !?!:thumb:

 

[beheer25]

Even een hersenspinsel. Kun je niet het onGotFocus event van de control gebruiken?

Scheelt volgens mij een vertragende loop.


Grtz,

 

[ikkewel]

Nee, want dat zou betekenen dat ik bijna bij honderd msflexgrids deze code zou moeten inbouwen.

Ik heb een rolmenu bovenin het scherm, en mbv een funktietoets wil ik, in het geval dat de bovenste form een msflexgrid bevat en de focus heeft, een bepaalde actie uitvoeren.

Het zou toch moeten kunnen denk ik...??

Alvast bedankt voor je antwoord.

 

[beheer25]

Wellicht dat het volgende kan helpen: http://www.mvps.org/access/forms/frm0004.htm


Grtz,

 

[ikkewel]

Helaas werkt dit niet bij Visual Basic, ik geloof dat het alleen werkt voor office Visual Basic. Ik krijg een runtime-error met de melding object doesn't support property or method.

 

[ikkewel]

Ik heb de oplossing reeds gevonden :

If TypeOf Screen.ActiveControl Is MSFlexGrid then

Bedankt voor jullie meedenken...