Public Property ListHeight As Short

Dim instance As MultiColumnComboBoxCellType
Dim value As Short
 
instance.ListHeight = value
 
value = instance.ListHeight

public short ListHeight {get; set;}

string conStr = "Provider=Microsoft.JET.OLEDB.4.0;data source=c:\\nwind.mdb";
string sqlStr = "SELECT * FROM Employees";
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(conStr);
Data.DataSet ds = new Data.DataSet();
System.Data.OleDb.OleDbDataAdapter da = new System.Data.OleDb.OleDbDataAdapter(sqlStr, conn);
da.Fill(ds);
FarPoint.Web.Spread.MultiColumnComboBoxCellType mcb = new FarPoint.Web.Spread.MultiColumnComboBoxCellType();
mcb.ColumnEdit = 2;
mcb.ColumnEditName = "Last Name";
mcb.ColumnWidths = new int[] {
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80,
        80};
mcb.DataColumn = 1;
mcb.DataColumnName = "First Name";
mcb.ListAlignment = FarPoint.Web.Spread.Editor.ListAlignment.Right;
mcb.ListHeight = 390;
mcb.ListOffset = -30;
mcb.ListWidth = 520;
mcb.ShowButton = true;
mcb.DataSource = ds;
FpSpread1.Sheets[0].Cells[0, 0].CellType = mcb;

Dim conStr As String = "Provider=Microsoft.JET.OLEDB.4.0;data source=c:\\nwind.mdb"
Dim sqlStr As String = "SELECT * FROM Employees"
Dim conn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(conStr)
Dim ds As Data.DataSet = New Data.DataSet()
Dim da As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(sqlStr, conn)
da.Fill(ds)

Dim mcb As New FarPoint.Web.Spread.MultiColumnComboBoxCellType
mcb.ColumnEdit = 2
mcb.ColumnEditName = "Last Name"
mcb.ColumnWidths = New Integer() {80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80, 80}
mcb.DataColumn = 1
mcb.DataColumnName = "First Name"
mcb.ListAlignment = FarPoint.Web.Spread.Editor.ListAlignment.Right
mcb.ListHeight = 390
mcb.ListOffset = -30
mcb.ListWidth = 520
mcb.ShowButton = True
mcb.DataSource = ds
FpSpread1.Sheets(0).Cells(0, 0).CellType = mcb