19 lines
446 B
QBasic
19 lines
446 B
QBasic
Cls
|
|
Locate 1, 10
|
|
'Color 15, 1
|
|
'Print space( 50 );
|
|
'Locate 12, 12
|
|
'print "Hello World";
|
|
|
|
'Print Point(1,10)
|
|
|
|
Sub DrawTextBox(ByVal x as Integer, ByVal y as Integer, _
|
|
ByVal TextWidth as Integer, ByVal FieldLen as Integer, _
|
|
ByVal TabAble as Integer = 0, ByVal Label as String)
|
|
|
|
Color 15,1:Locate y,x:Print Label;:Locate y,x+TextWidth:Print "[";
|
|
Locate y,x+TextWidth+FieldLen-1:Print "]";
|
|
End Sub
|
|
|
|
DrawTextBox 25,5,10,33,1, "Name:"
|