Private WithEvents Control1 As MSForms.Control
Will allow you to bind to events common to all controls: Enter, Exit, BeforeUpdate and AfterUpdate
Correction. This does not work, and creates a run time error.
MSForms.Control defines the Enter and Exit events: if you need to handle TextBox.Change, then you need two WithEvents variables:
Private WithEvents TextBoxEvents As MSForms.TextBox
Private WithEvents ControlEvents As MSForms.Control
Public Property Set Control(ByVal tb As Object)
Set TextBo...
Open Notepad and copy code below and paste it in a new txt-file save it als CatchEvents2.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "CatchEvents2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_Pred...
Using a WithEvents variable to handle the MSForms.Control events of, say, a TextBox control has the irritating tendency to throw a rather puzzling run-time error 459 “Object or class does not support the set of events”. To be honest, I had completely forgotten about this when I started working on this MVVM framework. I had… Continue reading Making MVVM Work in VBA Part 2: Even…
@BloggingDuck @MathieuGuindon great! FYI - your class module has the annotations for description but no anntotation for the usermemid? The attributes are there, though.
Specifically, I need to know that all the headers I'm expecting, are actually there.
And when you have 69 fields to validate it's a lot easier to just write the code in Excel via formula to declare the constants and put them into an iterable list, than type out 400 lines by hand.
(I actually have ~200 fields to validate across 5 input reports, but I'm just taking them one module at a time)
@FreeMan nah I just got something to work real quick and then immediately blogged about it and then realized I was missing a bunch of annotation comments so I added them in... after the fact... cheating a bit
I tried the RubberDuck addin long time ago, but it was unusable: it was working only with very small projects, which is when you don't need it. My VBA projects are usually more than 30,000 lines, and the RubberDuck addin was chocking. Still, it doesn't solve the problem I'm asking about — stenci18 mins ago
The MVVM infrastructure code, including the unit tests and example, is currently 5,886 LoC across 81 modules, averaging 72 LoC / module. The initial parse completes in ~5 seconds on this machine.
turns out the better the code, the better RD works
I wouldn't be surprised if there were 100s of resolver ambiguities due to late-bound coding which adds to the performance. Mat's code probably avoids that as much as possible.
@MathieuGuindon True, but it's not a good sale for a product. "This punishes you brutally at first for being a nincompoop but you'll come to appreciate it."
correct, to determine the coclass, you'd have to find whether a coclass implements this interface. That implies making a dictionary for each interfaces of a coclass discovered.
The trouble, however, is that there is no guarantee that there will be only one coclass that implements this interface
If you're worried about a version of the type library dropping a old version of interface, I don't think it'll ever happen. They just rename the current interface, hide the old interface which still has the same IID and keep it in the type library. I think it's a bad practice to drop an interface, even if it's never been supported for several versions.
but anyway, I understood the document object to be basically a coclass that supports a code-behind (by providing for streams) and way to extend the behavior via events. So, a document object would be basically an extended version of the coclass.
Also:
?typeof sheet1 is Sheet1
True
?typeof sheet2 is Sheet1
False
correct, to determine the coclass, you'd have to find whether a coclass implements this interface. That implies making a dictionary for each interfaces of a coclass discovered.
There is no direct method for that information you're after.
yes - it's a bit annoying that MS went to so much of effort to hide all this details from VB developers but not have a obvious method in the type library API to get that information
for all I know, maybe all TypeOf does is just a IUnknown::QueryInterface, passing in the IIDs, so Excel.Worksheet is actually referencing the Excel.[_Worksheet]'s IID which returns True even though Excel.Worksheet is an coclass, not an interface.
I believe Sheet1 and Sheet2 also get their own interfaces, too.
@M.Doerner two ways: 1) add an event procedure via the properties sheet' Events tab using [Event Procedure] and then clicking on the ... button, 2) set its HasModule property to Yes in the Other tab in the property sheet.
note that Access has the unusual conventions where all forms' class module must be prefixed Form_xxx and reports, Report_xxx. Access will not allow imports of non document modules that contains the prefixes (and also certain class names like DoCmd)
an Access form with no module would implement only the Access.Form but an Access form with module would be Form_Form1 and Access.Form both
Private WithEvents Control1 As MSForms.Control
Will allow you to bind to events common to all controls: Enter, Exit, BeforeUpdate and AfterUpdate
Correction. This does not work, and creates a run time error.
MSForms.Control defines the Enter and Exit events: if you need to handle TextBox.Change, then you need two WithEvents variables:
Private WithEvents TextBoxEvents As MSForms.TextBox
Private WithEvents ControlEvents As MSForms.Control
Public Property Set Control(ByVal tb As Object)
Set TextBo...
Open Notepad and copy code below and paste it in a new txt-file save it als CatchEvents2.cls
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "CatchEvents2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_Pred...
VBA Rubberducking
VBA Rubberducking