Solved

32 bit equiv.

Posted on 1998-11-25
2
331 Views
Last Modified: 2012-05-04
What is the 32 bit equiv to the following?

HMemCpy copies bytes from source buffer to destination buffer.  This supports objects larger than 64K)

Declare Sub HMemCpy Lib "kernel" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)

I need to use this with VB6 / Win 95 32 bit mode with Kernel32.  The above worked fine with VB3 / Win95 but does not work with VB6 / Win95.
0
Comment
Question by:mheller
  • 2
2 Comments
 
LVL 14

Accepted Solution

by:
waty earned 200 total points
ID: 1446766
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, Source As Any, ByVal bytes As Long)

0
 
LVL 14

Expert Comment

by:waty
ID: 1446767
NB : Here is a sample

   ' *** Copy string to byte array
   CopyMemory byteArrayString(1), ByVal sLine, nSize

0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…

708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now