Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Text-basierte Benutzeroberfläche - Textbox

Uploader:AdministratorSebastian
Datum/Zeit:05.04.2008 15:37:46

SUB DrawTextbox (ByVal X As Integer, ByVal Y As Integer, ByVal Breite As Integer, _
    ByVal Hoehe As Integer, ByVal Value As String)
    DIM AS INTEGER i,maxlen
    DIM AS STRING t
    COLOR 0,7
    LOCATE Y,X: PRINT CHR(218)
    LOCATE Y,X+1: PRINT STRING(Breite-2,CHR(196))
    COLOR 15,7
    LOCATE Y,X+Breite-1: PRINT CHR(191)
    COLOR 0,7
    FOR i = Y+1 TO Y+Hoehe-2
        LOCATE i,X: PRINT CHR(179)
    NEXT i
    LOCATE Y+Hoehe-1,X: PRINT CHR(192)
    COLOR 15,7
    LOCATE Y+Hoehe-1,X+1: PRINT STRING(Breite-2,CHR(196))
    LOCATE Y+Hoehe-1,X+Breite-1: PRINT CHR(217)
    FOR i = Y+1 TO Y+Hoehe-2
        LOCATE i,X+Breite-1: PRINT CHR(179)
    NEXT i
    COLOR 0
    maxlen=breite-2
    If LEN(Value) > maxlen Then
        t = LEFT(Value,maxlen)
    ELSE
        t = Value
    END IF
    LOCATE Y+1,X+1: PRINT t; STRING(maxlen-LEN(t),32)
END SUB


SCREEN 12

CLS
DrawTextbox 10,10,16,3,"Hallo"
SLEEP: END