InputBox With Password mask,Get screen coordinate position of the input box
You can specify the display position of the input dialog or message box when it starts. After manually moving to the new position, the last position will be remembered, and the new dialog box will be...
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 ArticleVB6 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 ArticleVB6 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 ArticleVB6 Call Web Api GET
Hello friends:wave: I had a question about contacting the api : Connect via winhtt 5.1 I set up a connection and receive information from the web, but all at once I want to see if there is a way to...
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 ArticleCookie 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 ArticleSunRise 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 ArticleVoice chat over lan in word environment
I've been finding some threads about voice chat over LAN, but they are in VB.net, and do not work in VB.net or VB. My program is in the MS Word Environment (VBE). I am creating a medical report writing...
View ArticleVB6 Capture Pixel from Screen
Gets the pixel color from desktop. Can keep up to 5 colors per session. I find it very helpful when creating graphics for my apps. Give it a try. Enjoy. (please no comments on this or the world will...
View ArticleCode not reading entries !
l save some entries with the following code ...................................... Dim i Dim a1, b1, c1 As String Open "c:\xxxx\Entries.Dat" For Append As #2 For i = 1 To ItemCount Write #2, a1(i),...
View ArticleWebSocket: recv function crash
So I wanted to have a nice File Download function with progress indication - I have it working in VC. Just translated it to VB6. All initializations looks fine - exactly same results as VC. HOWEVER,...
View ArticleVB6 Capture Pixel from Screen
Gets the pixel color from desktop. Can keep up to 5 colors per session. I find it very helpful when creating graphics for my apps. Give it a try. Enjoy. (please no comments on this or the world will...
View Article"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 Article