1、VB.Net设置Excel中单元格字体
sheet.Range(sheet.Cells(row, stp), sheet.Cells(row, stp)).Font.Name = "Wingdings 2"
设置行row，列stp 的字体样式为[Wingdings 2]
2、Wingdings 2 字体为微软自带的图形字体
例如：£代表未选中的CheckBox，R代表选中的CheckBox
3、清空表数据
truncate table tablename
4、表单控件的值取得
5、10进制转为RGB颜色
inputColorIntVal为10进制颜色代码
mDef_GridInputColor = ColorTranslator.FromHtml("#" & Convert.ToString(inputColorIntVal, 16))
RGB转10进制
(( 红 * 256) + 绿) * 256 + 蓝, 然后转为16进制计算器上的按发就是:红数字, *, 256, +, 绿数字, *, 256, +, 蓝数字, 十六进制