Category Archives: Visual Basic 6 (VB6)

blocks – a cool tetris clone

A cool tetris clone just like the original. Programming by Anton Gustavsson, graphics by Me. Original Author: Happy Lobster Attachments File Uploaded Size CODE_UPLOAD452.zip 9/3/2020 3:45:00 PM 7936

Make your own screen saver

This gives the basic code for making a windows screen saver. Very easy to understand and use!! Original Author: DoWnLoHo Assumptions you have 2 forms named frmConfig and frmMain Code Sub Main()Dim strCmdLine As String  strCmdLine = Left(Command, 2)If strCmdLine = “/p” Then’    End’on select of your screen saverElseIf strCmdLine = “/c” Then’Call Load(frmConfig)’  frmConfig.Show’Function to call when’Settings”  button is pushedElse’Call Load(frmMain)  ‘  frmMain.Show’your screen… Read More »

Basic RPG engine made entirly using bitblt

This is a RPG game made entirly using bitblt. It is very simplistic, and it’s main purpose is for those who are intermediat programmers, who want to learn how to program basic games. Also comes with a map editor, for editing existing maps, or for creating new ones. Original Author: Matthew Eagar Assumptions Needs to have a basic under… Read More »

500 Sprites

500 sprites using Bit Blit with collision detection.How many frames per second can you achive?No timer used…. Only a loop with Original Author: Derek Hall Attachments File Uploaded Size CODE_UPLOAD398.zip 9/3/2020 3:45:00 PM 5597

Get and Save how many times your prog was loaded

This code will allow you to Save & Get how many times your program has been loaded.Add a few lines of code to your program’s main forms’ load procedure. Very easy to understand. Original Author: DoWnLoHo Returns Returns as Long Code Public Sub SetLoaded()’put this in your main forms’ Load procedure’this will set the countDim lTemp As Long, sPath… Read More »

Strip HTML

Strip HTML from a string with this function. That basically explains it’s all!! Original Author: DoWnLoHo Code Public Function StripHTML(sHTML As String) As StringDim sTemp As String, lSpot1 As Long, lSpot2 As Long, lSpot3 As LongsTemp$ = sHTML$DolSpot1& = InStr(lSpot3& + 1, sTemp$, “<“)lSpot2& = InStr(lSpot1& + 1, sTemp$, “>”)   If lSpot1& = lSpot3& Or lSpot1& < 1 Then… Read More »

Extended Color Constants

Get some extended color constants. Stuff like vbWhite, vbBlue are great, but even better is vbDarkGreen, vbPaleBlue etc… Original Author: CodeJack Assumptions I ran across this little tid-bit and thought it would be usefull to others. I can’t remember where I got it, but I’ve had it for a looonggg time. Code Public Enum exColorTypes ‘vbWhite = &HFFFFFF… Read More »

Tic-Tac-Toe !

Play 2 player tic tac toe with your friends or play 1 player against the computer Original Author: Ben Doherty Attachments File Uploaded Size CODE_UPLOAD382.zip 9/3/2020 3:45:00 PM 6720

***UPDATED***SIMPLE****ALL-IN-ONE CLASS MODULE

An incredibly useful Class module, forget about retyping all those declarations each time: Add this module to your project and off you Go!!!Things from: Gradients to n/o BITS per Plane. Amount of PageFile to the Mem Load. Renaming Your Computer, Getting HARD DISK space, Checking If running in the IDE or EXE. THE LIST IS ENDLESS, CHECK IT… Read More »