Home Budget-Slip System

My first successful home budget program written was back in QuickBasic 7, in the late 1980's and Early 1990's.

The name "Law" stick from the first time till now.

I upgraded (actually, re-written) to VB3 in the old Win 3.11 system and when Win98 came along, I upgraded it to VB5 and later change a bit here-and-there to VB6.

The face did not changed a lot over these years, but currently have changed (still busy) it completely, re-building everything in some of the forms.

Some people who (try) to use it says it's too difficult, but a recent acquaintance who is in business for more than 30 years feels this is exactly what he need.

There's a smaller, quicker version I wrote for my wife, in a similar layout but with only a few pages (forms), but that will be discussed later.

So, before I change everything and forget what I have done, let me give this one for you.

There are still some errors (after all this time :) ), as can been seen in the Accumulative and Report form...

(( Uncle Sam Brown (and many others) will hate this code... :D :D ))

LAW8: (Yes, the .vbp says LAW9)
Attachment 151125

Updated Zip: (deleted unnecessary controls) [Controls included: Threed32, richtx32, COMDLG32 ]
Attachment 151183

Problem when first starting in the IDE (probably Sheridan Controls)

Attachment 151155

Look at the .vbp, and see if it's correctly set for your PC. You can:

Change Between [brackets]: x86
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#[F:\WINDOWS\system32]\stdole2.tlb#OLE Automation

to THIS without [brackets]: x64
..\..\..\Windows\SysWOW64

or vice versa

...sometimes it's not that easy though...

My main PC (and the one I do ALL VB6 on) is XP Pro 32 bit
My gut tells me that you have used purchased controls, that many won't have the license for, and won't run in their IDE's

In particular the Threed32 controls. I think I've only had them back when they were included with the VB3 distribution (of course not the 32-bit versions of the controls). Probably not a lot of people purchase the controls when they upgraded to VB4 and above, so your code will probably be of little interest to the majority of VB6 users.

Quote:

---

Originally Posted by Bobbles

...My gut tells me that you have used purchased controls,...

---

Nope.

I believe in "open";- and free ware only.

Controls included: Threed32, richtx32, COMDLG32

The program was mainly written in XP, but for the last few months in win 10. I never wrote any programs in win7.
In some of the forms a programmer can see when I have upgraded a form or not. Dates included on the top of each form-code.

I still have a dual system with XP, but I convert most of my programs to run in 10. Some of them (as this one) did not wanted to open in w10, until I done the compatibility of vb6.exe to Win XP Pack 2 or 3. Now all of my own written programs open in w10 (not qbx though :D )

Here's a count of them, in different categories (.exe count only-completed):
Bible programs: 103
Backup Tools: 13
Clipboard Tools: 30
Controls: 200 (Mine) 17 (others-modified)
Data Tools: 209
Desktop: 2
Dictionary Tools: 6
Drive Tools: 2
Edit Tools: 166
Web Tools: 64
File Tools: 205
Folder Tools: 6
Client programs (current): 26
Game programs & Tools: 65
Help Tools: 7
Math Tools: 7
Misc tools: 118
Music tools: 72
Net tools: 139
Picture tools: 109 (one of my oldest I written in VB3, converted it to VB5, re-code the DATA parts, works now in W10 also - save a picture to a database, can be extracted at any stage into original? file again. The icon file for the main form was created in 2003/04/17)
Attachment 151195
Registry tools: 14
Screen tools: 8
Security tools: 30

Then there are VB3 (.vbx) which I converted into VB5, too many to count for, now, some my own and some not, and these are also working in VB6...This (LAW) was one of them!

I'm currently busy with a few programs, but this one I'm converting to VS 2012:
Attachment 151197

Sorry for any inconvenience. Maybe I must place the smaller one here? (Threed32 was taken out in that one).

Quote:

---

Originally Posted by passel

In particular the Threed32 controls. I think I've only had them back when they were included with the VB3 distribution (of course not the 32-bit versions of the controls). Probably not a lot of people purchase the controls when they upgraded to VB4 and above, so your code will probably be of little interest to the majority of VB6 users.

---

I got mine from here:
https://www.ocxdump.com/download-ocx.../download.html

Edited:

And I run my own .bat file:

Code:

---

regedit vbctrls.reg
regsvr32.exe anibtn32.ocx
regsvr32.exe richtx32.ocx
regsvr32.exe spind32.ocx
regsvr32.exe tabctl32.ocx
regsvr32.exe threed32.ocx 
regsvr32.exe GAUGE32.OCX
regsvr32.exe GRAPH32.OCX
regsvr32.exe GRID32.OCX
regsvr32.exe KEYSTA32.OCX
regsvr32.exe MSOUTL32.OCX

---

...and a good policy:
VBCTRLS.REG

Code:

---

REGEDIT
HKEY_CLASSES_ROOT\Licenses = Licensing: Copying the keys may be a violation of established copyrights.

// The 16 bit and 32-bit OCX Professional license follows:
HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB = mgkgtgnnmnmninigthkgogggvmkhinjggnvm
                                                       
// The 32 bit OCX Professional license follows:
HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB = gifblihbhiiihbciocfbkifbqcfcdiebbiqh

// spin32 DB key
// anibtn DB key
// gauge  7B key
// grid  DB key
// keysta DB key
// msoutl DB key
// threed DB key

---

The readme.txt file of 1996 states:

Quote:

---

\Tools\Controls

This directory contains all of the ActiveX Controls that shipped with Visual
Basic 4.0 Professional and Enterprise Editions, which are no longer shipping
with Visual Basic 5.0.

AniBtn32.ocx
Gauge32.ocx
Graph32.ocx
Gsw32.EXE
Gswdll32.DLL
Grid32.ocx
KeySta32.ocx
MSOutl32.ocx
Spin32.ocx
Threed32.ocx

The \Tools\Controls\BiDi directory contains a Bi-directional version of
Grid32.Ocx.

If you have Visual Basic 4.0 Professional or Enterprise Editions installed on
your machine, you should already have these ActiveX controls available to you in
Visual Basic 5.0.

Graph32.ocx has been updated to work properly in Visual Basic 5.0 and it
requires two additional support files: gsw32.exe and gswdll32.dll. You must
place the three files together in the \Windows\System directory or the control
will not function properly.

If you do not have these controls and wish to use these in Visual Basic 5.0, you
can install them by:

1. Copy all of the files in this directory to your \WINDOWS\SYSTEM directory.

2. Register the controls by either Browsing to them in Visual Basic itself, or
manually register them using RegSvr32.Exe. RegSvr32.EXE can be found in the
\Tools\RegistrationUtilities directory. The command line is:

regsvr32.exe grid32.ocx

3. Register the design time licenses for the controls. To do this, merge the
vbctrls.reg file found in this directory into your registry. You can merge this
file into your registry using RegEdit.Exe (Win95 or WinNT4) or RegEd32.Exe
(WinNT3.51):

regedit vbctrls.reg

---

Hope it help
:)

Here is the small version of the same program, and not even a 3rd of the original options ( :( ).

• To create a New business: create a folder and place the exe here
• No last month-end date
• Deleted entries: Slip is not used again
• Slip numbers can be changed-unreliable count (a user can forget)
• Delete must be done outside the program
• No more sub-categories
• no more notes
• No more data path settings
• ...etc

The only extra control is MSFLXGRD.OCX

Quick and to the point:

Attachment 151201

This was not the best of programming either, but it was a quick solution.

Well, I don't know if downloading from there is technically legal, but further reading shows that the files were provided on the VB6 CDs under Common\Tools\Vb\Controls. I just didn't bother installing and registering them before. I don't know if I'll bother now since I don't do that much VB6 work and shy away from adding dependencies for the few tools I have written that are still in play. Just lazy I guess.

The problem will be to do with Sheridan's THREED32.OCX
I like to keep things simple, and try to avoid too many dependencies especially MS's extra controls.
So I will not attempt to fix this (Sheridan's THREED32.OCX) on my PC.
For other members that do have problem opening/running your contribution, these links may help them -
http://www.vbforums.com/showthread.p...s-THREED32-OCX
https://support.microsoft.com/en-us/...ot-found-error

Regards,
Rob
PS I would be the last person on Earth that would encourage people to migrate to VB.NET (I am still hoping it will die and go away) .However because I was born to be a helpful sharing good Samaritan, I will share these links for those wishing to migrate their code to VB.NET -
https://www.mobilize.net/solution/vb-upgrade-companion
Download free for 10,000 lines of code -
https://www.mobilize.net/vbuc-free-t...1-7e90f8d21e9c

Quote:

---

Originally Posted by Bobbles

...PS I would be the last person on Earth that would encourage people to migrate to VB.NET (I am still hoping it will die and go away)...

---

Myself and I also hate it, but maybe in the future someone ask me to do some project in the net environment, then I know at least some basic stuff.

I have done the screen layout so far.

Yes. So far.

...will need some time to think a bit, but I already done the layout so far...


Just take a bit of rest for awhile, and the feeling of changing over creep slowly over me....

for i = 0 to 5000000
doevents
print :D
next i

Nope. that feeling has just past...

That's it!

I'm done.

Thanx Bobbles

I found this threed32 register program IF anyone is interested:

http://www.planet-source-code.com/vb...11934&lngWId=1


I'm busy replacing every threed32 in my programs with my own user control...

Dammer! The link does not work anymore - get a "404"

Hi Inside,

Here's the official Microsoft page for the ThreeD32.ocx controls for use in the VB6 IDE (for development). They just give them away now. There are also a few other OCX files that'll get registered for development, but I'll let you read the list on the Microsoft page.

Enjoy,
Elroy