Super 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 ArticleVB6-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 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 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 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.
"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 ArticleHow to statically link a LIB or OBJ file in VB6!
There is a kinda hacky way to do this actually! I realized that there's no way to statically link the code so that it can be called like a normal function, as VB6 IDE won't even try to compile...
View ArticleClik here to view.
Draw on StdPicture objects
I'm not sure why you might need this, but this example shows how you can draw onto a StdPicture (type of bitmap only). Works whether currently assigned to a control or freestanding, such as loaded via...
View ArticleClik here to view.
ucGridPlus
A new UserControl or ocx (for those who want to compile it), as its name implies, is a Grid. Although there are already some Grids and very good by the way, in this case I tried to find a more modern...
View ArticleInteresting VB6Admin for database management
I found this interesting code on Github of a tool for managing database. It is coded in VB6. https://github.com/pyhoon/vbadmin-vb6 It is developed by a coder called: Poon Yip Hoon (Aeric)
View ArticleGet Audio Type: Get Image Type
Here are a couple of routines for finding the Audio and Image type. I don't claim they are exhaustive as they were written for my needs. I hope someone finds them useful. Code: Private Function...
View ArticleclsFTP for vb6
Code: Option Explicit Dim bSuccess As Boolean Dim sError As String Dim WithEvents cFTP As clsFTP Private Sub cFTP_FileTransferProgress(ByVal ForUpload As Boolean, lCurrentBytes As Long, lTotalBytes...
View ArticleClik here to view.
Managing Firewall Rules via INetFwPolicy2
Below provided several examples how to work with INetFwPolicy2 interface to setup Windows Firewall for your application. You'll have to connect type library via Project - References - NetFW.TLB Code:...
View ArticleClik here to view.
Calculator Simple usercontrol
I was just messing around with some old code and came up with this calculator control. Check it out and see how it works. I used the shape control and labels for the buttons. Attached Images Attached...
View Article