Using New ComboBox ActiveX With VB


When I create a project for using a DataGrid with a ComboBox, I hope to get a resizable ComboBox to set its height as the height of the DataGrid cell. This is my attempt to create a resizable ComboBox ActiveX, now I can change its height. Some programmers use a Form, ListBox, TextBox and a Button to create a ComboBox, but I am using a Panel, ComboBox, TextBox and a Button to create my ActiveX. Using a Panel to hide the upper part of the ComboBox and using this Panel as the container for the TextBox and Button.

About the Project of my ActiveX:

  • Name of the Project is: MKCombo
  • Name of UserControl is: KCombo
  • Name of Panel is: ComboHide
  • Name of ComboBox is: ComboCtrl
  • Name of TextBox is: ComboText
  • Name of Button is: ComboButton

After you expand the files:, you can open "SizableCombo" solution to read the code of my ActiveX in the "MKCombo" project and read the code to test the ActiveX in the "SizableCombo" project.
I tried to use "DataSource" to bind my ActiveX with data but I can't, so then I used another idea.

My ActiveX has:

  • Event: cmbSelectedChanged for SelectedIndexChanged event.
  • Property: cmbBorderStyle for BorderStyle property.
  • Property: cmbSelectedIndex for SelectedIndex property.
  • Property: cmbSelectedItem for SelectedItem property.
  • Property: cmbText for Text property.
  • Property: cmbItemsCount for Items.Count property.
  • Method: cmbAddItem for Items.Add method.
  • Method: cmbClear for Items.Clear method.

About the Code

Code to bind the ActiveX with data:

Public Sub cmbBindData(ByVal cmbSql As String, ByVal cmbCnn As OleDbConnection, ByVal cmbField As String)

    If (cmbCnn.State = ConnectionState.Open) Then cmbCnn.Close()


    Dim cmdReader As OleDbCommand = New OleDbCommand(cmbSql, cmbCnn)

    Dim datRdr As OleDbDataReader = cmdReader.ExecuteReader()



    While (datRdr.Read())


    End While

   ComboCtrl.SelectedIndex = 0

End Sub


When the test project is executed, please resize any row to see how the ComboBox changes its height.

I hope this article is useful, If you have any idea, please tell me.

Up Next
    Ebook Download
    View all
    View all