MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集 > セル型 > GcComboBox型セル > オートコンプリート |
GcComboBox型セルのテキスト入力で、オートコンプリート機能を使用するには、GcComboBoxCellTypeクラスのAutoCompleteMode、およびAutoCompleteSourceまたはAutoCompleteCustomSourceプロパティを設定します。
また、オートコンプリートで表示されるリストの外観を設定するにはAutoCompleteクラスを使用します。
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