Posts Tagged ‘control’
How to Select Records in the Datatable
To select records/items in the datatable;
-
-
Sub FilterData(dt as DataTable)
-
Dim dRow() as Datarow
-
-
dRow = dt.select("CustomerID=10" )
-
-
Console.WriteLine("Rows " & dRow.Length)
-
-
-
End Sub
How to change the Height of Listbox Item
To change the height of the listbox items you have to customize the listbox by drawing the each item manually, to do this;
- Select Listbox control, in the property set the DrawMode to OwnerDrawVariable
- InĀ MeasureItem event of the listbox, add the code below
e.ItemHeight = 25
- Add this code to the DrawItem Event
-
Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
-
e.DrawBackground()
-
-
Dim drawbrush As Brush
-
-
If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
-
drawbrush = Brushes.White
-
Else
-
drawbrush = Brushes.Black
-
End If
-
-
Dim s As String
-
-
s = CType(sender, ListBox).Items(e.Index).ToString
-
-
e.Graphics.DrawString(s, CType(sender, Control).Font, drawbrush, e.Bounds.X, e.Bounds.Y)
-
-
-
End Sub
-
Note: The difference between the two owner-drawn options is that with fixed drawing each item in the list is the standard size (typically 13 px), and with OwnerDrawVariable you can specify the height for each item independently.
How to Select item in combobox by value
How to Select item in combobox by value
Private sub ComboBoxSelect(value as string)
combobox1.SelectedValue = value
End Private
Combo box datasource using Dictionary
Public Sub Gender(ByVal objcombo As ComboBox)
Dim objGender As New Dictionary(Of String, String)
objGender.Add(“M”, “Male”)
objGender.Add(“F”, “Female”)
Dim mBinding As New BindingSource
mBinding.DataSource = objGender
objcombo.DataSource = mBinding
objcombo.DisplayMember = “Value”
objcombo.ValueMember = “Key”
End Sub