private void Form1_Load(object sender, EventArgs e)
{
GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType gccombo = new GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType();
gccombo.ListColumns.Add("プラットフォーム");
gccombo.ListDefaultColumn.AutoWidth = true;
gccombo.Items.Add(new GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("ASP.NET"));
gccombo.Items.Add(new GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("Windows Forms"));
gccombo.Items.Add(new GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("WPF"));
// オートコンプリートを設定
gccombo.AutoCompleteMode = AutoCompleteMode.SuggestAppend;
gccombo.AutoCompleteSource = AutoCompleteSource.ListItems;
gccombo.AutoComplete.HighlightMatchedText = true;
gccombo.AutoComplete.HighlightStyle.ForeColor = Color.Red;
gccombo.AutoComplete.MatchingMode = GrapeCity.Win.Spread.InputMan.CellType.AutoCompleteMatchingMode.AmbiguousMatchStartWith;
fpSpread1.Sheets[0].Cells[0, 0].CellType = gccombo;
}
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim gccombo As New GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType()
gccombo.ListColumns.Add("プラットフォーム")
gccombo.ListDefaultColumn.AutoWidth = True
gccombo.Items.Add(New GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("ASP.NET"))
gccombo.Items.Add(New GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("Windows Forms"))
gccombo.Items.Add(New GrapeCity.Win.Spread.InputMan.CellType.ListItemInfo("WPF"))
' オートコンプリートを設定
gccombo.AutoCompleteMode = AutoCompleteMode.SuggestAppend
gccombo.AutoCompleteSource = AutoCompleteSource.ListItems
gccombo.AutoComplete.HighlightMatchedText = True
gccombo.AutoComplete.HighlightStyle.ForeColor = Color.Red
gccombo.AutoComplete.MatchingMode = GrapeCity.Win.Spread.InputMan.CellType.AutoCompleteMatchingMode.AmbiguousMatchStartWith
FpSpread1.Sheets(0).Cells(0, 0).CellType = gccombo
End Sub