Feuer wrote:Pitäisi toteuttaa tekstipohjainen "Kyselen, luon vastauksista tiedoston, ja näytän pyydettäessä tiedoston sisällön" - tyyppinen ohjelma. Muuten olen onnistunut tuossa, mutta haluaisin taustan valkeaksi ja tekstin mustaksi. Ongelma on se, että kun isken rivit
muuttuu ohjelmaikkuna täysin mustaksi. Ohjelma toimii täysin koodin mukaan alla, ikkuna ei vain päivitä kuvaansa. Apua juurifoorumilleliittyneelle?
Voiko muuten CB:llä tehtyä apuohjelmaa käyttää noin vain vanhempieni firmassa ilman suurempaa säätöä?
En tiedä miksi tuo ei toimi, mutta näyttäisi siltä että mitkään värivakiot eivät toimi ClsColorsissa jos sitä ennen on Color komento.
Mutta kun vaihtaa värivakion RGB:ksi niin toimii, elikkä tee vaikka näin(Edit: eipäs toimikkaan, katso alempia edittejä):
Code: Select all
Color cbBlack
ClsColor 255,255,255
EDIT:Mitä vattua, tuo koodi toimi mutta ei enään.. Hmm.. Mystistä
EDIT2: Toimii se sittenkin jotenkin mystisesti ainakaan ilman silmukkaa DrawScreeniä kutsuttaessa ei toiminut.
EDIT3: Näyttö pitää piirtää kaksi kertaa jotta toimisi O_o
EDIT4: Sly_Jack0 koitappas itse tätä koodia:
Juuri niin, ei toimi. Eikä vaikka laittaisi Drawscreenin Cls:n tilalle, mutta jos laittaa Drawscreenin Cls:n alle toimii, tai jos kaksi Drawscreeniä laittaa peräkkäin.
EDIT5: Tässä teille mahtava funktio DrawScreen2() joka pelastaa maailmanne. lol xD
Code: Select all
Function DrawScreen2(c=1, p=0)
If c=1 Then Cls
DrawScreen c, p
EndFunction
[/edit]