请各位帮帮忙,我最近遇到一个问题:如何在msflexgrid控件的每行中加入一个复选框???急急急!!!!!!
解决方案 »
- VB execl导入ACCESS(新手)
- 用了10分钟做了个小玩意:字符画转换
- 请教当前窗体的控件名称按基本名称+数字的方式命名,如何通过程序获得当前控件名称中数字最大的控件的名称呢?
- 这个数据串怎么提取?
- 为什么不能最小化?
- 怎样清空单选按钮
- 怎么把子类应用到全局或特定的应用程序或任意非本程序窗口
- 特别推荐: EtCell报表控件/WEB插件 http://www.etcell.com/
- 表中部分字段的记录加了密?如何恢复呢?航天金税这个大SB!
- 在ifix中 添加DTpicker 控件 ,用来显示时间 运行提示 microsoft access driver 参数不足, 期待是1
- 數據庫庫存方面的問題!
- 得到字体的文件名
Check1.Visible = False
MSFlexGrid1.Cols = 10
MSFlexGrid1.Rows = 10
End SubPrivate Sub MSFlexGrid1_EnterCell()
MSFlexGrid1.CellBackColor = vbBlue
MSFlexGrid1.CellForeColor = vbWhite
Check1.Width = MSFlexGrid1.CellWidth
Check1.Height = MSFlexGrid1.CellHeight
Check1.Move MSFlexGrid1.Left + MSFlexGrid1.CellLeft, MSFlexGrid1.top + MSFlexGrid1.CellTop, MSFlexGrid1.CellWidth
End SubPrivate Sub MSFlexGrid1_LeaveCell()
MSFlexGrid1.CellBackColor = vbWhite
MSFlexGrid1.CellForeColor = vbBlue
End SubPrivate Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Check1.Visible = True
End SubPrivate Sub Check1_Change()
MSFlexGrid1.Text = Check1.Text
End Sub
或者找一个叫FlexCell的控件
下载地址:http://fibrlink.onlinedown.net/soft/892.htm
我的问题是:
我要进入界面后,在msflexgrid的每一行上都有一个复选框