Hi

I have a number of applications that all need to have the same (complex) screen handling. E.g. every field on every screen has a set of parameters held on a jet database and these define for example if only a date in the future can be entered into the field.

The application is now up and running but I am not happy that I have organised the code well

Each application has its own forms, but all of the event handlers call routines that are stored in 'common' modules that I have added to each application's project. I thus have many projects, but only one set of common modules

The problem is that every time I make a change to a common module, I have to re-create an .exe file for each application and as the number grows this is tedious.

Is there a better way to organise the code?

Is there a way of creating .exe files from a script?

Thanks for reading :)

Thanks
Psionman

__________________
Thanks
Psionman

Depending on what your common code does, it may be possible to put it in one or more DLLs instead and reference them in each EXE. Then you wouldn't need to re-compile the EXEs at all.

Failing that, I can think of a couple of ways to compile a whole bunch of EXEs:
1. put them all in VB Group, then just make the group
2. write some script to invoke VB6.exe from the command-line with the "/make" option, passing it the relevant project file names

hth
Phil

Thanks Phil

Some of the common code does things like setfocus to a textbox, or update the value of a textbox on a form. I'm new to this but can this be done from dlls?

Thanks
Psionman

A textbox is just an object that can be passed around like any other object. Just declare a parameter of type TextBox...

Thanks again Phil

I am using the Project Group idea and it works perfectly for me - you live & learn

As to the DLL issue. I have simplified each form by making all of the textboxes an object array and the only code on the form is is of the type

Private Sub txtInput_Change(Index As Integer)
    Call modForm.txtInput_Change(Me, Index)
End Sub

But in the dll, when I put the proc:

Sub txtInput_Change(myForm As Form, Index As Integer)
    'Blah Blah Blah
End Sub

I get an error 'Private object modules cannot be used in public object modules ... '

Aren't I just passing the form around like any other object?

Thanks
Psionman

OK! I think I've cracked it

You need some code like



Public Function NewTime(frmTemp As Variant, Index As Integer)
    Dim myForm As Form
    Set myForm = frmTemp
    myForm.txtinput(Index).SetFocus
End Function

This works!

Thanks for your help

Thanks
Psionman