Dim vDefaultCbo1ItemValue As Variant With iGrid1 .BeginUpdate With .Combos.Add("cbo1") .AddItem "Item 1" .AddItem "Item 2" .AddItem "Item 3" .AddItem "Item 4" vDefaultCbo1ItemValue = .ItemValue(2) Set .Font = New StdFont .Font.Name = "Verdana" .Font.Size = 10 End With .AddCol With .ColDefaultCell(1) .eType = igCellCombo .sCtrlKey = "cbo1" .vValue = vDefaultCbo1ItemValue End With .ShowControlsInAllCells = True .RowCount = 10 .EndUpdate End With
The 10Tec Forum uses cookies. By continuing to browse this site, you are agreeing to our use of cookies. More Details Close