MESCIUS SPREAD for Windows Forms 17.0J
TextBoxStyle プロパティ (GcComboBoxCellType)

エディタの外観スタイルを示すTextBoxStyle値を取得または設定します。
構文
'Declaration
 
Public Property TextBoxStyle As TextBoxStyle
public TextBoxStyle TextBoxStyle {get; set;}

プロパティ値

TextBoxStyle値。
デフォルト値はTextBoxStyle.TextOnlyです。
解説
このプロパティは、このGcComboBoxの編集領域にテキストのみ、画像のみ、またはその両方のいずれが表示されるかを決定します。
ImageList img = new ImageList();
img.Images.Add(Image.FromFile("C:\\Program Files (x86)\\GrapeCity\\rasp.png"));
img.Images.Add(Image.FromFile("C:\\Program Files (x86)\\GrapeCity\\vanilla.png"));
img.Images.Add(Image.FromFile("C:\\Program Files (x86)\\GrapeCity\\choco.png"));
img.Images.Add(Image.FromFile("C:\\Program Files (x86)\\GrapeCity\\banana.png"));

GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType gccombo = new GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType();
gccombo.DropDownStyle = ComboBoxStyle.DropDownList;  
gccombo.Items.AddRange(new String[] { "Raspberry", "Vanilla", "Chocolate", "Banana" });
gccombo.Items[0].BackColor = Color.Fuchsia;
gccombo.Items[1].BackColor = Color.Ivory;
gccombo.Items[2].BackColor = Color.Chocolate;
gccombo.Items[3].BackColor = Color.LightYellow;
gccombo.ImageList = img;
gccombo.Items[0].Image = 0;
gccombo.Items[1].Image = 1;
gccombo.Items[2].Image = 2;
gccombo.Items[3].Image = 3;
gccombo.ShowListBoxImage = true;
gccombo.ImageAlign = HorizontalAlignment.Right;
gccombo.ListSelectedItemStyle.BackColor = Color.Bisque;
gccombo.ListSelectedItemStyle.ForeColor = Color.Black;
gccombo.TextBoxStyle = GrapeCity.Win.Spread.InputMan.CellType.TextBoxStyle.Both;
fpSpread1.Sheets[0].Cells[1, 1].CellType = gccombo;
fpSpread1.Sheets[0].Columns[1].Width = 200;
fpSpread1.Sheets[0].Rows[1].Height = 40;

FarPoint.Win.Spread.CellType.CurrencyCellType currencycell = new FarPoint.Win.Spread.CellType.CurrencyCellType();
fpSpread1.Sheets[0].Cells[1, 2].CellType = currencycell;
fpSpread1.Sheets[0].Cells[0, 1].Text = "Select a flavor";           
fpSpread1.Sheets[0].Cells[0, 2].Text = "Total";            
fpSpread1.Sheets[0].Columns[1, 2].Font = new Font("Calibri", 10, FontStyle.Bold);            
fpSpread1.Sheets[0].Columns[1, 2].HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center;
fpSpread1.Sheets[0].Rows[1].VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center;

private void fpSpread1_ComboSelChange(object sender, FarPoint.Win.Spread.EditorNotifyEventArgs e)
        {
string caseSwitch;
caseSwitch = fpSpread1.Sheets[0].Cells[1, 1].Text;
switch (caseSwitch)
{
    case "Raspberry":
        fpSpread1.Sheets[0].Cells[1, 2].Value = 5.00;
        break;
    case "Vanilla":
        fpSpread1.Sheets[0].Cells[1, 2].Value = 4.00;
        break;
    case "Chocolate":
        fpSpread1.Sheets[0].Cells[1, 2].Value = 4.25;
        break;
    case "Banana":
        fpSpread1.Sheets[0].Cells[1, 2].Value = 4.75;
        break;
}
        }
Dim img As New ImageList()
img.Images.Add(Image.FromFile("C:\Program Files (x86)\GrapeCity\rasp.png"))
img.Images.Add(Image.FromFile("C:\Program Files (x86)\GrapeCity\vanilla.png"))
img.Images.Add(Image.FromFile("C:\Program Files (x86)\GrapeCity\choco.png"))
img.Images.Add(Image.FromFile("C:\Program Files (x86)\GrapeCity\banana.png"))

Dim gccombo As New GrapeCity.Win.Spread.InputMan.CellType.GcComboBoxCellType()
gccombo.DropDownStyle = ComboBoxStyle.DropDownList
gccombo.Items.AddRange(New String() {"Raspberry", "Vanilla", "Chocolate", "Banana"})
gccombo.Items(0).BackColor = Color.Fuchsia
gccombo.Items(1).BackColor = Color.Ivory
gccombo.Items(2).BackColor = Color.Chocolate
gccombo.Items(3).BackColor = Color.LightYellow
gccombo.ImageList = img
gccombo.Items(0).Image = 0
gccombo.Items(1).Image = 1
gccombo.Items(2).Image = 2
gccombo.Items(3).Image = 3
gccombo.ShowListBoxImage = True
gccombo.ImageAlign = HorizontalAlignment.Right
gccombo.ListSelectedItemStyle.BackColor = Color.Bisque
gccombo.ListSelectedItemStyle.ForeColor = Color.Black
gccombo.TextBoxStyle = GrapeCity.Win.Spread.InputMan.CellType.TextBoxStyle.Both
fpSpread1.Sheets(0).Cells(1, 1).CellType = gccombo
fpSpread1.Sheets(0).Columns(1).Width = 200
fpSpread1.Sheets(0).Rows(1).Height = 40

Dim currencycell As New FarPoint.Win.Spread.CellType.CurrencyCellType()
fpSpread1.Sheets(0).Cells(1, 2).CellType = currencycell
fpSpread1.Sheets(0).Cells(0, 1).Text = "Select a flavor"
fpSpread1.Sheets(0).Cells(0, 2).Text = "Total"
fpSpread1.Sheets(0).Columns(1, 2).Font = New Font("Calibri", 10, FontStyle.Bold)
fpSpread1.Sheets(0).Columns(1, 2).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
fpSpread1.Sheets(0).Rows(1).VerticalAlignment = FarPoint.Win.Spread.CellVerticalAlignment.Center


Private Sub fpSpread1_ComboSelChange(sender As Object, e As FarPoint.Win.Spread.EditorNotifyEventArgs) Handles fpSpread1.ComboSelChange
Dim caseSwitch As String
caseSwitch = fpSpread1.Sheets(0).Cells(1, 1).Text
Select Case caseSwitch
    Case "Raspberry"
        fpSpread1.Sheets(0).Cells(1, 2).Value = 5.0
        Exit Select
    Case "Vanilla"
        fpSpread1.Sheets(0).Cells(1, 2).Value = 4.0
        Exit Select
    Case "Chocolate"
        fpSpread1.Sheets(0).Cells(1, 2).Value = 4.25
        Exit Select
    Case "Banana"
        fpSpread1.Sheets(0).Cells(1, 2).Value = 4.75
        Exit Select
End Select
    End Sub
参照

GcComboBoxCellType クラス
GcComboBoxCellType メンバ
TextFormat プロパティ

 

 


© MESCIUS inc. All rights reserved.