Using New ComboBox ActiveX With VB

Introduction

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: ComboVB.zip, 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()

cmbCnn.Open()

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

Dim datRdr As OleDbDataReader = cmdReader.ExecuteReader()

ComboCtrl.Items.Clear()

While (datRdr.Read())

ComboCtrl.Items.Add(datRdr(cmbField))

End While

ComboCtrl.SelectedIndex = 0

End Sub

Remark

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.

Using New ComboBox ActiveX With VB

Reactions

Comments