Demo - Wizard Framework
by Brad Moore

Home

Maintaining checkbox states
Tidbits from the community
Liberty Basic 4
New Alternate Forum
Using the Tsunami Database
Wizard Framework
Links to LB Sites
Update on 10th Anniversary Contest
Extracting Icons And Saving Them As Bitmaps
Applying Symbolic Logic
QuadClicks
Simple Math For Moving Objects
Event Driven Programming - Part 2
The Beginners Series - Part 1

 

This is from a post I made to the Liberty Basic group regarding a basic Wizard Framework. It attempts to demonstrate how Liberty Basic can be easily adapted to handle a wizard style interface similar to those that are encountered in install software or in task guides in some of the more recent productivity software. This is just a framework. A full operational Wizard will require much more programming.

'simple demo of a wizard and how to re-use button to simulate such
'runs in LB3.x
'by Brad Moore - version 1 - (2002)
'Hey anyone can use this (Public domain) - do something useful withit.

NoMainWin
WindowWidth = 450 : WindowHeight = 248
UpperLeftX = Int((DisplayWidth-WindowWidth)/2)
UpperLeftY = Int((DisplayHeight-WindowHeight)/2)

'keep track of the window we are displaying
Window = 1

Graphicbox #main.gb1,-5,-5, 450, 30
Graphicbox #main.gb2,-5, 20, 110, 190
Groupbox #main.group1, "", 120, 160, 300, 10
Statictext #main.st2, "", 130, 40, 290, 95
Button #main.cancel, "Cancel",[quit],UL, 190, 185, 105, 25
Button #main.btn1, "Next ->",[btn1],UL, 315, 185, 105, 25


Open "Window Title" For Window As #main

#main "trapclose [quit]"
#main.gb1 "down; fill darkgray; flush"
#main.gb2 "down; fill darkblue; flush"
#main "font ms_sans_serif 10"
#main.st2 "This is an example of a setup window - rough as it is.
Expand as you like"

[loop]
Wait

[quit]
Close #main : End


[btn1]
'if this is the first time I press the button the change the view.
If Window = 1 Then
#main.st2 "This is Page 2 - it is simulated by changing lables of
buttons and text boxes"
#main.btn1 "Finish"
'don't forget to change your indicator
Window = 2
Else
'Next time it is finish so I just quit
GoTo [quit]
End If

GoTo [loop]

  

Home

Maintaining checkbox states
Tidbits from the community
Liberty Basic 4
New Alternate Forum
Using the Tsunami Database
Wizard Framework
Links to LB Sites
Update on 10th Anniversary Contest
Extracting Icons And Saving Them As Bitmaps
Applying Symbolic Logic
QuadClicks
Simple Math For Moving Objects
Event Driven Programming - Part 2
The Beginners Series - Part 1