Visual Basic

mitli wrote:

QSChkBx.Checked = True

Steve Pullan wrote:

I think this should read: QSChkBx.Value = vbChecked

Dim szBuf As System.Drawing.SizeF<br />
szBuf = g.MeasureString("Hello World", Me.DataGridTableStyle.DataGrid.Font)

Public Class DataGridColoredTextBoxColumn<br />
    Inherits DataGridTextBoxColumn<br />
<br />
    Public Sub New()<br />
    End Sub<br />
<br />
    Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds As Rectangle, ByVal source As CurrencyManager, ByVal rowNum As Integer, ByVal backBrush As Brush, ByVal foreBrush As Brush, ByVal alignToRight As Boolean)<br />
        Dim strText As String<br />
        Try<br />
            Dim o As Object<br />
            o = Me.GetColumnValueAtRow(source, rowNum)<br />
            If (Not (o) Is Nothing) Then<br />
                strText = CType(o, String)<br />
                If strText.IndexOf("MyText") >= 0 Then<br />
                    backBrush = New SolidBrush(Color.White)<br />
                    foreBrush = New SolidBrush(Color.RoyalBlue)<br />
                End If<br />
            End If<br />
        Catch ex As Exception<br />
           <br />
        Finally<br />
            ' call the base class gets called with the changed brushes <br />
            MyBase.Paint(g, bounds, source, rowNum, backBrush, foreBrush, alignToRight)<br />
        End Try<br />
    End Sub<br />
End Class

Friend WithEvents colCueDescription As CCP.DataGridColoredTextBoxColumn<br />
   Me.colCueDescription = New CCP.DataGridColoredTextBoxColumn()