Keskustelu: Ohjelmointikysymykset: QB: Tyhmä värikysymys (VB.NET)

Jess. Eli onko QBasicissa mahdollista tulostaa samalle riville eriväristä tekstiä? Tiedän että näyttäisi karsealta, mutta selvän esimerkin vuoksi esim. niin, että kaikki kirjaimet ovat eri väreillä?

Kiitti.

Jokainen ruudulla näkyvä merkki voi olla minkä värinen tahansa.

Tässä on esimerkki:

CLS
teksti$ = "OHJELMOINTIPUTKA"
FOR i% = 1 TO LEN(teksti$)
   COLOR i% MOD 5 + 10
   PRINT MID$(teksti$, i%, 1);
NEXT

Merkki ; PRINT-komennon lopussa tarkoittaa, että tekstin jälkeen ei tule rivinvaihtoa.

Kiitos paljon!

entä vb.net => RichtextBox

Qman: Jos saat VB6:n käyttöösi, näin:

Teksti = "Ohjelmointiputka"
For i = 1 To Len(Teksti)
  MunRichTextBox.Text = MunRichTextBox.Text & Mid(Teksti, i, 1)
  MunRichTextBox.SelStart = Len(MunRichTextBox.Text) - 1
  MunRichTextBox.SelLength = 1
  MunRichTextBox.SelColor = QBColor (i Mod 5 + 10)
  MunRichTextBox.SelStart = Len(MunRichTextBox.Text)
  MunRichTextBox.SelLength = 0
Next i

EDIT: ja eiköhän tuon voi portata myös VB.NETille

Eikös nämä kaksi ylempää viestiä poikenneet vähän aiheen ulkopuolelle? (niin tämäkin kyllä)

Kuinka niin, nehän käsittelivät sitä, miten saman voi hoitaa jollakin muulla lähes samanlaisella kielellä.