VB6-Adodc1.Recordset.ActiveConnection.Execute Sql
Code: Adodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\test.mdb" Adodc1.RecordSource = "select * from usertable" Adodc1.Refresh Adodc1Execute "UPDATE...
View ArticleClik here to view.
VB6 Flood Fill Art
Just something I threw together. All its good for is to pass the time. Add your own patterns and color away. Attached Images Attached Files DrawFill.zip (146.9 KB)
View ArticleClik here to view.
VB6 Message Box Control
This is my version of a beat to death message box. What I'd like to know is if it is usable for you . I've lightly tested it and it seems okay , but does it function alright as a usercontrol or should...
View ArticleClik here to view.
VB6 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 ArticleClik here to view.
VB6 Project Folder Creator
This will create and add a project folder with selected sub folders(Usercontrol,Classes,Modules,etc). Attached Images Attached Files Project Folder Maker.zip (3.1 KB)
View ArticleVB6 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
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 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 ArticleClik here to view.
VB6 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 ArticleCrop Filter: Crop Picture
Code: Dim Img 'As ImageFile Dim IP 'As ImageProcess Set Img = CreateObject("WIA.ImageFile") Set IP = CreateObject("WIA.ImageProcess") Img.LoadFile "C:\WINDOWS\Web\Wallpaper\Bliss.bmp" IP.Filters.Add...
View Article