This sample introduces how to add a DataGridColumnStyle that contains combobox to a DataGrid on your .Net form. It is not just a dropdown combobox, which appears when a datagrid cell becomes the current cell. This .Net DataGrid DataGridColumnStyle combobox control has the following attractive features:

This combobox DataGridColumnStyle automatically fills the text at the cursor with the value of its dropdown values list. As characters are typed, the component finds the closest matching item from the list and automatically fills in the remaining characters. Appended characters are highlighted so that they are replaced by any further typing. For this auto-filling feature you can setup the character case sensibility.

This DataGridColumnStyle gives you ability to instantly update dropdown values with a really simple and friendly user interface. When you click the additional dropdown button of the combo a dictionary of its list values will be displayed below the combo. You can update values, and insert and delete rows in the dictionary grid.

The control gives an ability to get a nesting combo box that filters values from a related child table. In a dictionary grid, you can view and edit related data in a child table. In your database a Master table has a one-to-many relationship with a Child table; so for each row of the Master table in Dictionary grid, you or your customer can view and edit the related rows of the Child table in a dictionary grid.

You can turn off all or some of these features and use the combobox DataGridColumnStyle just as an easy dropdown DataGrid combobox.

You can set its DataSource, DisplayMember, and ValueMember to bind the combobox to a foreign table.

' Set datagrid column styles
With TableStyle.GridColumnStyles
' Set datagrid ColumnStyle for Car field
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperties.Item("Car")))
With .Item(0)
.MappingName = "Car"
.HeaderText = "Car Name"
.Width = 130
.NullText = String.Empty
.ReadOnly = True
End With

' Set datagrid ComboBox ColumnStyle for PubID field
.Add(New DataGridComboBoxColumn(ds.Tables.Item("Companies"), 1, 0))
' Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
' Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
With .Item(1)
.MappingName = "PubID"
.HeaderText = "Company ID"
.Width = 200
.NullText = String.Empty
End With

' Set datagrid combobox ColumnStyle for State field
.Add(New DataGridComboBoxColumn(ds.Tables.Item("States"), 0, 0, , , False))
' Datagrid ComboBox DisplayMember field has order number 0. Name of this column is "State"
' Datagrid ComboBox ValueMember field has order number 0. It is the same column like for DisplayMember
With .Item(2)
.MappingName = "State"
.HeaderText = "State"
.Width = 45
.NullText = String.Empty
End With

' Set datagrid XP Style Button ColumnStyle for City field
.Add(New DataGridXPButtonColumn())
' Also you may set datagrid Button ColumnStyle for City
' field without XP Button Style as the following:
' .Add(New DataGridButtonColumn())
With .Item(3)
.MappingName = "City"
.HeaderText = "City"
.Width = 60
.NullText = String.Empty
End With

' Set datagrid Memo ColumnStyle for Comments field
.Add(New DataGridMemoColumn("Car description"))
With .Item(4)
.MappingName = "Comments"
.HeaderText = "Comments"
.Width = 60
.NullText = String.Empty
End With
End With

// Set column styles
// Set datagrid ColumnStyle for Car field
DataGridTextBoxColumn colCar = new DataGridTextBoxColumn();
colCar.MappingName = "Car";
colCar.HeaderText = "Car Name";
colCar.Width = 130;
colCar.NullText = String.Empty;
colCar.ReadOnly = true;
TblStyle.GridColumnStyles.Add(colCar);

// Set datagrid ComboBox ColumnStyle for PubID field
DataTable tblCompanies = ds.Tables["Companies"];
TblStyle.GridColumnStyles.Add(new DataGridComboBoxColumn(ref tblCompanies, 1, 0, true, false, true));
// Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
// Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
TblStyle.GridColumnStyles[1].MappingName = "PubID";
TblStyle.GridColumnStyles[1].HeaderText = "Company ID";
TblStyle.GridColumnStyles[1].Width = 200;
TblStyle.GridColumnStyles[1].NullText = String.Empty;

// Set datagrid combobox ColumnStyle for State field
DataTable tblStates = ds.Tables["States"];
TblStyle.GridColumnStyles.Add(new DataGridComboBoxColumn(ref tblStates, 0, 0, true, false, false));
// Datagrid ComboBox DisplayMember field has order number 0. Name of this column is "State"
// Datagrid ComboBox ValueMember field has order number 0. It is the same column like for DisplayMember
TblStyle.GridColumnStyles[2].MappingName = "State";
TblStyle.GridColumnStyles[2].HeaderText = "State";
TblStyle.GridColumnStyles[2].Width = 45;
TblStyle.GridColumnStyles[2].NullText = String.Empty;

// Set datagrid XP Style Button ColumnStyle for City field
TblStyle.GridColumnStyles.Add(new DataGridXPButtonColumn());
// Also you may set datagrid Button ColumnStyle for City
// field without XP Button Style as the following:
// .Add(New DataGridButtonColumn())
TblStyle.GridColumnStyles[3].MappingName = "City";
TblStyle.GridColumnStyles[3].HeaderText = "City";
TblStyle.GridColumnStyles[3].Width = 60;
TblStyle.GridColumnStyles[3].NullText = String.Empty;

// Set datagrid Memo ColumnStyle for Comments field
TblStyle.GridColumnStyles.Add(new DataGridMemoColumn("Car description"));
TblStyle.GridColumnStyles[4].MappingName = "Comments";
TblStyle.GridColumnStyles[4].HeaderText = "Comments";
TblStyle.GridColumnStyles[4].Width = 60;

How to search a list box by typing text into a combobox control? This example shows how to implement an auto-fill combo box. You often faced it on some sophisticated web pages. As characters are typed, the program finds the closest matching item from the combobox list and automatically fills in the remaining characters. A similar approach using event "Change" can be used to work with a text box and list box control.

VB .NET

VB6

Public Class Form1
Inherits System.Windows.Forms.Form

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

' Retrieve all the Company Names in the table
Dim AppPath As String = Mid(Application.ExecutablePath, 1, Len(Application.ExecutablePath) - 14)
Dim strConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source = " + AppPath + "Samples.mdb"
Dim dbConn As System.Data.OleDb.OleDbConnection = _
New System.Data.OleDb.OleDbConnection(strConn)

dbConn.Open()
Dim DSet As New DataSet, SQLStr As String
Dim cmd As System.Data.OleDb.OleDbCommand
Dim dbAdaptr As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter

Dim tRow As DataRow, tTbl As DataTable
With dbAdaptr
.TableMappings.Add("Table", "Companies")
SQLStr = "Select [Company Name] from Companies"
cmd = New System.Data.OleDb.OleDbCommand(SQLStr, dbConn)
cmd.CommandType = CommandType.Text
.SelectCommand = cmd
.Fill(DSet)
.Dispose()
End With

DSet.AcceptChanges()
tTbl = DSet.Tables.Item(0)
DSet.Dispose()
dbConn.Close()

' fill out array by Company Names for cboRightCombo combobox
cboRightCombo.Text = ""
cboRightCombo.Items.Clear()
cboRightCombo.BeginUpdate()

' Load the Company Names into the ComboBox Control
For Each tRow In tTbl.Rows
cboRightCombo.Items.Add(tRow("Company Name").ToString)
Next
cboRightCombo.EndUpdate()
End Sub

' Close application
Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles cmdClose.Click
Me.Close()
End Sub

' Use event "Change" for alphabetical search an appropriate
' value in combo box list and put it into combobox Text.
Private Sub cboRightCombo_TextChanged(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles cboRightCombo.TextChanged
Dim boxIndex As Integer, lExst As Boolean
Dim box As ComboBox = sender
Dim txt As String = box.Text
Dim posCursor As Integer = box.SelectionStart
' If Cursor does not stay on the beginning of text box.
If posCursor <> 0 Then
lExst = False
' Go in cycle through the combo box list to
' find the appropriate entry in the list
For boxIndex = 0 To box.Items.Count - 1
If UCase(Mid(box.Items(boxIndex), 1, posCursor)) = UCase(Mid(txt, 1, posCursor)) Then
box.Text = box.Items(boxIndex)
box.SelectionStart = posCursor
lExst = True
Exit For
End If
Next
' We didn't find appropriate entry and return previous value to text box
If Not lExst Then
box.Text = Mid(txt, 1, posCursor - 1) + Mid(txt, posCursor + 1)
box.SelectionStart = posCursor - 1
End If
End If
End Sub

End Class

How to remove the duplicates in a string array? Here is an example of deleting double elements in an array. This example removes all the duplicate elements from the array InitialArray and create from it the new FinalArray.

Private i As Integer, InitialArray(6), FinalArray() As String

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
InitialArray(0) = "Acura"
InitialArray(1) = "BMW"
InitialArray(2) = "Acura"
InitialArray(3) = "Honda"
InitialArray(4) = "Toyota"
InitialArray(5) = "Acura"
InitialArray(6) = "BMW"

Label1.Text = ""
For i = 0 To UBound(InitialArray)
Label1.Text = Label1.Text + Trim(CStr(i)) + " = " + InitialArray(i) + vbLf
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FinalArray = DeleteDoubleElement(InitialArray)
Label2.Text = ""
For i = 0 To UBound(FinalArray)
Label2.Text = Label2.Text + Trim(CStr(i)) + " = " + FinalArray(i) + vbLf
Next
End Sub

' This function removes duplicate elements from a ReceivedArray().
' The function does not actually remove the elements. The resulting array
' will have a less than or equal number of elements than the original array.
' The final ReturnedArray() will be returned.
Private Function DeleteDoubleElement(ByRef ReceivedArray()) As String()
Dim ReturnedArray() As String
Dim col As New Scripting.Dictionary
For i = 0 To ReceivedArray.Length - 1
If Not col.Exists(CStr(ReceivedArray(i))) Then col.Add(CStr(ReceivedArray(i)), 1)
Next

ReDim ReturnedArray(col.Count - 1)
For i = 0 To col.Count - 1
ReturnedArray(i) = col.Keys(i)
Next

col = Nothing
Return ReturnedArray
End Function

If you have a project, which has a lot of Option Buttons groups on Visual Basic Forms you know how OptionButton control works. RadioGroup ActiveX control is a useful VB component to replace VB OptionButton control. There is a sample below, which demonstrates how to use this new ActiveX control.

Download this sample

' set up two string variables to hold the captions
Dim strCar, strTransmission As String

' bind the caption with the two string variables.
Private Sub ShowChoice()
lblDisplay.Caption = "You selected a" + strCar + " with " + strTransmission + " Transmission"
End Sub

' unload the form
Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub Form_Load()
' call a Click event in the default options
' to update the label caption
RadioGroupCars_Click
RadioGroupTransmission_Click
End Sub

' assign a value to the first string variable
Private Sub RadioGroupCars_Click()
strCar = ""
Select Case RadioGroupCars.Value
Case 1
strCar = "n Acura"
Case 2
strCar = " Honda"
Case 3
strCar = " BMW"
Case 4
strCar = " Toyota"
End Select

' call the subroutine to display choice
ShowChoice
End Sub

' assign a value to the second string variable
Private Sub RadioGroupTransmission_Click()
If RadioGroupTransmission.Value = 1 Then
strTransmission = "Stick Shift"
ElseIf RadioGroupTransmission.Value = 2 Then
strTransmission = "Automatic"
End If

' call the subroutine to display choice
ShowChoice
End Sub

How to remove element from Collection if you know its Name and don't know its index? Use the Remove method of Collection, which will take the Collection Item by the index parameter and permanently remove it from your collection. In this example we first add some Items to the colVariables Collection. We then walk through this collection to locate the Item with Name "BMW". Once we do locate it we use the Remove method to delete it from the collection and exit the For.Next.

Dim colVariables As Collection
Dim SoughtItem As String
Dim Index As Integer

Set colVariables = New Collection

colVariables.Add "Acura", "1"
colVariables.Add "BMW", "2"
colVariables.Add "Honda", "3"

SoughtItem = "BMW"
Index = 1
For Each Item In colVariables
If Item = SoughtItem Then
colVariables.Remove Index
Exit For
End If
Index = Index + 1
Next

Set colVariables = Nothing

How to create alphabetical search in a list box by typing text into a textbox control? Above we did it for Combobox control. In this example we will try another way to do that for a textbox. This is possible to do by using the SendMessage API function.

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd _
As Long, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
Const VB_SEARCHSTR = &H18F

Private Sub Form_Load()
' Load some alphabetically ordered info into the List Box Control
With lstBox
.Clear
.AddItem "abaca"
.AddItem "abbot"
.AddItem "abdicate"
.AddItem "aberrance"
.AddItem "aboriginal"
.AddItem "accede"
.AddItem "acephalous"
.AddItem "ache"
.AddItem "actinium"
.AddItem "addendum"
.AddItem "adjourn"
.AddItem "affability"
.AddItem "agelong"
End With
End Sub

' Event "Change" is used for alphabetical search an
' appropriate value in list box and put it into Text box.
Private Sub txtBox_Change ()
Dim prvsTxt As String
Dim txt As String, posCursor As Integer
posCursor = txtBox.SelStart

' If Cursor does not stay on the beginning of text box.
If posCursor <> 0 Then
' keep previous value of the text box
prvsTxt = Trim(txtBox.Text)
' keep piece of text before cursor
txt = Left(prvsTxt, posCursor)
' Call API function to find the appropriate entry in the list box
lstBox.ListIndex = SendMessage (lstBox.hWnd, VB_SEARCHSTR, -1, ByVal txt)

' We have found appropriate value
If lstBox.ListIndex <> -1 Then
txtBox.Text = lstBox.Text
txtBox.SelStart = posCursor
' We didn't find appropriate entry and return previous value to text box
Else
txtBox.Text = Left(prvsTxt, posCursor - 1) + Mid(prvsTxt, posCursor + 1)
txtBox.SelStart = posCursor - 1
EndIf
EndIf
End Sub

' Close application
Private Sub
cmdCancel_Click()
Unload Me
End Sub

DataGridXPButtonColumn allows you to provide the datagrid interface your users are requesting, while supporting the utterly powerful Microsoft .NET DataGrid control. The DataGridXPButtonColumn makes the MS .NET DataGrid control one of the most powerful controls that you ever had used. A RustemSoft DataGridXPButtonColumn column in a .net DataGrid control gives you ability to define custom functionality for items in the grid beyond the edit, delete, select, and hyperlink features of other column types. For example, you can use a DataGridXPButtonColumn to create a "Link to a website" button.
The DataGridXPButtonColumn has a pushbutton-style only. The button captions can be a text read from a database.
When you define a button column, you specify a command associated with the button. When users click the button, the button's command is passed to a container where you can handle it with your custom code.

' Set datagrid column styles
With TableStyle.GridColumnStyles
' Set datagrid ColumnStyle for Car field
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperties.Item("Car")))
With .Item(0)
.MappingName = "Car"
.HeaderText = "Car Name"
.Width = 130
.NullText = String.Empty
.ReadOnly = True
End With

' Set datagrid ComboBox ColumnStyle for PubID field
.Add(New DataGridComboBoxColumn(ds.Tables.Item("Companies"), 1, 0))
' Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
' Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
With .Item(1)
.MappingName = "PubID"
.HeaderText = "Company ID"
.Width = 200
.NullText = String.Empty
End With

......................

' Set datagrid XP Style Button ColumnStyle for City field
.Add(New DataGridXPButtonColumn(SystemColors.ControlText, SystemColors.Control))
' Also you may set datagrid Button ColumnStyle for City
' field without XP Button Style as the following:
' .Add(New DataGridButtonColumn())
With .Item(3)
.MappingName = "City"
.HeaderText = "City"
.Width = 60
.NullText = String.Empty
End With

End With

......................

' DataGridXPButtonColumn Click event runs when the datagrid XPButtonColumn Style's
' Button control is clicked. The Sub receives three arguments:
' sender as DataGridXPButtonColumn, ColumnMappingName and ColumnValueAtRow of String type
Private Sub XPButtonColumn_Click(ByVal sender As DataGridXPButtonColumn, _
ByVal ColumnMappingName As String, _
ByVal ColumnValueAtRow As String) Handles XPButtonColumn.Click
If ColumnMappingName = "City" Then
Dim strValue As String
If IsDBNull(DataGrid1.Item(DataGrid1.CurrentRowIndex, 3)) Then
strValue = "Nothing :("
Else
strValue = ColumnValueAtRow + " city, " + DataGrid1.Item(DataGrid1.CurrentRowIndex, 2) + "!"
End If
MessageBox.Show("You have chosen " + strValue, "DataGrid Button is clicked!")
End If
End Sub

// Set column styles
// Set datagrid ColumnStyle for Car field
DataGridTextBoxColumn colCar = new DataGridTextBoxColumn();
colCar.MappingName = "Car";
colCar.HeaderText = "Car Name";
colCar.Width = 130;
colCar.NullText = String.Empty;
colCar.ReadOnly = true;
TblStyle.GridColumnStyles.Add(colCar);

// Set datagrid ComboBox ColumnStyle for PubID field
DataTable tblCompanies = ds.Tables["Companies"];
TblStyle.GridColumnStyles.Add(new DataGridComboBoxColumn(ref tblCompanies, 1, 0, true, false, true));
// Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
// Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
TblStyle.GridColumnStyles[1].MappingName = "PubID";
TblStyle.GridColumnStyles[1].HeaderText = "Company ID";
TblStyle.GridColumnStyles[1].Width = 200;
TblStyle.GridColumnStyles[1].NullText = String.Empty;

......................

// Set datagrid XP Style Button ColumnStyle for City field
TblStyle.GridColumnStyles.Add(new
DataGridXPButtonColumn(SystemColors.ControlText, SystemColors.Control));
// Also you may set datagrid Button ColumnStyle for City
// field without XP Button Style as the following:
// .Add(New DataGridButtonColumn())
TblStyle.GridColumnStyles[3].MappingName = "City";
TblStyle.GridColumnStyles[3].HeaderText = "City";
TblStyle.GridColumnStyles[3].Width = 60;
TblStyle.GridColumnStyles[3].NullText = String.Empty;

......................

// DataGridXPButtonColumn Click event runs when the datagrid XPButtonColumn Style's
// Button control is clicked. The procedure receives three arguments:
// sender as DataGridXPButtonColumn, ColumnMappingName and ColumnValueAtRow of String type
public void XPButtonColumn_Click(DataGridXPButtonColumn sender, string ColumnMappingName, string ColumnValueAtRow)
{
if (ColumnMappingName == "City") {
String strValue;
if (DataGrid1[DataGrid1.CurrentRowIndex, 3] == DBNull.Value) {
strValue = "Nothing :(";
}
else {
strValue = ColumnValueAtRow + " city, " + DataGrid1[DataGrid1.CurrentRowIndex, 2] + "!";
}
MessageBox.Show("You have chosen " + strValue, "DataGrid Button is clicked!");
}
}

The RustemSoft DataGridMemoColumn gives you a useful Memo Field control, which presents an edit window when user selects a cell of the DataGrid Memo Column on .NET DataGrid. This provides a pop-up memo field editor that you can call from your code at any time to let users edit the text in a memo field.
This Memo field editor provides more flexibility by updating the memo field to be used in a .NET DataGrid column.
The DataGrid Memo Column Memo field editor is useful for showing short document contents, like memos and emails.
When using the DataGrid Memo Column editor you are automatically provided with all general features, which any typical, contemporary word processor has.

' Set datagrid column styles
With TableStyle.GridColumnStyles
' Set datagrid ColumnStyle for Car field
.Add(New DataGridTextBoxColumn(tblCrrncMngr.GetItemProperties.Item("Car")))
With .Item(0)
.MappingName = "Car"
.HeaderText = "Car Name"
.Width = 130
.NullText = String.Empty
.ReadOnly = True
End With

' Set datagrid ComboBox ColumnStyle for PubID field
.Add(New DataGridComboBoxColumn(ds.Tables.Item("Companies"), 1, 0))
' Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
' Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
With .Item(1)
.MappingName = "PubID"
.HeaderText = "Company ID"
.Width = 200
.NullText = String.Empty
End With

.................................................

' Set datagrid Memo ColumnStyle for Comments field
.Add(New DataGridMemoColumn("Car description"))
With .Item(4)
.MappingName = "Comments"
.HeaderText = "Comments"
.Width = 60
.NullText = String.Empty
End With
End With

// Set column styles
// Set datagrid ColumnStyle for Car field
DataGridTextBoxColumn colCar = new DataGridTextBoxColumn();
colCar.MappingName = "Car";
colCar.HeaderText = "Car Name";
colCar.Width = 130;
colCar.NullText = String.Empty;
colCar.ReadOnly = true;
TblStyle.GridColumnStyles.Add(colCar);

// Set datagrid ComboBox ColumnStyle for PubID field
DataTable tblCompanies = ds.Tables["Companies"];
TblStyle.GridColumnStyles.Add(new DataGridComboBoxColumn(ref tblCompanies, 1, 0, true, false, true));
// Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
// Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
TblStyle.GridColumnStyles[1].MappingName = "PubID";
TblStyle.GridColumnStyles[1].HeaderText = "Company ID";
TblStyle.GridColumnStyles[1].Width = 200;
TblStyle.GridColumnStyles[1].NullText = String.Empty;

.................................................

// Set datagrid Memo ColumnStyle for Comments field
TblStyle.GridColumnStyles.Add(new DataGridMemoColumn("Car description"));
TblStyle.GridColumnStyles[4].MappingName = "Comments";
TblStyle.GridColumnStyles[4].HeaderText = "Comments";
TblStyle.GridColumnStyles[4].Width = 60;

The DateTimePicker ColumnStyle is used to allow the user to select a date and time, and to display that date/time in your DataGrid.

' Set datagrid ComboBox ColumnStyle for PubID field
.Add(New DataGridComboBoxColumn(ds.Tables.Item("Companies"), 1, 0))
' Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
' Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
With .Item(1)
.MappingName = "PubID"
.HeaderText = "Company ID"
.Width = 200
.NullText = String.Empty
End With

.................................................

' Set datagrid DateTimePicker ColumnStyle for DateFirst field
.Add(New DataGridDateTimePicker())
With .Item(4)
.MappingName = "DateFirst"
.HeaderText = "Date"
.Width = 80
.NullText = String.Empty
End With
End With

// Set datagrid ComboBox ColumnStyle for PubID field
DataTable tblCompanies = ds.Tables["Companies"];
TblStyle.GridColumnStyles.Add(new DataGridComboBoxColumn(ref tblCompanies, 1, 0, true, false, true));
// Datagrid ComboBox DisplayMember field has order number 1. Name of this column is "Name"
// Datagrid ComboBox ValueMember field has order number 0. Name of this column is "PubID"
TblStyle.GridColumnStyles[1].MappingName = "PubID";
TblStyle.GridColumnStyles[1].HeaderText = "Company ID";
TblStyle.GridColumnStyles[1].Width = 200;
TblStyle.GridColumnStyles[1].NullText = String.Empty;

.................................................

// Set datagrid DateTimePicker ColumnStyle for DateFirst field
TblStyle.GridColumnStyles.Add(new DataGridDateTimePicker());
TblStyle.GridColumnStyles[4].MappingName = "DateFirst";
TblStyle.GridColumnStyles[4].HeaderText = "Date";
TblStyle.GridColumnStyles[4].Width = 60;

You are trying to create a control in .NET, and your control has to catch the Tab key. It might be a grid, where you would expect Tab to move between cells, or it might be an editor control. Now you would like to catch Tab and some other navigation keys that do not call OnKeyDown or OnKeyUp. How to intercept Tabs properly in .NET?
You have to create a class that inherits from the System.Windows.Forms.Control and override the ProcessKeyMessage method. This method is called when a control receives a keyboard message. You suppose to trap the Tab on your Button. Just override the System.Windows.Forms.Button class and create your own MyButton class:

Public Class MyButton
Inherits System.Windows.Forms.Button
Public PreProcessKey As Integer = Nothing

Public Sub New()
MyBase.New()
End Sub

Protected Overrides Function ProcessKeyMessage(ByRef m As Message) As Boolean
PreProcessKey = m.WParam.ToInt32
End Function
End Class

public class myButton : System.Windows.Forms.Button
{
public int PreProcessKey;

public myButton()
{
}

protected override bool ProcessKeyMessage(ref System.Windows.Forms.Message m)
{
PreProcessKey = m.WParam.ToInt32();
return true;
}
}

In your custom code you will be able to identify which key has been pressed before your button was activated:

If MyButton.PreProcessKey = Keys.Tab Then MsgBox("Tab is pressed!")

if (System.Windows.Forms.Keys.Tab.Equals(myButton.PreProcessKey)) MessageBox.Show("Tab is pressed!");

The DataGridComboBoxColumn's combo object has the same properties as the .NET ComboBox control.
The following example sets the BackColor property so that will display red background.
This code assumes that an instance of a DataGridComboBoxColumn grid column style has been created on your custom DataGrid.

Private Sub DataGrid1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Enter
' Identify TempColumn object that is the DataGridComboBoxColumns "child"
Dim TempColumn As DataGridComboBoxColumn = DataGrid1.TableStyles(0).GridColumnStyles(1)
' Change combobox background color to red
TempColumn.combo.BackColor = Color.Red
' Change combobox characters' color to yellow
TempColumn.combo.ForeColor = Color.Yellow
End Sub

// Identify TempColumn object that is the DataGridComboBoxColumns "child"
DataGridComboBoxColumn TempColumn =
(DataGridComboBoxColumn) DataGrid1.TableStyles[0].GridColumnStyles[3];
// Change combobox background color to red
TempColumn.combo.BackColor = Color.Red;
/ Change combobox characters' color to yellow
TempColumn.combo.ForeColor = Color.Yellow;

The DataGridDateTimePicker's picker object has the same properties as the .NET DateTimePicker control.
The following example sets the CustomFormat property so that the will display the date as "12/31/2003".
This code assumes that an instance of a DataGridDateTimePicker grid column style has been created on your custom DataGrid.

Private Sub DataGrid1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Enter
' Identify TempColumn object that is the DataGridDateTimePickers "child"
Dim TempColumn As DataGridDateTimePicker = DataGrid1.TableStyles(0).GridColumnStyles(2)
' Set the Format type and the CustomFormat string
TempColumn.picker.Format = DateTimePickerFormat.Custom
TempColumn.picker.CustomFormat = "MM/dd/yyyy"
' for German people: (you can see the date as "31.12.2003")
'System.Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("de-DE")
'TempColumn.picker.CustomFormat = "dd.MM.yy"

' Change Picker's calendar title background color
TempColumn.picker.CalendarTitleBackColor = Color.Red
End Sub

// Identify TempColumn object that is the DataGridDateTimePicker's "child"
DataGridDateTimePicker TempColumn =
(DataGridDateTimePicker) DataGrid1.TableStyles[0].GridColumnStyles[4];
// Set the Format type and the CustomFormat string
TempColumn.picker.Format = DateTimePickerFormat.Custom;
TempColumn.picker.CustomFormat = "MM/dd/yyyy";
// for German people: (you can see the date as "31.12.2003")
System.Threading.Thread.CurrentThread.CurrentCulture = new System.Globalization.CultureInfo("de-DE");
TempColumn.picker.CustomFormat = "dd.MM.yy";

// Change Picker's calendar title background color
TempColumn.picker.CalendarTitleBackColor = Color.Red;

The DataGridComboBoxColumn column style control gives an ability to get a nesting combo box that filters values from a related child table. In a dictionary grid, you can view and edit related data in a child table.
In our sample database we have "Corps" Master table that has a one-to-many relationship with a "Cars" Child table; so for each row of the "Corps" table in Dictionary grid, we can view and edit the related rows of the "Cars" child table in a dictionary grid. These two tables are related each other by fields key: "ID + Corp".
For this case we have to define two string arrays with key fields' names MasterFields and ChildFields. To get the filtering we must identify Master and Child tables' key fields. These fields names in both arrays must have the same order sequence.

' Identify "Corps" Master and "Cars" Child tables' key fields
Dim dc As DataGridComboBoxColumn = DataGrid1.TableStyles(0).GridColumnStyles(2)
' Fill MasterFields array by Master "Corps" table key fields' names
dc.combo.MasterFields(0) = "ID"
dc.combo.MasterFields(1) = "Corp"

' Fill ChildFields array by Child "Cars" table key fields' names
dc.combo.ChildFields(0) = "ID"
dc.combo.ChildFields(1) = "Corp"

// Identify "Corps" Master and "Cars" Child tables' key fields
DataGridComboBoxColumn dc =
(DataGridComboBoxColumn) DataGrid1.TableStyles[0].GridColumnStyles[2];
// Fill MasterFields array by Master "Corps" table key fields' names
dc.combo.MasterFields[0] = "ID";
dc.combo.MasterFields[1] = "Corp";

// Fill ChildFields array by Child "Cars" table key fields' names
dc.combo.ChildFields[0] = "ID";
dc.combo.ChildFields[1] = "Corp";

DataGridComboBoxColumn ActivateDictionary event runs when the datagrid ComboBoxColumn Style's
nesting Dictionary datagrid is activated (the additional dropdown button is clicked).
We use the procedure to specify what dictionary columns will be shown.

' Define "Models" Dictionary Grid Column
ModelColumn = DataGrid1.TableStyles(0).GridColumnStyles(3)

.............

Private Sub ModelColumn_ActivateDictionary(ByVal sender As DataGridComboBoxColumn) Handles ModelColumn.ActivateDictionary
Dim TableStyle As New DataGridTableStyle()
Dim DictionrGridColumns As GridColumnStylesCollection = TableStyle.GridColumnStyles

' Define columns
With DictionrGridColumns
.Add(New DataGridTextBoxColumn())
With .Item(0)
.MappingName = "ModelID"
.HeaderText = "Model ID"
.Width = 40
.NullText = String.Empty
End With
.Add(New DataGridTextBoxColumn())
With .Item(1)
.MappingName = "Model"
.HeaderText = "Model"
.Width = 60
.NullText = String.Empty
End With
.Add(New DataGridComboBoxColumn(ds.Tables.Item("BodyStyle"), 0, 0))
With .Item(2)
.MappingName = "Body Style"
.HeaderText = "Body Style"
.Width = 120
.NullText = String.Empty
End With
.Add(New DataGridNumericColumn(True, True, Year(Now), 1955, 2020, 4))
With .Item(3)
.MappingName = "Year"
.HeaderText = "Year"
.Width = 50
.NullText = String.Empty
End With
End With
' Define Dictionary Grid Columns Styles
ModelColumn.combo.DictionaryGridColumns = DictionrGridColumns
' Define Dictionary Grid Height
ModelColumn.combo.DictionaryGridHeight = 250
' Define Dictionary Grid Width
ModelColumn.combo.DictionaryGridWidth = 350
End Sub

// Define "Models" Dictionary Grid Column
ModelColumn = (DataGridComboBoxColumn) DataGrid1.TableStyles[0].GridColumnStyles[3];
// ModelColumn object handles the
// RustemSoft.DataGridColumns.DataGridComboBoxColumn.ActivateDictionary event
ModelColumn.ActivateDictionary +=
new RustemSoft.DataGridColumns.DataGridComboBoxColumn.ActivateDictionaryEventHandler(this.ModelColumn_ActivateDictionary);

.............

private void ModelColumn_ActivateDictionary(DataGridComboBoxColumn sender)
{
DataGridTableStyle TableStyle = new DataGridTableStyle();
GridColumnStylesCollection DictionrGridColumns = TableStyle.GridColumnStyles;

// Define columns
DictionrGridColumns.Add(new DataGridTextBoxColumn());
DictionrGridColumns[0].MappingName = "ModelID";
DictionrGridColumns[0].HeaderText = "Model ID";
DictionrGridColumns[0].Width = 40;
DictionrGridColumns[0].NullText = String.Empty;

DictionrGridColumns.Add(new DataGridTextBoxColumn());
DictionrGridColumns[1].MappingName = "Model";
DictionrGridColumns[1].HeaderText = "Model";
DictionrGridColumns[1].Width = 60;
DictionrGridColumns[1].NullText = String.Empty;

DataTable tblBodyStyle = ds.Tables["BodyStyle"];
// One more DataGridComboBoxColumn object is enclosed into the datagrid
DictionrGridColumns.Add(new DataGridComboBoxColumn(ref tblBodyStyle, 0, 0, true, false, true, RustemSoft.DataGridColumns.DataGridComboBoxColumn.DisplayModes.ShowDisplayMember,0));
DictionrGridColumns[2].MappingName = "Body Style";
DictionrGridColumns[2].HeaderText = "Body Style";
DictionrGridColumns[2].Width = 120;
DictionrGridColumns[2].NullText = String.Empty;

DictionrGridColumns.Add(new DataGridNumericColumn(true, true, DateTime.Now.Year, 1955, 2020, 4, null));
DictionrGridColumns[3].MappingName = "Year";
DictionrGridColumns[3].HeaderText = "Year";
DictionrGridColumns[3].Width = 50;
DictionrGridColumns[3].NullText = String.Empty;

// Define Dictionary Grid Columns Styles
ModelColumn.combo.DictionaryGridColumns = DictionrGridColumns;
// Define Dictionary Grid Height
ModelColumn.combo.DictionaryGridHeight = 250;
// Define Dictionary Grid Width
ModelColumn.combo.DictionaryGridWidth = 350;
}

These formatted intelligent DateTimeColumn, NumericColumn, TextFractionsColumn style controls can mask the date, time, numbers, digits, decimal as well as the text fractions. It gives you ability to manage the IP Address, SS#, Phone numbers, etc., and checks the validation, and automatically set the delimiter location.

' Set datagrid DateTime ColumnStyle for TimeFirst field
.Add(New DataGridDateTimeColumn(DateTimeTextBox.Stencils.HHMM24, Now, ":"))
With .Item(6)
.MappingName = "TimeFirst"
.HeaderText = "Time"
.Width = 40
.NullText = String.Empty
End With

' Set datagrid Numeric ColumnStyle for Price field
.Add(New RustemSoft.DataGridColumns.DataGridNumericColumn(, True, , , , , 2))
With .Item(7)
.MappingName = "Price"
.HeaderText = "Price"
.Width = 60
.NullText = String.Empty
End With

' Set datagrid TextFractions ColumnStyle for Phone field
.Add(New RustemSoft.DataGridColumns.DataGridTextFractionsColumn)
With .Item(8)
.MappingName = "Phone"
.HeaderText = "Phone"
.Width = 80
.NullText = String.Empty
End With

End With
End With
' Add TableStyle
DataGrid1.TableStyles.Add(TblStyle)

' Define NumericColumn DataGridNumericColumn object for Price field
Dim NumericColumn As DataGridNumericColumn = DataGrid1.TableStyles(0).GridColumnStyles(7)
' Specify back color for the field
NumericColumn.txtBox.box.BackColor = System.Drawing.Color.LightPink

' You may turn error messages off
'NumericColumn.txtBox.box.ErrMessageVisible = False
' You can specify an error message in your native language:
'NumericColumn.txtBox.box.ErrMessageNumericOnly = "Veuillez crire les nombres seulement!"

' Identify PhoneColumn object that is the DataGridTextFractionsColumns child
Dim PhoneColumn As DataGridTextFractionsColumn = DataGrid1.TableStyles(0).GridColumnStyles(8)
' Specify Delimiter Character for the field
PhoneColumn.txtBox.box.DelimiterChar = "-"

' Specify first fraction properties
' Alphanumeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode(0, 0) = "a"
' You can insert 3 symbols only into the first fraction
PhoneColumn.txtBox.box.FractionsCode(0, 1) = 3

' Specify second fraction properties
' Numeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode(1, 0) = "n"
' You can insert 3 symbols only into the second fraction
PhoneColumn.txtBox.box.FractionsCode(1, 1) = 3

' Specify third fraction properties
' Numeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode(2, 0) = "n"
' You can insert 4 symbols only into the third fraction
PhoneColumn.txtBox.box.FractionsCode(2, 1) = 4

' To specify Password column only one text fraction must be defined:
'' To let accept any symbols for the fraction we need leave first array element empty:
'PhoneColumn.txtBox.box.FractionsCode(0, 0) = ""
'' You can insert 30 symbols only into the password fraction
'PhoneColumn.txtBox.box.FractionsCode(0, 1) = 30
'' Specify Password Character for the field
'PhoneColumn.txtBox.box.PasswordChar = "*"

// Set datagrid DateTime ColumnStyle for TimeFirst field
TblStyle.GridColumnStyles.Add(new DataGridDateTimeColumn(DateTimeTextBox.Stencils.HHMM24, DateTime.Now, ":"));
//TblStyle.GridColumnStyles.Add(new DataGridTextBoxColumn());
TblStyle.GridColumnStyles[6].MappingName = "TimeFirst";
TblStyle.GridColumnStyles[6].HeaderText = "Time";
TblStyle.GridColumnStyles[6].Width = 40;
TblStyle.GridColumnStyles[6].NullText = String.Empty;

// Set datagrid Numeric ColumnStyle for Price field
TblStyle.GridColumnStyles.Add(new DataGridNumericColumn(false, true, null, null, 1000000, null, 2));
//TblStyle.GridColumnStyles.Add(new DataGridTextBoxColumn());
TblStyle.GridColumnStyles[7].MappingName = "Price";
TblStyle.GridColumnStyles[7].HeaderText = "Price";
TblStyle.GridColumnStyles[7].Width = 60;
TblStyle.GridColumnStyles[7].NullText = String.Empty;

// Set datagrid TextFractions ColumnStyle for Phone field
TblStyle.GridColumnStyles.Add(new DataGridTextFractionsColumn());
TblStyle.GridColumnStyles[8].MappingName = "Phone";
TblStyle.GridColumnStyles[8].HeaderText = "Phone";
TblStyle.GridColumnStyles[8].Width = 80;
TblStyle.GridColumnStyles[8].NullText = String.Empty;

// Add TableStyle
DataGrid1.TableStyles.Add(TblStyle);

// Define NumericColumn DataGridNumericColumn object for Price field
DataGridNumericColumn NumericColumn = (DataGridNumericColumn) DataGrid1.TableStyles[0].GridColumnStyles[7];
// Specify back color for the field
NumericColumn.txtBox.box.BackColor = System.Drawing.Color.LightPink;

// You may turn error messages off
//NumericColumn.txtBox.box.ErrMessageVisible = false;
// You can specify an error message in your native language:
//NumericColumn.txtBox.box.ErrMessageNumericOnly = "Veuillez crire les nombres seulement!";

// Identify PhoneColumn object that is the DataGridTextFractionsColumns child
DataGridTextFractionsColumn PhoneColumn = (DataGridTextFractionsColumn) DataGrid1.TableStyles[0].GridColumnStyles[8];
// Specify Delimiter Character for the field
PhoneColumn.txtBox.box.DelimiterChar = "-";

// Specify first fraction properties
// Alphanumeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode[0, 0] = "a";
// You can insert 3 symbols only into the first fraction
PhoneColumn.txtBox.box.FractionsCode[0, 1] = 3;

// Specify second fraction properties
// Numeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode[1, 0] = "n";
// You can insert 3 symbols only into the second fraction
PhoneColumn.txtBox.box.FractionsCode[1, 1] = 3;

// Specify third fraction properties
// Numeric symbols only are acceptable for the fraction
PhoneColumn.txtBox.box.FractionsCode[2, 0] = "n";
// You can insert 4 symbols only into the third fraction
PhoneColumn.txtBox.box.FractionsCode[2, 1] = 4;

// To specify Password column only one text fraction must be defined:
// To let accept any symbols for the fraction we need leave first array element empty:
//PhoneColumn.txtBox.box.FractionsCode[0, 0] = "";
// You can insert 30 symbols only into the password fraction
//PhoneColumn.txtBox.box.FractionsCode[0, 1] = 30;
// Specify Password Character for the field
//PhoneColumn.txtBox.box.PasswordChar = "*";

When a beginner who has VB6 experience first time opens .NET and just going about making a form up he/she could notice there is no Line in the .NET toolbox. What happened, where did it go?
There is a difference from VB6 forms that Windows Forms .NET does not support the Line control.

The Line class is based on System.Drawing namespace that provides access to GDI+ basic graphics functionality. A Line control is a graphical control that displays a horizontal, vertical, or diagonal one-pixel-wide line that can't be changed directly. The Line control can be changed dynamically at run time.
The control class Line that is implemented in both languages (VB.Net and C#) is derived from System.Windows.Forms.Control. It overrides the OnPaint method to draw itself. The class will draw the line depending on its properties.

Line controls can be displayed on forms, in picture boxes, and in another visual controls. You can move or resize your Line object by altering its X_Left, X_Right, Y_Left, and Y_Right properties. Also you can setup its Color property.

Dim ln As New Line
ln.X_Left = 20
ln.Y_Left = 150
ln.X_Right = 100
ln.Y_Right = 10
ln.Color = Color.Blue

Line ln = new Line();
ln.X_Left = 20;
ln.Y_Left = 150;
ln.X_Right = 100;
ln.Y_Right = 10;
ln.Color = Color.Blue;