发布一款免费的GRID控件,该如何解决

发布一款免费的GRID控件
Yfgrid控件说明：
本Grid控件支持多Sheet、单元格合并、行列冻结、页面设置、打印（预览）等常规Grid操作，Grid内容保存为XML格式文件，采用OLE的方式导出EXCEL文件。目前没有表达式求值和图表功能，计划下一个版加入表达式求值。本Grid可以用于C/S或B/S程序的数据录入和报表打印部分，如果开发B/S程序，可以非常方便的使用AJAX技术进行报表填写、数据传送。
本Grid控件可以免费使用，不过免费版本在页眉上打印尚未注册字样。
本控件使用VC++开发，尚完善中，欢迎各位提出宝贵建议。
下面是控件支持的方法和事件，更详细的信息稍后提供。
控件下载地址：
http://www.yfsoft.cn/soft/yfgrid.rar
1、本控件支持的方法：
Sub   GetCurSheet(CurSheet   as   integer)

Sub   GetSelectRange(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long)

Sub   GetFocusCell(Sheet   As   Integer,   Col   As   Long,   Row   As   Long)

Sub   SetBgColor(heet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   BgColor   As   OLE_COLOR)

Sub   SetFgColor(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   FgColor   As   OLE_COLOR)

Sub   SetBorderAll(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetBorderLeft(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetBorderTop(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetBorderRightSetBorderRight(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetBorderBottom(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetInsideAll(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetInsideVertical(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)

Sub   SetInsideHorizontal(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Width   As   Integer)
Sub   SetFontName(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   FontName   As   String)

Sub   SetFontBold(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Bold   As   Integer)

Sub   SetFontItalic(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Italic   As   Integer)

Sub   SetFontUnderline(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Underline   As   Integer)

Sub   SetFontSize(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Size   As   Integer)

Sub   SetHorzAlign(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Align   As   Integer)

Sub   SetVertAlign(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Align   As   Integer)

Sub   MergeCell(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long)

Sub   UnMergeCell(Sheet   As   Integer,   Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long)

Sub   InsertCol(Sheet   As   Integer,   Col   As   Long,   ColCount   As   Long)

Sub   InsertRow(Sheet   As   Integer,   Row   As   Long,   RowCount   As   Long)

Sub   DeleteCol(Sheet   As   Integer,   Col   As   Long,   ColCount   As   Long)

Sub   DeleteRow(Sheet   As   Integer,   Row   As   Long,   RowCount   As   Long)

Sub   AppendSheet(SheetName   As   String,   ColCount   As   Long,   RowCount   As   Long)

Sub   DeleteSheet(Sheet   As   Integer)

Sub   SetFixedColRow(Sheet   As   Integer,   Col   As   Long,   Row   As   Long)

Sub   SaveToXmlFile(XmlFile   As   String)   As   Boolean

Function   SaveToXmlDOM(pUnknown   As   Unknown)   As   Boolean  
Function   SaveToXlsFile(XlsFile   As   String)   As   Boolean

Function   LoadFromXmlFile(XmlFile   As   String)   As   Boolean

Function   LoadFromXmlDOM(pUnknown   As   Unknown)   As   Boolean

Sub   SetCellText(Sheet   As   Integer,   Col   As   Long,   Row   As   Long,   CellText   As   String)

Sub   GetCellText(Sheet   As   Integer,   Col   As   Long,   Row   As   Long,   CellText   As   String)

Sub   GetRowCount(Sheet   As   Integer,   RowCount   As   Long)

Sub   GetColCount(Sheet   As   Integer,   ColCount   As   Long)

Sub   DeleteAllSheet()

Sub   SetRowFlag(Sheet   As   Integer,   Row   As   Long,   Flag   As   Long)

Sub   GetRowFlag(Sheet   As   Integer,   Row   As   Long,   Flag   As   Long)

Sub   GetSheetIndexBySheetName(Name   As   String,   Index   As   Integer)

Sub   GetSheetNameBySheetIndex(Index   As   Integer,   Name   As   String)

Sub   SetPrtPara(Sheet   As   Integer)

Sub   Print(Sheet   As   Integer)

Sub   PrintPreview(Sheet   As   Integer)

2、控件支持的事件
Event   SelectionChange(Col1   As   Long,   Row1   As   Long,   Col2   As   Long,   Row2   As   Long,   Sheet   As   Integer)

Event   SheetChange(Sheet   As   Integer)

Event   GotFocus()

Event   LostFocus()



[解决办法]
jf
[解决办法]
支持！！！
[解决办法]
友情up
[解决办法]
UP