Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Jan 13, 1999

Use OLE Automation to Call 16-Bit DLLs From VB5 (or VB4 32)

First, create a VB4-16 project and call it VB16Project. In the project, create a class module that includes a function that calls your 16-bit DLL in the usual way. Name the class VB16Class and the function VB16DLLCall. In your VB4-16 project, remove the default form and add a standard module with a Main subroutine or function.

Under the Tools/Options/Project/StartMode section, click on the OLE Server radio button. Make sure your class module's Instancing Property is set to 1 (CreateableSingleUse) or 2 (CreateableMultiUse). Compile and save your project as an Executable. Now create a 32-bit application using VB4-32 or VB5. To call the 16-bit DLL in your 32-bit project, use this code:

 
		Dim MyObj as Object 
		Set MyObj = CreateObject("VB16Project.VB16Class")
		Call MyObj.VB16DLLCall()
Jim Miles
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date