vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Problem mit Scource Code 
Autor: WebMassa
Datum: 16.10.05 18:30
Hi,

ich hab in meinem aktuellen Programm folgenden Sourcecode drin stehen: 
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
Dieser Code stellt nach Eingabe in eine Textbox einen Text farbig da.
Beispiel:
Eingabe = ^1Test
Ergebnis = Test

Wie aus dem Code ersichtlich ist, werden nur Zahlen hinter dem "^" angegeben.
Ich möchte den Code jetzt so weit erweitern das er auch Buchstaben unterstützt.

Hat jemand eine Idee was ich verändern muss damit es klapt?

THX&CU
Weby

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

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Problem mit Scource Code771WebMassa16.10.05 18:30
Re: Problem mit Scource Code533HarryC16.10.05 20:08
Re: Problem mit Scource Code533WebMassa17.10.05 10:36
Re: Problem mit Scource Code416HarryC17.10.05 10:52
Re: Problem mit Scource Code446WebMassa17.10.05 20:14
Re: Problem mit Scource Code366WebMassa29.10.05 00:21
Re: Problem mit Scource Code368HarryC29.10.05 01:06
Re: Problem mit Scource Code390WebMassa29.10.05 01:34
Re: Problem mit Scource Code491WebMassa30.10.05 23:31
Re: Problem mit Scource Code361OldMan02.11.05 14:18
Re: Problem mit Scource Code384OldMan02.11.05 14:30
Re: Problem mit Scource Code352WebMassa03.11.05 09:45
Re: Problem mit Scource Code360OldMan03.11.05 10:11
Re: Problem mit Scource Code353HarryC03.11.05 10:32
Re: Problem mit Scource Code368OldMan03.11.05 11:03
Re: Problem mit Scource Code416WebMassa04.11.05 21:31
Re: Problem mit Scource Code356WebMassa07.11.05 13:02
Re: Problem mit Scource Code360HarryC07.11.05 18:58
Re: Problem mit Scource Code366OldMan07.11.05 23:17
Re: Problem mit Scource Code330WebMassa08.11.05 11:20
Re: Problem mit Scource Code349WebMassa08.11.05 16:39

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel