VB6 Locks up at breakpoint in Windows 10
I've got VB6 installed and running in Windows 10 after following some tips. Unfortunately, it doesn't behave right. For example, when I set a BREAKPOINT and then RUN the app, it stops at the...
View ArticleClik here to view.
PicServer as Service
PicServer has been made into a service. It is quite a bit more complex than the original, and is called PicSvc. PicSvc requires the use of NTSVC.ocx. To allow some trouble shooting in the IDE, PicSvc...
View ArticleSystem Wide Got/Lost Focus (subclassing)
This is just a small example of how one might accomplish system wide GotFocus and LostFocus events in VB6. The way it's setup, it's fairly IDE safe. With the Comctl32 subclassing, there are only two...
View ArticleInputBox With Password mask,Get screen coordinate position of the input box
Code: Private Sub Form_Load() InputX = 300 * Screen.TwipsPerPixelX InputY = 500 * Screen.TwipsPerPixelY End Sub Private Sub Command1_Click() Dim S As String S = InputboxXY("Please Input Your...
View ArticleAdjust the size of the borderless window-VB6
Code: Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTLEFT = 10 Private Const HTRIGHT = 11 Private Const HTTOP = 12 Private Const HTBOTTOM = 15 Private Const HTBOTTOMRIGHT = 17 Private Const...
View ArticleClik here to view.
VB6 Flip Digit Style Clock from the 70's
Very simple clock code with the graphics that look similar to the flip digit clocks from the 70's . Added the date just for grins Attached Images Attached Files FlipDigits Clock_Date.zip (8.5 KB)
View ArticleGet Library Name by Com DLL with vb6
HOW to get Library Name by Com DLL with vb6? from : Library info.-VBForums https://www.vbforums.com/showthread....6-Library-info Library Excel c:\***\Office16\EXCEL.EXE Microsoft Excel 16.0 Object...
View Articlevb6 everything SDK,quick Search file for vb6,vba
Need Run EveryThing.exe First ! it's support x64 everything.exe,but un suppot about:Lite version Download Portable Zip 64-bit,it's only 2 files,it's funny (Everything.exe,Everything.lng),it's support...
View ArticleClik here to view.
VB6 Rolling3Digits BitBlt
Just threw this together to have something to do . Does'nt really do much, but looks neat. It can only display numbers not add or subtract. Maybe someone will find something useful in it. Maybe even...
View ArticleEdge Webview2 Automatic installation, detect the installed version
Code: Function CheckSetupOk() As Boolean 'It takes 10 seconds to check whether the edge runtime component is installed successfully. Is there a faster method? Dim WV As cWebView2 Set WV =...
View ArticleCheck if it is a 64-bit operating system
Code: Private Declare Function GetModuleHandle Lib _ "kernel32" Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String) As Long Private Declare Function LoadLibrary Lib _...
View Articlehook createProcess with wmi
Code: Private Sub Command2_Click() Check1.Value = 0 End Sub Private Sub Command1_Click() 'ADD CONTROLS:Command1,Command2,List1,check1 Check1.Value = 1 strComputer = "." Set objWMIService =...
View ArticleSuper fast running image rotation
This is the first method, which is slower and has no extra white edges. The second method is faster Code: Private Type Bitmap bmType As Long 'Image type: 0 means bitmap bmWidth As Long 'Image width...
View ArticleConvert image files to JPG format BY WIA
Code: Function WiaSaveAsJpg(LoadFile1 As String, SaveJpgFile As String, Optional JpgQuality As Long = 85, Optional ErrInfo As String) As Boolean On Error GoTo Err1 Dim Img 'As ImageFile Dim IP 'As...
View ArticleClik here to view.
Cookie Twist - Rotate circular selection
The effect is to let the user define a round "cookie" selection in an image and then "twist" it -180 to 180 degrees. Unzip into a folder. Copy a large picture into the Project folder and rename it...
View ArticleClik here to view.
SunRise SunSet and Moon Phases
Let me first state: I did not write this code. I simply made two usercontrols with the code and later combined them together . So there is a little duplication here and there (messy I know) , but...
View ArticleClik here to view.
"Alpha wipe" image transition
A photo transition effect that wipes a new image over an old image working from left to right. Easily modified to wipe right to left, top to bottom, or bottom to top. Unzip into a directory. Copy two...
View ArticleHere's how to execute any arbitrary x86 machine code from a VB6 program.
Just paste this code in Form1, and make sure Auto Redraw is enabled for the form. I've commented this code so you can see how it works at a glance. Code: 'Repurpose the CallWindowProcA function to call...
View ArticleClik here to view.
Simple Image Manipulation App (Flip, Rotate, Crop)
This is a simple image manipulation app with the following features: Load an image (Press L) Horizontal flipping (Press H) Vertical flipping (Press V) Rotation by pressing R (90 degree clockwise...
View ArticleClik here to view.
Executing assembly language functions in VB6 using DispCallFunc.
Yes, I know this has been done to death on these forums but one more couldn't hurt. :bigyello: This is yet another sample showing how to call function pointers in VB6. In this sample I wrote 3...
View Article