Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: Ερώτηση πάνω σε RitchTextBox [VB.NET 2010]

AlKiS — Fri, 27 Jan 2012 20:43:20 GMT

Ναι, δούλεψε ^^

Σε ευχαριστώ πολύ φίλε μου :)

Απ: Ερώτηση πάνω σε RitchTextBox [VB.NET 2010]

nikos123 — Mon, 23 Jan 2012 18:57:02 GMT

H Find μπορεί να κληθεί ορίζοντας της (στο start) από ποιο χαρακτήρα και μετά να ψάξει.

public int Find(string str, int start, RichTextBoxFinds options);

                RichTextBox rtb = new RichTextBox();
                int selStart = 0;
                while((selStart = rtb.Find("Singnificant", selStart, RichTextBoxFinds.None)) > -1)
                {
                    rtb.SelectionStart = selStart;

                    .......

                    selStart++;
                }

Κάθε φορά ψάχνει από μια θέση μεγαλύτερη από αυτήν που βρήκε τη λέξη.

Είναι σε C# αλλά πιστεύω δε θα έχει πολύ διαφορά σε VB.NET.

Ερώτηση πάνω σε RitchTextBox [VB.NET 2010]

AlKiS — Sun, 22 Jan 2012 16:58:01 GMT

Καλησπέρα,

Έχω λοιπών ένα RitchTextBox, και θέλω να χρωματίσω πάνω του τη λέξη "Insignificant" (όταν υπάρχει) με κόκκινο χρώμα,

ενώ τη λέξη "Significant" θέλω να την υπογραμμίζω.

έγραψα λοιπών τον παρακάτω κώδικα:

    Private Sub rtbIntermediate_TextChanged(sender As System.Object, e As System.EventArgs) Handles rtbIntermediate.TextChanged
        Dim SelStart As Integer = -1

        If rtbIntermediate.Text <> "" Then
            mniExportIntermediate.Enabled = True

            SelStart = rtbIntermediate.Find(txtLanguage.Lines(87))
            If SelStart <> -1 Then
                rtbIntermediate.SelectionStart = SelStart
                rtbIntermediate.SelectionFont = New Font(rtbIntermediate.Font, FontStyle.Underline)
            End If

            SelStart = rtbIntermediate.Find(txtLanguage.Lines(88))
            If SelStart <> -1 Then
                rtbIntermediate.SelectionStart = SelStart
                rtbIntermediate.SelectionColor = Color.Red
            End If

        Else
            mniExportIntermediate.Enabled = False
        End If
    End Sub

Και πράγματι μου ζωγραφίζει τις λέξεις (όταν υπάρχουν), αλλά ΜΟΝΟ την πρώτη φορά που εμφανίζονται!

Η λέξεις αυτές υπάρχουν 4 φορές μέσα στο κείμενο - δλδ ή θα είναι 4 "Significαnt" ή 4 "Insignificant" ή οποιοσδήποτε συνδυασμός τους... πως μπορώ να τα χρωματίζω όλα??