så vidt jeg ved kan man ikke bruge en textbox til det... men du kan bruge en richtextbox eller en picturebox.
for rich : Sub Command1_Click() RichTextBox1.Text = \"\" For x = 0 to 15 RichTextBox1.SelColor = &H80FF80 RichTextBox1.SelText = \"Color\" & x & vbcrlf Next x End Sub
picture box:
Picture1.Cls For x = 0 To 15 Picture1.ForeColor = &H8000000F Picture1.Print \"Color\" & x Next x
jelzin > dit eksempel med rtf boxen virker, men jeg kan ikke få det med picture til at gøre ngoet - har prøvet at slå autoredraw til, men den forbliver tom - er der nogle andre ting man skal tage hensyn til?
Private Sub Command1_Click() Picture1.ForeColor = &HFF0000 Picture1.Print \"Color\" Picture1.ForeColor = &HFF& Picture1.Print \"Color\" End Sub
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.