August 29, 2008 02:58pm pdt

1. TheLearn... 33,850
2. jpaulino 32,520
3. Idle_Mind 24,350
4. jaime_oliv... 20,035
5. Pacman 18,000
6. webtubbs 11,500
7. Sancler 9,950
8. emoreau 7,750
9. graye 7,600
10. Fernando... 6,715
11. VBRocks 5,980
12. nsanga 5,200
12. anarki_ji... 5,200
14. BillyDvD 5,100
15. ororiole 4,800
16. Priest04 4,750
17. AUmidh 4,600
17. ZachSmith 4,600
19. Dhaest 4,500
20. JimBrandley 4,000
20. p_davis 4,000
20. cavehop 4,000
20. zveljkovic 4,000
20. jandromeda 4,000
25. rachitkohli 3,950

1. Idle_Mind 61,450
2. TheLearn... 55,335
3. jpaulino 34,620
4. Sancler 22,950
5. jaime_oliv... 22,035
6. webtubbs 19,000
7. emoreau 18,250
8. Pacman 18,000
9. Fernando... 15,215
10. JimBrandley 11,480
11. VBRocks 9,980
12. Babycorn... 8,600
13. Priest04 8,350
14. graye 8,000
15. anarki_ji... 7,452
16. cheddar73 7,125
17. gauthampj 6,998
18. jake072 6,000
18. p_davis 6,000
20. nsanga 5,200
21. BillyDvD 5,100
22. AlexCode 5,024
23. surajguptha 5,000
24. carl_tawn 4,900
25. Dhaest 4,800
25. ororiole 4,800

07.17.2008 at 11:40AM PDT, ID: 23574417

	[x] Attachment Details

Multiline Textbox with colored lines per group (criteria for grouping is the data itself...)

Asked by hbash in Windows Forms for .Net, Microsoft Visual Basic.Net

Thanks to one of the experts here, I was able to build an extension to the textbox that allows me to color the rows of a multicolor textbox.

Now the problem is that if I scroll the textbox vertically, the grouping of colored row "sets" shifts since the code uses the row position of the visible rows in the textbox.

I think what I need is to know at any point in time which rows within a set of rows is visible and to color them according to where they are in the entire textbox's rows (using the line data for criteria).

If anyone can tell me how to determine the first and last visible row in the textbox, I think I will be able to put this problem to rest.

I am including my textbox class for review. There are two routines of particular interest here. The original drawRect (drawRectOld) and the new drawRect that uses some row criteria to decide when to switch colors.

Thanks,
Howard
Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:

           
           
             Public Class ColorfulTextbox
    Inherits TextBox
 
    Private Const WM_PAINT As Integer = &HF
    Private Const WM_VSCROLL As Integer = &H115
 
    Protected Overrides Sub OnTextChanged(ByVal e As System.EventArgs)
 
        MyBase.OnTextChanged(e)
        Me.Invalidate()
 
    End Sub
 
    Protected Overrides Sub WndProc(ByRef wndmsg As System.Windows.Forms.Message)
 
        MyBase.WndProc(wndmsg)
 
        Select Case wndmsg.Msg
            Case WM_PAINT
                drawRect()
 
            Case WM_VSCROLL
                Me.Invalidate()
 
        End Select
 
    End Sub
 
    Sub drawRect()
        Dim nRowHeight As Integer = 16
        Dim rectF As System.Drawing.RectangleF
        Dim nRows As Long = Me.Height / nRowHeight + 1
        Dim nlp As Long
 
        Dim clr As Color
        clr = Color.Bisque
        clr = Color.FromArgb(clr.A / 2, clr.R, clr.G, clr.B)
 
        Dim clearIt As Color = Color.White
        clearIt = Color.FromArgb(clearIt.A / 2, clearIt.R, clearIt.G, clearIt.B)
        Dim ClearBrush As New SolidBrush(clearIt)
 
        Dim brush As New SolidBrush(clr)
 
        Dim g As Graphics = Me.CreateGraphics()
        Dim arLines As String() = Me.Text.Split(vbCrLf)
 
        If UBound(arLines) = 0 Then Exit Sub
 
        Dim bColoringGroup As Boolean = True
        Dim bGroupChange As Boolean = False
 
        rectF = New System.Drawing.RectangleF(0, 0, Me.Width, nRowHeight)
        g.FillRectangle(brush, rectF)
 
        For nlp = 1 To nRows - 1
 
            If arLines(nlp - 1).Split(" ")(0).Trim = arLines(nlp).Split(" ")(0).Trim Then
                bGroupChange = False
            Else
                bGroupChange = True
                bColoringGroup = Not bColoringGroup
            End If
 
            If bColoringGroup Then
                rectF = New System.Drawing.RectangleF(0, nlp * nRowHeight, Me.Width, nRowHeight)
                g.FillRectangle(brush, rectF)
            Else
                rectF = New System.Drawing.RectangleF(0, nlp * nRowHeight, Me.Width, nRowHeight)
                g.FillRectangle(ClearBrush, rectF)
            End If
 
        Next
 
        g.Dispose()
        brush.Dispose()
 
    End Sub
 
    Sub drawRectOld()
        Dim nRowHeight As Integer = 16
        Dim rectF As System.Drawing.RectangleF
        Dim nRows As Long = Me.Height / nRowHeight + 1
        Dim nlp As Long
        Dim clr As Color
        clr = Color.Bisque
 
        clr = Color.FromArgb(clr.A / 2, clr.R, clr.G, clr.B)
 
        Dim brush As New SolidBrush(clr)
 
        Dim g As Graphics = Me.CreateGraphics()
 
        For nlp = 0 To nRows - 1 Step 2
            rectF = New System.Drawing.RectangleF(0, nlp * nRowHeight, Me.Width, nRowHeight)
            g.FillRectangle(brush, rectF)
        Next
 
        g.Dispose()
        brush.Dispose()
 
    End Sub
 
End Class

           
         

Related Solutions: VB.NET Multirow Textbox with multiple row colors

Keywords: Multiline Textbox with colored lines per …

	Title
1	tabbing mulitline textbox and scrolling
2	Textbox maxlength
3	find a particular string in multiline text box
4	multiline textbox
5	multiline textbox
6	Problem displaying xml in textbox

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_Related_20080208

Multiline Textbox with colored lines per group (criteria for grouping is the data itself...)

Asked by hbash in Windows Forms for .Net, Microsoft Visual Basic.Net

About this solution