Option Explicit
 
Private Sub Form_Load()
'Aller Anfang ist schwer^^
End Sub
 
Private Sub cmdConvert_Click()
 
    Dim x As Integer
    txtColored.Text = ""
 
    For x = 1 To Len(txtCode.Text)
        If Mid(txtCode.Text, x, 1) = "^" Then
 
            If Mid(txtCode.Text, x + 1, 1) = 0 Then
 
                txtColored.SelColor = vbBlack
            ElseIf Mid(txtCode.Text, x + 1, 1) = 1 Then
 
                txtColored.SelColor = vbRed
            ElseIf Mid(txtCode.Text, x + 1, 1) = 2 Then
 
                txtColored.SelColor = vbYellow
            ElseIf Mid(txtCode.Text, x + 1, 1) = 3 Then
 
                txtColored.SelColor = vbGreen
            ElseIf Mid(txtCode.Text, x + 1, 1) = 4 Then
 
                txtColored.SelColor = vbBlue
            ElseIf Mid(txtCode.Text, x + 1, 1) = 5 Then
 
                txtColored.SelColor = &HFFFF00
            ElseIf Mid(txtCode.Text, x + 1, 1) = 6 Then
 
                txtColored.SelColor = &HFF00FF
            ElseIf Mid(txtCode.Text, x + 1, 1) = 7 Then
 
                txtColored.SelColor = &HFFFFFF
            ElseIf Mid(txtCode.Text, x + 1, 1) = 8 Then
 
                txtColored.SelColor = &H80FF&
            ElseIf Mid(txtCode.Text, x + 1, 1) = 9 Then
 
                txtColored.SelColor = &H808080
            End If
            x = x + 1
        Else
            txtColored.SelText = Mid(txtCode.Text, x, 1)
        End If
    Next x
End Sub
 
Private Sub cmd0_Click()
'Farbe Schwarz gedrückt
txtCode.Text = "^0"
' Cursor am Ende des Textes positionieren
txtCode.SelStart = Len(txtCode.Text)
txtCode.SelLength = 0
txtCode.SelText = vbCrLf
End Sub

Call my via Skype -> weby_de
Das Wolfenstein ET Mapper Forum ist ON!
visit us @ http://et-mapper.de