VBA Rubberducking

7:29 AM

@Comintern I just dumped that TLB - Looks like all of the interfaces for the Controls are there.

[
uuid(b28fa150-0ff0-11cf-a911-00aa0062bb4c),
helpstring("The AmbientProperties object allows access to the ambient properties of the container."),
helpcontext(0x000df648),
dual,
oleautomation
]
interface AmbientProperties

this looks interesting:

[
  uuid(e43fd401-8715-11d1-98e7-00a0c9702442),
  hidden,
  oleautomation
]
interface IVbeRuntimeHost : IUnknown {
	[]
	HRESULT _stdcall get_AppObject(
		[in] GUID#i* pguidTypeInfo,
		[out] IDispatch** ppdispAppObject
	);

};

and the Initialize and Terminate events...

[
  uuid(fcfb3d21-a0fa-1068-a738-08002b3371b5),
  hidden
]
interface IClassModuleEvt : IUnknown#i {
	[id(0xfffffffa), helpstring("Occurs when an application creates an instance of a Class."), helpcontext(0x000df918)]
	HRESULT Initialize();
	[id(0xfffffff9), helpstring("Occurs when an instance of a Class is removed from memory by setting all the variables that refer to the object to Nothing or when the last reference to the object falls out of scope."), helpcontext(0x000df919)]
	HRESULT Terminate();

stupid OLEWOO inserting #i

Jun 6 '16 at 20:06, by Comintern

We'd need to read the VBInternal typelib, but yeah.

ThunderFrame

7:53 AM

huh, I thought VBRUN looked familar.... Here it is as a default reference in VB6:

Pandora wants her box closed and promptly handed back....

2

Duga

8:18 AM

[rubberduck-vba/Rubberduck] Vogel612 commented on issue #2641: Test Explorer Hangs in an infinite loop

> Copying Code from the attachment:

```
Attribute VB_Name = "TestCourse"
Option Compare Database
Option Explicit
'@Folder("Entities.Level1.Course")

Option Private Module

'@TestModule
Private Assert As Object

'@ModuleInitialize
Public Sub ModuleInitialize()
'this method runs once per module.
Set Assert = CreateObject("Rubberduck.AssertClass")

End Sub

'@TestMethod
Public Sub TestCreateCourse()
On Error GoTo TestFail

'Arrange:
With Course.

ThunderFrame

8:53 AM

And.... Here's VBRUN referenced in VBA....

ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\SysWOW64\MSVBVM60.dll\3"

ThunderFrame

9:05 AM

  Dim bag As PropertyBag
  Set bag = New PropertyBag

  bag.WriteProperty "Foo", "Bar"

  Dim buffer() As Byte
  buffer = bag.Contents

  Debug.Print LBound(buffer), UBound(buffer) 'Prints  0  35

Kaz

9:41 AM

@Mat'sMug I'd say it already is, people just don't know it yet.

2

FreeMan

1:10 PM

holy carp! 520+ messages since I left last night! Y'all were chatty!

@ThunderFrame is it sad that as I began to read that I thought of the music streaming service first?

And, for those who actually turn on the spell/grammar check in Outlook/Word, MS is contributing to poor grammar the world over:

3

Duga

1:33 PM

[rubberduck-vba/Rubberduck] rubberduck203 commented on issue #2641: Test Explorer Hangs in an infinite loop

> @retailcoder could the Option Private Module be hanging us up somehow? Just a stab in the dark.

FreeMan

1:48 PM

@Mat'sMug Are these created by installing RD? Would it not be easier (for the first time builder) to either A) install a built RD runtime to get the keys created, or B) create a file (don't recall the type off the top of my head) that will build/set all these keys?

(B) con't) and make that part of the package so they can be downloaded with the rest of the source...

Comintern

2:06 PM

@FreeMan You mean a .reg file? That's actually not a bad idea...

Transcript for