• Build a Custom NumericUpDown Cell and Column for the DataGridView Control
• Build a Custom RadioButton Cell and Column for the DataGridView Control

Dim DataGridListBox As New DotNetListBox

Grid1(y, x) = New SourceGrid3.Cells.Real.CellControl(DataGridListBox)

DataGridListBox = Nothing


Thanks

Regards
Matt

Hi Bruce,

It will not let me attach the whole code i will put it in two messages.

Imports

System

System.Data

System.Drawing

System.Collections

System.ComponentModel

System.Windows.Forms

DataGridCallPlanner.PulsePlanner.xListBox

PulsePlanner

Partial Public Class Form1

Inherits Form

Private components As System.ComponentModel.IContainer

Public NUMOFENGINEERS As Integer

Public NUMOFDAYS As Integer

Public dtEngineers As DataTable

Public StartDate As Date

Public EndDate As Date

' ("Provider=SQLNCLI.1;Data Source=XPSERVER\SQLEXPRESS;Persist Security Info=True;Password=198123;User ID=sa;Initial Catalog=PulsePlanner_SQL")

Public ConnectionString As String = ("Data Source=XPSERVER\SQLEXPRESS;Persist Security Info=True;Password=198123;User ID=sa;Initial Catalog=PulsePlanner_SQL")

Public con As SqlClient.SqlConnection

Public Sub New()

InitializeComponent()

AddHandler Me.Load, AddressOf Form1_Load

End Sub

Private headerComboBox As Dictionary(Of [String], ComboBox) = New Dictionary(Of String, ComboBox)()

Friend WithEvents DataGridView1 As System.Windows.Forms.DataGridView

Private Sub InitializeComponent()

Me.DataGridView1 = New System.Windows.Forms.DataGridView

CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()

Me.SuspendLayout()

'

'DataGridView1

'

Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize

Me.DataGridView1.Location = New System.Drawing.Point(12, 31)

Me.DataGridView1.Name = "DataGridView1"

Me.DataGridView1.Size = New System.Drawing.Size(718, 298)

Me.DataGridView1.TabIndex = 0

'

'Form1

'

Me.ClientSize = New System.Drawing.Size(885, 362)

Me.Controls.Add(Me.DataGridView1)

Me.Name = "Form1"

CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()

Me.ResumeLayout(False)

End Sub

'start of my code - here goes

Private dt As New DataTable()

Private dtJobs As New DataTable

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing

Me.DataGridView1.ColumnHeadersHeight = 25

'Me.DataGridView1.ColumnHeadersHeight = Me.DataGridView1.ColumnHeadersHeight * 2

Me.DataGridView1.RowCount = 5

' Me.DataGridView1.ColumnCount = 5

Me.DataGridView1.Rows(0).Height = 100

'GetEngineerData()

For x As Integer = 1 To 10 ' NUMOFENGINEERS - 1

Dim col1 As New DataGridColumnListbox()

Me.DataGridView1.Columns.Add(col1)

Next

'For y As Integer = 1 To 3

' Dim row1 As New DataGridColumnListbox()

' Me.DataGridView1.Rows.Add(row1)

'Next

'Me.DataGridView1.Rows.Add(col1)

' AddHandler Me.Paint, AddressOf Form1_Paint

End Sub

Private Sub GetEngineerData()

Dim strSQL As String = ("SELECT * FROM tblEngineers") ' WHERE ""JOBDATE"" BETWEEN '" & FirstDate.ToString("MM/dd/yyyy") & "' AND '") + LastDate.ToString("MM/dd/yyyy") & "' ORDER BY ""JOBDATE"" ASC"

Dim ds As DataSet = ExecuteDataSet(ConnectionString, CommandType.Text, strSQL)

dtEngineers = ds.Tables(0)

NUMOFENGINEERS = (dtEngineers.Rows.Count.ToString())

End Sub

Private Sub UpdateAssignedCalls()

'Dim strSQLUpdate As String

'set xDropTarget Dim c As Control = New xListBox

'Dim ps As Point = Grid1.PointToClient(MousePosition)

'Dim SourceGridPos As SourceGrid3.Position = Grid1.PositionAtPoint(ps)

' xDropTarget = GetXlistbox(SourceGridPos.Row, SourceGridPos.Column)

Dim myConnection As SqlClient.SqlConnection

Dim myCommand As SqlClient.SqlCommand

Dim ra As Integer

New SqlClient.SqlConnection(ConnectionString)

'you need to provide password for sql server

New SqlClient.SqlCommand("Update tblAssignedJobs Set EngineerID='5' where Engineer='Matt'", myConnection)

ra = myCommand.ExecuteNonQuery()

"Records affected" & ra)

myConnection.Close()

End Sub

'Private Sub btnFillJobs_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFillJobs.Click

' GetJobData()

'End Sub

'SQL Dataset Reader

Public Function ExecuteDataSet(ByVal connectionString As String, ByVal commandType As CommandType, _

ByVal commandText As String) As DataSet

Dim adapter As New SqlClient.SqlDataAdapter(commandText, connectionString)

With adapter.SelectCommand

.CommandType = commandType

End With

Dim data As New DataSet

adapter.Fill(data)

Return data

End Function

End Class

Public Class TextBoxAndCheckBoxHeaderCell

Inherits DataGridViewColumnHeaderCell

Private Enum SortType

ASC

DesC

None

End Enum

Public uc As New UserControl1

Private sType As SortType

Protected Overloads Overrides Sub OnClick(ByVal e As DataGridViewCellEventArgs)

MyBase.OnClick(e)

If sType = SortType.None Then

ElseIf sType = SortType.ASC Then

Else

End If

End Sub

Public Sub New()

AddHandler uc.MouseClick, AddressOf uc_MouseClick

AddHandler uc.MouseClick, AddressOf uc_ListboxMouseClick

sType = SortType.None

End Sub

Private Sub uc_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)

Me.OnClick(New DataGridViewCellEventArgs(Me.ColumnIndex, Me.RowIndex))

MsgBox(

"Clicked " & Me.ColumnIndex & " " & Me.RowIndex)

End Sub

Private Sub uc_ListboxMouseClick(ByVal sender As Object, ByVal e As MouseEventArgs)

Me.OnClick(New DataGridViewCellEventArgs(Me.ColumnIndex, Me.RowIndex))

MsgBox(

"Clicked Istbox " & Me.ColumnIndex & " " & Me.RowIndex)

End Sub

Protected Overloads Overrides Sub Paint(ByVal graphics As Graphics, ByVal clipBounds As Rectangle, _

ByVal cellBounds As Rectangle, ByVal rowIndex As Integer, ByVal dataGridViewElementState As _

DataGridViewElementStates,

ByVal value As Object, ByVal formattedValue As Object, ByVal errorText As String, _

ByVal cellStyle As DataGridViewCellStyle, ByVal advancedBorderStyle As DataGridViewAdvancedBorderStyle, _

ByVal paintParts As DataGridViewPaintParts)

'MsgBox("RUN")

MyBase.Paint(graphics, clipBounds, cellBounds, rowIndex, dataGridViewElementState, value, _

formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts)

Me.uc.Location = New Point(cellBounds.Left, cellBounds.Top + 25)

Me.uc.Height = (cellBounds.Height + 50)

Me.uc.Width = cellBounds.Width - 2

End Sub

End Class

Public Class DataGridColumnListbox

Inherits DataGridViewTextBoxColumn

'Inherits DataGridViewTextBoxCell

Private headerCell1 As New TextBoxAndCheckBoxHeaderCell()

Public Sub New()

Me.CellTemplate = New DataGridViewTextBoxCell()

Me.HeaderCell = headerCell1

End Sub

'when the column is just attached to the DataGridView, we add the controls to the dataGridView.

Protected Overloads Overrides Sub OnDataGridViewChanged()

If Me.DataGridView IsNot Nothing Then

Me.DataGridView.Controls.Add(headerCell1.uc)

End If

End Sub

Public ReadOnly Property HeaderCellEx() As TextBoxAndCheckBoxHeaderCell

Get

Return Me.HeaderCell

End Get

End Property

End Class

End

Namespace

I have removed my custom usercontrol and just put a startand usercontrol with a listbox.

Yes, this is what i'm trying to do.

Thanks

• Build a Custom NumericUpDown Cell and Column for the DataGridView Control
• Build a Custom RadioButton Cell and Column for the DataGridView Control

Private Sub dgv_Scroll(ByVal sender As Object, ByVal e As ScrollEventArgs)'up & down
For i As Integer = 0 To Me.dgv.RowCount - 1
If i >= Me.dgv.FirstDisplayedScrollingRowIndex AndAlso i < Me.dgv.DisplayedRowCount(True) Then
TryCast(Me.dgv.Rows(i).Cells(0), DataGridViewListBoxCell).EditingControl.Visible = True
Else
TryCast(Me.dgv.Rows(i).Cells(0), DataGridViewListBoxCell).EditingControl.Visible = False
End If
Next
End Sub

Thanks in advance.
Matt

Hi,

I believe this is a similar problem. I am trying to do a super simple DataGridViewRichTextCell. The cellwill not have editing or resizing. However, this will have the ability to cut/copy and click a link (e.g. the basic functions of a RichTextBox). If I create the very simple class below, it works 95% of the way, HOWEVER, after there are a few rows in the table, the paint method keeps getting called. Even after the form has rendered, the paint method is continuously called creating a strange flickering and VERY slow performance. From trial and error, I know that adding the RichTextBox to the DataGridView.Controls is related to the problem.

Do you have any ideas?

Thanks!

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Drawing;
namespace SecureNote.Display
{
class MinimalRichTextBoxCell : DataGridViewCell
{
private RichTextBox _richTextBox = null;
protected override System.Drawing.Rectangle GetContentBounds(System.Drawing.Graphics graphics, DataGridViewCellStyle cellStyle, int rowIndex)
{
//DataGridViewAdvancedBorderStyle style;
//DataGridViewElementStates states;
//Rectangle rectangle;
if (cellStyle == null)
{
throw new ArgumentNullException("cellStyle");
}
if (((base.DataGridView == null) || (rowIndex < 0)) || (base.OwningColumn == null))
{
return Rectangle.Empty;
}
// object obj2 = this.GetValue(rowIndex);
// object formattedValue = this.GetFormattedValue(obj2, rowIndex, ref cellStyle, null, null, DataGridViewDataErrorContexts.Formatting);
return this.DataGridView.GetCellDisplayRectangle(this.ColumnIndex, this.RowIndex, true);
 
// return base.GetContentBounds(graphics, cellStyle, rowIndex);
}
 
protected override void Paint(Graphics graphics, Rectangle clipBounds, Rectangle cellBounds, int rowIndex, DataGridViewElementStates cellState, object value, object formattedValue, string errorText, DataGridViewCellStyle cellStyle, DataGridViewAdvancedBorderStyle advancedBorderStyle, DataGridViewPaintParts paintParts)
{
base.Paint(graphics, clipBounds, cellBounds, rowIndex, cellState, value, formattedValue, errorText, cellStyle, advancedBorderStyle, paintParts);
if (_richTextBox == null || _richTextBox.IsDisposed)
_richTextBox = new RichTextBox();
_richTextBox.Rtf = (string)value;
this.PaintBorder(graphics, clipBounds, cellBounds, cellStyle, advancedBorderStyle);
Rectangle internalCellsBounds = cellBounds;
_richTextBox.BackColor = this.Style.BackColor;
_richTextBox.ForeColor = this.Style.ForeColor;
_richTextBox.Location = new Point(cellBounds.Left, cellBounds.Top);
_richTextBox.Size = new Size(cellBounds.Width, cellBounds.Height);
_richTextBox.Refresh();
this.DataGridView.Controls.Add(_richTextBox);
}
}
}