couple of months back, I took it upon myself to clean up the VB Sample Bank code. The original goal was to modify the code just enough to use the objects in scalability tests to compare it against pooled objects written in VC++ and Delphi 5. However, once I opened
‘ Return a collection with all hidden types of a type library” VB’s Object Browser hides some types in a type library:’ you can show these types by right clicking on the Object Browser and’ activating the “Show hidden members” option. This option, however,’ shows only types labelled as “hidden”,
‘ return a collection with names of all the class names’ of a type library that implement a certain member.” MEMBERNAME is the name of the property or method’ MEMBERTYPE is the type of the member (vbGet, vbLet, vbSet, vbMethod).’ You can specify multiple types by ORing these constants ”
‘ Returns a bit-coded value that specifies the type of’ an object’s member (property, method, event)’ or zero if the member isn’t there’ Object is the object which you want to work’ MemberName is the property, method or event name” the return value is one of the following’ INVOKE_FUNC (method)’
‘ Return all classes of the type library specified in’ TypeLibFile parameter that support a certain interface.’ the interface can be specified as an Object or through its IID’ Be sure that “TypeLib Information” type library (TlbInf32.tlb)’ is referenced in your VB project.Function GetClassesByInterface(ByVal TypeLibFile As String, _ ObjectOrInterfaceIID As
‘ Return a collection with all creatable classes of’ the type library specified in TypeLibFile.” Set IncludeNotCreatableClasses = True to include not creatable classes’ (that is, those with Instancing property set to PublicNotCreatable) too.’ Be sure that “TypeLib Information” type library (TlbInf32.tlb)’ is referenced in your VB project.Function GetClasses(ByVal TypeLibFile
‘ Return the GUID of the object specified in the first parameter’ Be sure that “TypeLib Information” type library (TlbInf32.tlb)’ is referenced in your VB project.Function GetObjectGUID(Object As Object) As String Dim TLI As New TLIApplication ‘ any error will be raised by TLI GetObjectGUID = TLI.InterfaceInfoFromObject(Object).GuidEnd Function
‘ Return the DispID of a procedure’ ProcName must be set to a procedure name of the object’ specified in the second parameter.’ Be sure that “TypeLib Information” type library (TlbInf32.tlb)’ is referenced in your VB project.Function GetDispID(Object As Object, ByVal ProcName As String) As Long Dim TLI As New
A scrolling DIV is a great way to display a large amount of data without resorting to frames. Setting the CSS-2 OVERFLOW property to auto will make the DIV into an independently scrolling container when either the HEIGHT or WIDTH property also is specified: This is great, but how do