by Alper Saracoglu (1 Submission)
Category: VB function enhancement
Compatability: Visual Basic 3.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: 
(4 Votes)
This is the latest version of my mouse-zoom camera add-in. It is especially useful when designing skinned forms. You can zoom in the form so that you can place your controls at the right places. The source code is heavily commented.
UPDATES (since v1.0):
1.The mouse-cam pauses now when any code-window gets focus, and resumes for any other window.
2.The last zoom level is saved in registry, so that add-in starts with the last zoom level.
3.The link to Office DLL is removed. MenuBar icon placement is now without creating a menubar object. The add-in uses therefore much less resources now.
4.MenuBar icon is changed. It looks more professional now.
5.Button tool-tips added.
Assumes
HOW IT WORKS:
Compile the project to an ActiveX.DLL and drop the ActiveX.DLL in the C:\Program Files\Microsoft Visual Studio\Common\MSDev98\AddIns folder. From Add-Ins Menu, start Add-in Manager, and load MouseCam Add-in. An icon will be added to your toolbar. Clicking this icon will make the MouseCam
tool-window visible. Initially, mousecam will be off. Start it with the on/off button. The initial snapshot interval is 100 ms. You can change this by clicking the interval button. The initial zoom is 100%. You can go up to 9900% by clicking the
zoom-in button. When the zoom is more than 100%, the 1:1 button will be enabled. Clicking this button sets the zoom to 100%, and makes the ZoomBack button enabled. You can go back to the last zoom level, by clicking the ZoomBack button.
API Declarationsuses StretchBlt, GetDesktopWindows, GetWindowDC, GetCursorPos API's
VBcoders
