Posts Tagged ‘control’

How to Select Records in the Datatable

To select records/items in the datatable;

  1.  
  2. Sub FilterData(dt as DataTable)
  3. Dim dRow() as Datarow
  4.  
  5. dRow = dt.select("CustomerID=10" )
  6.  
  7. Console.WriteLine("Rows " & dRow.Length)
  8.  
  9.  
  10. End Sub

, , ,

No Comments


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;

  1. Select Listbox control, in the property set the DrawMode to OwnerDrawVariable
  2. InĀ MeasureItem event of the listbox, add the code below

    e.ItemHeight = 25

  3. Add this code to the DrawItem Event
    1.     Private Sub ListBox1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles ListBox1.DrawItem
    2.         e.DrawBackground()
    3.  
    4.         Dim drawbrush As Brush
    5.  
    6.         If (e.State And DrawItemState.Selected) = DrawItemState.Selected Then
    7.             drawbrush = Brushes.White
    8.         Else
    9.             drawbrush = Brushes.Black
    10.         End If
    11.  
    12.         Dim s As String
    13.  
    14.         s = CType(sender, ListBox).Items(e.Index).ToString
    15.  
    16.         e.Graphics.DrawString(s, CType(sender, Control).Font, drawbrush, e.Bounds.X, e.Bounds.Y)
    17.  
    18.  
    19.     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.

, , ,

No Comments


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

,

No Comments


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

, , ,

No Comments



SetPageWidth