December 3, 2008 11:04am pst

1. TheLearn... 366,074
2. jaime_oliv... 278,032
3. jpaulino 257,396
4. Idle_Mind 229,856
5. Dhaest 219,462
6. emoreau 182,441
7. Fernando... 160,205
8. graye 152,982
9. angelIII 132,665
10. webtubbs 115,033
11. PaulHews 100,392
12. VBRocks 99,530
13. Sancler 95,919
14. ZachSmith 94,965
15. ragi0017 91,667
16. jcoehoorn 82,320
17. philipjonat... 78,411
18. naspinski 73,338
19. ororiole 69,521
20. EricTViking 66,739
21. GreenGho... 64,597
22. prairiedog 63,725
23. BondinASP 63,211
24. TechTiger... 63,125
25. vb_jonas 61,575

1. TheLearn... 2,030,212
2. iboutchkine 807,868
3. Idle_Mind 705,267
4. emoreau 561,528
5. mmarinov 556,677
6. gregoryyo... 503,766
7. naveenko... 451,699
8. jaime_oliv... 436,792
9. graye 394,301
10. Dhaest 373,967
11. Fernando... 368,770
12. testn 352,601
13. jpaulino 347,798
14. RobertRFr... 333,569
15. YZlat 332,657
16. surajguptha 324,880
17. AlexFM 304,664
18. Arthur_... 289,124
19. angelIII 263,908
20. Mikal613 248,858
21. VBRocks 222,970
22. _TAD_ 221,029
23. roverm 217,141
24. samtran0... 216,895
25. Sancler 210,276

07.17.2008 at 11:40AM PDT, ID: 23574417

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.4

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

Asked by hbash in .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 .NET, Microsoft Visual Basic.Net

About this solution