一、如何获得fpspread中三种状态的复选框单元格
spread中checkbox的用法
forpoint spreadsheet
列类别选择combo就可以了
spread的帮助文件中间搜索 CellType property, check box cells
//------------------------------------------------------
是这样的，我的webform上放了一个FpSpread控件，我想把行头变成checkbox样式，我的方法是在后台代码中定义：
FarPoint.Web.Spread.CheckBoxCellType celltype= new FarPoint.Web.Spread.CheckBoxCellType();
然后将此type赋给行头：
FpSpread1.ActiveSheetView.RowHeader.Cells[0,0].CellType=celltype;
我的问题是：1.如果我想用一个Button控制当点击Button时，如果CheckBox是选中状态，则在该中显示某某字符，但我不知道这种CheckBox的标识是什么，还有他的状态为选中或没选中返回值是什么？
2.还有其他方法吗?比如我用
FpSpread1.ActiveSheetView.RowHeader.Cells[0,0].Text="<Input id=\"nihao\" checked type=\"CheckBox\"/>"
遇到的困难和刚才一样。
请问怎么解决，多谢！
FpSpread1.columnsheader.cells(0,0).text="Check#"
//-------------------------------------------------------------
确定check所在的位置，然后直接判断FpSpread1.Sheets(0).Cells(1，6).Value是否为1，为1就是选中状态。我是这样的。
Public Sub SetCOLCheck(spd As vaSpread, ByVal lCol1 As Long, ByVal lCol2 As Long, _
Optional ByVal IsCenter As Boolean= True)
With spd
.Col= lCol1
.Col2= lCol2
.Row=-1
.BlockMode= True
.CellType= 10
.TypeHAlign= 0
.TypeCheckCenter= IsCenter
.BlockMode= False
End With
End Sub
我使用的是Spread，是这么填加的
//---------------------------------------------------------
1.BorderStyle:调整是否有边框默认为Fixed3D FixedSingle只有一条线 2.location x,y调整位置
3.horizontalScrollBarPolicy默认为Always横向向滚共条始终存在，就是AsNeeded条数超过显示就存在，否则不显示，Never始终没有滚动条
4.verticalScrollBarPolicy默认为Always纵向滚共条始终存在，就是AsNeeded条数超过显示就存在，否则不显示，Never始终没有滚动条
5.Enabled是否可以编辑
点击Sheets属性旁的按钮就会出现关于Sheets页里面属性的设置
1.selectionUnit默认为Cell运行的时候，点击单元格选中的只是一个单元 Column整列，Row整行
2.ColumnCount Spread表示数据的列数
3.RowCount Spread表示数据的行数
4.*OperationMode主要是MultiSelect，SingleSelect两种的区分SingleSelect只能选一行， MultiSelect可以择多行。
5.rows和Column下的Resizable可以将列和行的大小固定为不可调整
AddColumns(Integer i, Integer j)添加列，i是起始位置，j是列数。
AddRows(Integer i, Integer j)添加列，i是起始位置，j是列数。
.AddSelection(I,j,k,m)添加选中的cell
.ClearRange AddSelection(I,j,k,m,true)清空Spread.还有很多常用的方法。就往Spread中放值的方法
1.创建对应的DataSource Me.FpSpread1_Sheet1().DataSource=objDs.Tables(0)
Me.FpSpread1_Sheet1().Columns(0).DataField="id"
Me.FpSpread1_Sheet1().Columns(1).DataField="name“
**Id,和name是从数据库中查出来得数据结果集中数据表的字段名。
这样从数据库中查出的值就可放在相应的列上了。
2.也可单独往单元格中放值
Me.FpSpread1_Sheet1.Cells(0, 0).Value()=“123”
*放值时需要注意的是FpSpread1_Sheet1的起始位置是（0，0）
如果只有4行4列的话是不存在（4，4）这样的Cells的
Me.FpSpread1_Sheet1.ActiveRowIndex
可以取得选择的行的索引值，从0开始
FpSpread1_Sheet1.Cells(FpSpread1_Sheet1.ActiveRowIndex, 1)
可以取得选择的行对应单元格的值。
Dim cellButtonType As New FarPoint.Win.Spread.CellType.ButtonCellType
cellButtonType.Text="Detail"
Me.SpdYoteyi_Sheet1.ColumnHeader.Cells.Get(0, 3).BackColor= System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
With frm.SpdYoteyi.Sheets(0).Columns.Get(0).ForeColor= System.Drawing.Color.Red
.Columns.Get(3).ForeColor= System.Drawing.Color.Blue
.SetText(0, 0,"eld001")
.SetText(0, 7,"2006/04/20")
.SetText(0, 9,"会社AAA")
//动态添加列。
.AddColumns(10, 1)
.Columns.Get(10).Label="详しい"
.Columns.Get(10).CellType= cellButtonType
End With
//获得当前选中行
.SpdYoteyi.ActiveSheet.ActiveRowIndex()
//-------------------------------------------------
关于spread的一些基本操作
对日软件开发，经常会用到spread控件。使用中积累了一些经验，自己总结一下。
1．spread的cell
在spread的设计界面里可以设置cell的各种属性，和用惯的vb差不多。其实它的help写的挺详细的，刚开始日文不好看起来不方便，现在可以顺利理解了。Cell可以是checkbox,文字，数字，时间等等类型，可以只读，可读写，还可以设置背景色，边框等。和excel相像的。
2．Cell的读写模式。
1.只读
①全体只读
With spdTEMP
.Col= 1
.Col2=.MaxCols
.Row= 1
.Row2=-1'当spd里数据是0条时,.MaxRows会出错。用-1安全。
.Protect= True
.BlockMode= True
.Lock= True
.BlockMode= False
End With
②部分只读，设置行和列就可以
With spdTEMP
.Col= 2
.Col2= 5
.Row= 1
.Row2= 8
.Protect= True
.BlockMode= True
.Lock= True
.BlockMode= False
End With
2.一般写模式和覆盖写模式
一般写模式：.EditMode= True
覆盖写模式：.EditModeReplace= True
区别在于 1）光标模式不同，一般写为单个鼠标入力光标，覆盖写已有内容全选，替换输入。
2）当输入带有小数的数字时,覆盖写会自动跳到小数最末位，这可能是spread3.0在win2000下的bug吧。症状是第一遍输入10.23时会变成1.03，第二遍输入时就好了。试验了很多次，最后不得已换成一般写模式。
3.spread的click事件
①这是一段点击每行第三列时，自动全行copy数据的例子。
Private Sub spdTMSR160_Click(ByVal Col As Long, ByVal Row As Long)
Dim temp As String
Dim i As Integer
If Row= 0 Then Exit Sub
If spdTMSR160.Lock= True Then Exit Sub
With spdTMSR160
.Col= 3
.Col2=.MaxRows
.Row= Row
.Row2= Row
If Col= 2 And.Value<>"" Then
If MsgBox("3月の予算金额を全ての月にコピーしてもよろしいですか？", vbQuestion+ vbYesNo)= vbYes Then
.BlockMode= True
temp=.Value
For i= 1 To 11
.Col=.Col+ 1:.Value= temp
Next
End If
End If
.BlockMode= False
End With
End Sub
②这是一段有选择按钮的例子。选中时行变色，部分cell改变入力状态。
Private Sub spdTMSR020_Click(ByVal Col As Long, ByVal Row As Long)
If Row= 0 Then Exit Sub
' If spdTMSR020.Lock= True Then Exit Sub
If Col>= 1 And Col<= 7 Then
With spdTMSR020
.Col= 1
.Col2=.MaxCols
.Row= Row
.Row2= Row
.Value= IIf(.Value= 0, 1, 0)
.BlockMode= True
If.Value= 0 Then
' If Row Mod 2= 0 Then
'.BackColor= RGB(245, 236, 233)
' Else
.BackColor= RGB(255, 255, 255)
' End If
.Col= 8
.Col2= 11
.Row= Row
.Row2= Row
.Protect= True
.Lock= True
Else
.BackColor= RGB(128, 255, 128)
.Col= 8
.Col2= 11
.Row= Row
.Row2= Row
.Lock= False
.EditMode= True
End If
.BlockMode= False
End With
End If
End Sub
spread3.0的选择按钮很脆弱，一不小心小红钩不见了，事件却没有触发。所以把边上的固定列都设为可选择状态。
4.关于背景色的设置。
Backcolor指定范围，设置背景色
SetOddEvenRowColor，设置奇数，偶数行的颜色。
本来背景色是粉红和白色相间的，但是单行变色判断和全体变色中产生问题，不得不改成全白的。
其根本原因是backcolor比SetOddEvenRowColor要强。Backcolor可以更改SetOddEvenRowColor设置的颜色，而SetOddEvenRowColor却无法改变Backcolor设定的颜色。
而当数据很多时，背景需要刷新时，用backcolor一行一行判断更改，画面会产生剧烈颤抖….
//----------------------------------
序号属性说明
1.MaxRows= 10设置总行数为10行
2.MaxCols= 5设置总列数为5列
3.ColHeaderRows= 2表头（列标题）行数为2
4.Row= SpreadHeader定位到表头（列标题）
5.Row=-1定位到行头（在设置列格式时使用）
6.ColWidth(1)= 16设置第1列的列宽为16
7.RowHeight(1)= 12设置第1行的行高为12
8.FontSize= 10"设置当前栏位的字体大小为10（如果.Row=-1，
则设置整列，下同）"
9.TypeHAlign= TypeHAlignRight设置文字水平对齐方式为右对齐
.TypeVAlign= TypeVAlignCenter设置文字垂直对齐方式为居中
10.CellType= CellTypeNumber设置为数字类型
11.TypeNumberDecPlaces= 2设置小数位数
12.TypeNumberShowSep= True设置千位分隔
13.SetText 2, 3,"test"设置第2列第3行的文本为"test"
14.GetText 2, 3, MyText将第2列第3行的值赋给变量MyText
15.Row= 3定位到第3行
16.Col= 2定位到第2列
17.Text="test"设置当前栏位的文本为"test"
18MyRow=.ActiveRow将当前行号赋值给变量MyRow
19.InsertRows 2, 1在第2行前插入1行
20.DeleteRows 2, 1"在第2行前删除1行（如果Spread是通过设置数据源
取得数据的话，则必须设置.DataSource= Nothing
才能删除）"
21.InsertCols 2, 1在第2列前插入1列
22.DeleteCols 2, 1在第2列前删除1列
23.AddCellSpan 3, 4, 2, 1从第3列第4行起合并单元格，跨度为2列1行
24.RowHeadersShow= False隐藏行标题
25.ColHeadersShow= False隐藏列标题
26.PrintMarginLeft= 1000打印时左边距=1000（包括预览）
27.PrintMarginTop= 1000打印时上边距=1000（包括预览）
28.OperationMode= OperationModeRow设置Spread的操作模式为行定位（共有6种模式）
29.DataSource= Rs设置Spread的数据源为Rs记录集
二、如何获得fpspread中三种状态的复选框单元格的值
spread中checkbox的用法
forpoint spreadsheet
列类别选择combo就可以了
spread的帮助文件中间搜索 CellType property, check box cells
//------------------------------------------------------
是这样的，我的webform上放了一个FpSpread控件，我想把行头变成checkbox样式，我的方法是在后台代码中定义：
FarPoint.Web.Spread.CheckBoxCellType celltype= new FarPoint.Web.Spread.CheckBoxCellType();
然后将此type赋给行头：
FpSpread1.ActiveSheetView.RowHeader.Cells[0,0].CellType=celltype;
我的问题是：1.如果我想用一个Button控制当点击Button时，如果CheckBox是选中状态，则在该中显示某某字符，但我不知道这种CheckBox的标识是什么，还有他的状态为选中或没选中返回值是什么？
2.还有其他方法吗?比如我用
FpSpread1.ActiveSheetView.RowHeader.Cells[0,0].Text="<Input id=\"nihao\" checked type=\"CheckBox\"/>"
遇到的困难和刚才一样。
请问怎么解决，多谢！
FpSpread1.columnsheader.cells(0,0).text="Check#"
//-------------------------------------------------------------
确定check所在的位置，然后直接判断FpSpread1.Sheets(0).Cells(1，6).Value是否为1，为1就是选中状态。我是这样的。
Public Sub SetCOLCheck(spd As vaSpread, ByVal lCol1 As Long, ByVal lCol2 As Long, _
Optional ByVal IsCenter As Boolean= True)
With spd
.Col= lCol1
.Col2= lCol2
.Row=-1
.BlockMode= True
.CellType= 10
.TypeHAlign= 0
.TypeCheckCenter= IsCenter
.BlockMode= False
End With
End Sub
我使用的是Spread，是这么填加的
//---------------------------------------------------------
1.BorderStyle:调整是否有边框默认为Fixed3D FixedSingle只有一条线 2.location x,y调整位置
3.horizontalScrollBarPolicy默认为Always横向向滚共条始终存在，就是AsNeeded条数超过显示就存在，否则不显示，Never始终没有滚动条
4.verticalScrollBarPolicy默认为Always纵向滚共条始终存在，就是AsNeeded条数超过显示就存在，否则不显示，Never始终没有滚动条
5.Enabled是否可以编辑
点击Sheets属性旁的按钮就会出现关于Sheets页里面属性的设置
1.selectionUnit默认为Cell运行的时候，点击单元格选中的只是一个单元 Column整列，Row整行
2.ColumnCount Spread表示数据的列数
3.RowCount Spread表示数据的行数
4.*OperationMode主要是MultiSelect，SingleSelect两种的区分SingleSelect只能选一行， MultiSelect可以择多行。
5.rows和Column下的Resizable可以将列和行的大小固定为不可调整
AddColumns(Integer i, Integer j)添加列，i是起始位置，j是列数。
AddRows(Integer i, Integer j)添加列，i是起始位置，j是列数。
.AddSelection(I,j,k,m)添加选中的cell
.ClearRange AddSelection(I,j,k,m,true)清空Spread.还有很多常用的方法。就往Spread中放值的方法
1.创建对应的DataSource Me.FpSpread1_Sheet1().DataSource=objDs.Tables(0)
Me.FpSpread1_Sheet1().Columns(0).DataField="id"
Me.FpSpread1_Sheet1().Columns(1).DataField="name“
**Id,和name是从数据库中查出来得数据结果集中数据表的字段名。
这样从数据库中查出的值就可放在相应的列上了。
2.也可单独往单元格中放值
Me.FpSpread1_Sheet1.Cells(0, 0).Value()=“123”
*放值时需要注意的是FpSpread1_Sheet1的起始位置是（0，0）
如果只有4行4列的话是不存在（4，4）这样的Cells的
Me.FpSpread1_Sheet1.ActiveRowIndex
可以取得选择的行的索引值，从0开始
FpSpread1_Sheet1.Cells(FpSpread1_Sheet1.ActiveRowIndex, 1)
可以取得选择的行对应单元格的值。
Dim cellButtonType As New FarPoint.Win.Spread.CellType.ButtonCellType
cellButtonType.Text="Detail"
Me.SpdYoteyi_Sheet1.ColumnHeader.Cells.Get(0, 3).BackColor= System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte))
With frm.SpdYoteyi.Sheets(0).Columns.Get(0).ForeColor= System.Drawing.Color.Red
.Columns.Get(3).ForeColor= System.Drawing.Color.Blue
.SetText(0, 0,"eld001")
.SetText(0, 7,"2006/04/20")
.SetText(0, 9,"会社AAA")
//动态添加列。
.AddColumns(10, 1)
.Columns.Get(10).Label="详しい"
.Columns.Get(10).CellType= cellButtonType
End With
//获得当前选中行
.SpdYoteyi.ActiveSheet.ActiveRowIndex()
//-------------------------------------------------
关于spread的一些基本操作
对日软件开发，经常会用到spread控件。使用中积累了一些经验，自己总结一下。
1．spread的cell
在spread的设计界面里可以设置cell的各种属性，和用惯的vb差不多。其实它的help写的挺详细的，刚开始日文不好看起来不方便，现在可以顺利理解了。Cell可以是checkbox,文字，数字，时间等等类型，可以只读，可读写，还可以设置背景色，边框等。和excel相像的。
2．Cell的读写模式。
1.只读
①全体只读
With spdTEMP
.Col= 1
.Col2=.MaxCols
.Row= 1
.Row2=-1'当spd里数据是0条时,.MaxRows会出错。用-1安全。
.Protect= True
.BlockMode= True
.Lock= True
.BlockMode= False
End With
②部分只读，设置行和列就可以
With spdTEMP
.Col= 2
.Col2= 5
.Row= 1
.Row2= 8
.Protect= True
.BlockMode= True
.Lock= True
.BlockMode= False
End With
2.一般写模式和覆盖写模式
一般写模式：.EditMode= True
覆盖写模式：.EditModeReplace= True
区别在于 1）光标模式不同，一般写为单个鼠标入力光标，覆盖写已有内容全选，替换输入。
2）当输入带有小数的数字时,覆盖写会自动跳到小数最末位，这可能是spread3.0在win2000下的bug吧。症状是第一遍输入10.23时会变成1.03，第二遍输入时就好了。试验了很多次，最后不得已换成一般写模式。
3.spread的click事件
①这是一段点击每行第三列时，自动全行copy数据的例子。
Private Sub spdTMSR160_Click(ByVal Col As Long, ByVal Row As Long)
Dim temp As String
Dim i As Integer
If Row= 0 Then Exit Sub
If spdTMSR160.Lock= True Then Exit Sub
With spdTMSR160
.Col= 3
.Col2=.MaxRows
.Row= Row
.Row2= Row
If Col= 2 And.Value<>"" Then
If MsgBox("3月の予算金额を全ての月にコピーしてもよろしいですか？", vbQuestion+ vbYesNo)= vbYes Then
.BlockMode= True
temp=.Value
For i= 1 To 11
.Col=.Col+ 1:.Value= temp
Next
End If
End If
.BlockMode= False
End With
End Sub
②这是一段有选择按钮的例子。选中时行变色，部分cell改变入力状态。
Private Sub spdTMSR020_Click(ByVal Col As Long, ByVal Row As Long)
If Row= 0 Then Exit Sub
' If spdTMSR020.Lock= True Then Exit Sub
If Col>= 1 And Col<= 7 Then
With spdTMSR020
.Col= 1
.Col2=.MaxCols
.Row= Row
.Row2= Row
.Value= IIf(.Value= 0, 1, 0)
.BlockMode= True
If.Value= 0 Then
' If Row Mod 2= 0 Then
'.BackColor= RGB(245, 236, 233)
' Else
.BackColor= RGB(255, 255, 255)
' End If
.Col= 8
.Col2= 11
.Row= Row
.Row2= Row
.Protect= True
.Lock= True
Else
.BackColor= RGB(128, 255, 128)
.Col= 8
.Col2= 11
.Row= Row
.Row2= Row
.Lock= False
.EditMode= True
End If
.BlockMode= False
End With
End If
End Sub
spread3.0的选择按钮很脆弱，一不小心小红钩不见了，事件却没有触发。所以把边上的固定列都设为可选择状态。
4.关于背景色的设置。
Backcolor指定范围，设置背景色
SetOddEvenRowColor，设置奇数，偶数行的颜色。
本来背景色是粉红和白色相间的，但是单行变色判断和全体变色中产生问题，不得不改成全白的。
其根本原因是backcolor比SetOddEvenRowColor要强。Backcolor可以更改SetOddEvenRowColor设置的颜色，而SetOddEvenRowColor却无法改变Backcolor设定的颜色。
而当数据很多时，背景需要刷新时，用backcolor一行一行判断更改，画面会产生剧烈颤抖….
//----------------------------------
序号属性说明
1.MaxRows= 10设置总行数为10行
2.MaxCols= 5设置总列数为5列
3.ColHeaderRows= 2表头（列标题）行数为2
4.Row= SpreadHeader定位到表头（列标题）
5.Row=-1定位到行头（在设置列格式时使用）
6.ColWidth(1)= 16设置第1列的列宽为16
7.RowHeight(1)= 12设置第1行的行高为12
8.FontSize= 10"设置当前栏位的字体大小为10（如果.Row=-1，
则设置整列，下同）"
9.TypeHAlign= TypeHAlignRight设置文字水平对齐方式为右对齐
.TypeVAlign= TypeVAlignCenter设置文字垂直对齐方式为居中
10.CellType= CellTypeNumber设置为数字类型
11.TypeNumberDecPlaces= 2设置小数位数
12.TypeNumberShowSep= True设置千位分隔
13.SetText 2, 3,"test"设置第2列第3行的文本为"test"
14.GetText 2, 3, MyText将第2列第3行的值赋给变量MyText
15.Row= 3定位到第3行
16.Col= 2定位到第2列
17.Text="test"设置当前栏位的文本为"test"
18MyRow=.ActiveRow将当前行号赋值给变量MyRow
19.InsertRows 2, 1在第2行前插入1行
20.DeleteRows 2, 1"在第2行前删除1行（如果Spread是通过设置数据源
取得数据的话，则必须设置.DataSource= Nothing
才能删除）"
21.InsertCols 2, 1在第2列前插入1列
22.DeleteCols 2, 1在第2列前删除1列
23.AddCellSpan 3, 4, 2, 1从第3列第4行起合并单元格，跨度为2列1行
24.RowHeadersShow= False隐藏行标题
25.ColHeadersShow= False隐藏列标题
26.PrintMarginLeft= 1000打印时左边距=1000（包括预览）
27.PrintMarginTop= 1000打印时上边距=1000（包括预览）
28.OperationMode= OperationModeRow设置Spread的操作模式为行定位（共有6种模式）
29.DataSource= Rs设置Spread的数据源为Rs记录集
三、VB中的check1.value=是什么意思用法举例详细
check1.value=1表示CheckBox控件被点选状态，=0则表示未被点选。
选择CheckBox控件后，该控件将显示X，而清除CheckBox控件后，X消失。该控件可用来提供True/False或者Yes/No选项。组中可以使用CheckBox控件显示多项选择，从而可选择其中的一项或多项。也可以通过对Value属性编程设置CheckBox的值。
value的设置值为：
CheckBox控件－0是没有检查（缺省值），1为已检查，和2为变灰（变暗）。
文章到此结束，如果本次分享的复选框checkbox的三种状态_checkbox选中状态和如何获得fpspread中三种状态的复选框单元格的问题解决了您的问题，那么我们由衷的感到高兴！
