I meant't creating QB libraries and using them.
Heres my code if it helps...
Code: Select all
DECLARE SUB Popup (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)
DECLARE SUB Textbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)
DECLARE SUB Checkbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER)
DECLARE SUB Backround (A AS INTEGER)
'**********************************************************************************************
'* This is Interface Library Created and Coded by Souylsin *
'* Backround Command *
'* x 1 TO 63 color of backround. 1 being black to 63 being white. *
'* Checkbox Command *
'* x,x, top left corner x, length x height *
'* Popup Command *
'* Stynax: a,b,c,d,"text",e,f *
'* a,b, top left corner c, length d, height "", text here e, x plane to put text f, *
'* y plane to put text *
'* Textbox Command *
'* Same as Above *
'**********************************************************************************************
'Testing area
'Backround Command
SUB Backround (A AS INTEGER)
PALETTE 1, A + (A * 256) + (A * 65536)
LINE (0, 0)-(320, 320), 1, BF
END SUB
'Checkbox Command
SUB Checkbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER)
PALETTE 12, 0 + (0 * 256) + (0 * 65536)
LINE (A, B)-(c, d), 12, BF
PALETTE 11, 63 + (63 * 256) + (63 * 65536)
LINE (A, B)-(c, d), 11, B
PALETTE 10, 63 + (63 * 256) + (63 * 65536)
LINE (A + 10, B + 10)-(c - 10, d - 10), 10, B
END SUB
'Popup Command
SUB Popup (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)
PALETTE 7, 63 + (63 * 256) + (63 * 65536)
LINE (A + 0, B + 0)-(c + 6, d + 5), 7, BF
PALETTE 9, 0 + (0 * 256) + (0 * 65536)
LINE (A, B)-(c, d), 9, BF
PALETTE 10, 63
LINE (A - 1, B - 1)-(c + 1, d + 1), 10, B
PALETTE 6, 63
LINE (A + 1, B + 1)-(c - 1, d - 1), 6, B
LOCATE x, y
PRINT text
END SUB
'Textbox Command
SUB Textbox (A AS INTEGER, B AS INTEGER, c AS INTEGER, d AS INTEGER, text AS STRING, x AS INTEGER, y AS INTEGER)
PALETTE 13, 0 + (0 * 256) + (0 * 65536)
LINE (A, B)-(c, d), 13, BF
PALETTE 11, 63 + (63 * 256) + (63 * 65536)
LINE (A, B)-(c, d), 11, B
END SUB