You are still not seeing it. Unroll the loop so that there is
a select statement. What you are left with is the code that LB/LBB
executes when you run your program. To save you the trouble, here is your program with the loop unrolled:
Code: Select all
nomainwin
WindowWidth = 830
WindowHeight = 610
UpperLeftX = 20
UpperLeftY = 20
'------------------------------------------------------------------
'Set up the Textboxes
' NOTE that Stylebits must follow the Textbox statements!
'-----------------------------------------------------------------
TextboxColor$ = "white"
print: print
hPos = 150: bWidth = 300: bHt = 20: Row = 10
bWidth2 = 130: bWidth3 = 110
TextBox #main.tb, hPos, (bHt)*1, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(1) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*2, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(2) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*3, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(3) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*4, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(4) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*5, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(5) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*6, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(6) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*7, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(7) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*8, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(8) = "#main.tb"; "_r";i
TextBox #main.tb, hPos, (bHt)*9, bWidth+1, bHt+1
Stylebits #main.tb, _ES_LEFT, _WS_BORDER, 0, 0
TB$(9) = "#main.tb"; "_r";i
TextBox #main.tb, 500, 50, 300, 480
Stylebits #main.tb, _ES_LEFT OR _WS_VSCROLL OR _ES_MULTILINE, _WS_BORDER OR _ES_AUTOHSCROLL, 0, 0
maphandle #main.tb, TB$(10)
' Labels
statictext #main, " Name/Company:", 20, 22, 110, 20
statictext #main, "Tel:", 20, 42, 45, 20
statictext #main, "Mob:", 20, 62, 35, 20
statictext #main, "Address:", 20, 82, 100, 20
statictext #main, "City:", 20, 102, 45, 20
statictext #main, "County:", 20, 122, 100, 20
statictext #main, "Zip:", 20, 142, 20, 20
statictext #main, " E-Mail 1:", 20, 162, 60, 20
statictext #main, " E-Mail 2:", 20, 182, 60, 20
statictext #main, " Notes: No commas or Return key", 500, 25, 300, 20
statictext #main, " Contacts:", 20, 235, 100, 15
statictext #main.totRecs, " ", 30, 265, 30, 20
' buttons
button #main.btnSave, "Save", [btnSaveClicked], UL, 375, 480, 75, 25
button #main.btnExit, "Exit", [btnExitClicked], UL, 375, 510, 75, 25
button #main.btnClear,"Clear",[btnClearClicked], UL, 375, 450, 75, 25
button #main.btnEdit, "Edit Help", [btnEditHelpClicked], UL, 210, 540, 80, 22
button #main.btnHelp, "?", [btnHelpClicked], UR, 15, 4, 18, 18
button #main.btnSaveEdit, "Save Edit",[btnSaveEdit] ,UL, 295, 540, 60, 22
button #main.btnDelete,"Delete",[btnDeleteClicked], UL, 150, 540, 55, 22
stylebits #main.lbx, _ES_LEFT, _WS_BORDER, 0, 0
listbox #main.lbx, address$(, [displayContactInfo], 150, 230, 205, 300
statictext #main.helpme, "", 350, 2, 40, 15
'WAIT
[openMainWindow]
open "Address Cardfile" for window_nf as #main
#main, "trapclose [btnExitClicked]"
#main, "font ms_sans_serif 11"
[btnExitClicked]
Confirm "Close Address Cardfile?"; ans$
if ans$= "no" then WAIT
open "contactme.bak" for output as #copy
close #original
timer 500, [null]
wait
[null]
timer 0
'shut down
close #main
END
You should now see that the situation I described arises: there are many places where there is no way that LB/LBB can determine whether a Stylebits statement is intended to apply to the
Textbox statement.