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
I have been able to concoct the following to allow quick access to all the major LB Web Sites and quick Email to the Group. Perhaps you could show how to replace the [url] routine below to use yours, and invoke the Default Browser for those who do not use Internet Explorer. [Alyce noted that the correct Browser and email clients are being invoked as the code it written. Look for this code called LBSites.bas in the newsletter archive] Any other suggestions welcome from all. Gordon
' PROGRAM TO SPEED UP ACCESS TO LB SITES ' MAKE A LBSITES.TKN THEN RENAME A COPY OF ' RUN.EXE TO LBSITES.EXE AND CREATE A SHORTCUT nomainwin WindowWidth = 390 : WindowHeight = 280 UpperLeftX = 200 : UpperLeftY = 100 button #1, "LB Files ", [files], ul 50, 30 button #1, "LB Emails", [messg], ul 150, 30 button #1, "LB Egroup", [egrop], ul 250, 30 button #1, "LB3 Group", [emlb3], ul 50, 80 button #1, "NewsLetrs", [news], ul 150, 80 button #1, "Home Page", [home], ul 250, 80 button #1, " Alyce's ", [Alyc], ul 50, 130 button #1, "All Basic", [ABC], ul 150, 130 button #1, "Dev4 Life", [D4lf], ul 250, 130 button #1, "Pick Site", [site], ul 50, 180 button #1, "PickEmail", [adrs], ul 150, 180 button #1, "* EXIT * ", [quit], ul, 250, 180 open "Liberty Basic Sites" for graphics_nf_nsb as #1 #1 "trapclose [quit]; fill blue; backcolor blue" #1 "discard; flush" [hold] wait [files] opt$ = "http://groups.yahoo.com/group/libertybasic/files" goto [url] [messg] opt$ = "http://groups.yahoo.com/group/libertybasic/messages" goto [url] [egrop] opt$ = "mailto:libertybasic@egroups.com" : goto [email] [emlb3] opt$ = "mailto:lbw3@yahoogroups.com" : goto [email] [news] opt$ = "http://groups.yahoo.com/group/lbnews" goto [url] [home] opt$ = "http://libertybasic.com" goto [url] [Alyc] opt$ = "http://iquizme.0catch.com/lb/index.html" goto [url] [ABC] opt$ = "http://www.allbasiccode.com" goto [url] [D4lf] opt$ = "http://www.development4life.net" goto [url] [site] prompt "Enter Web Site"; opt$ goto [url] [adrs] prompt "Enter Email Address"; opt$ goto [email] [url] 'chr$(43) = quote (") 'the url must be in quotes run "C:\Program Files\Internet Explorer\IEXPLORE.EXE "+ _ chr$(34)+opt$+chr$(34) goto [hold] [email] CALL RunThis opt$ ,h goto [hold] 'FOR FULL DETAILS TO INCLUDE THE SUBJECT USE:- 'CALL RunThis "mailto:carlg@l...?Subject=Liberty BASIC" ,h [quit] close #1 : end sub RunThis RunFile$, hWindow RunFile$=RunFile$+chr$(0) lpOperation$ = "open" + chr$(0) lpParameters$ = "" + chr$(0) lpDirectory$ = "" + chr$(0) nShowCmd = _SW_SHOWNORMAL open "shell32" for dll as #shell calldll #shell, "ShellExecuteA", _ hWindow as long, _ 'parent window lpOperation$ as ptr, _ 'open or print RunFile$ as ptr, _ 'file name lpParameters$ as ptr, _ 'null lpDirectory$ as ptr, _ 'default directory nShowCmd as long, _ 'show window flag result as long close #shell if result <= 32 then notice "Error, Address Failure!" end sub
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