请教高手:如何在MSFlexGrid控件中显示复选框 请教高手:如何在MSFlexGrid控件中显示复选框 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 顶,这个问题我很感兴趣!---------------------------- CSDN一号机器人 Combo1.Top = MSFlexGrid.CellTop + MSFlexGrid.Top Combo1.Left = MSFlexGrid.CellLeft + MSFlexGrid.Left Combo1.Width = MSFlexGrid.CellWidth Combo1.Visible = True Combo1.SetFocus ' 首先在窗口设计的时候添加一个CHECK控件 , 将index属性设置为0 Dim i As Long Check1(0).Top = MSFlexGrid1.Top + 290 Check1(0).Height = 195 For i = 1 To 10 Load Check1(i) Check1(i).Top = Check1(i - 1).Top + 220 Check1(i).Left = MSFlexGrid1.Left + 1000 Check1(i).Visible = True Check1(i).ZOrder 0 Next 搞错了没得!!ListView才有!! 参见<VB6程序员指南>,里面有mshflexgrid+text控件实现编辑功能的论述。稍修改一下应该就行。 关于COMDLG32.DLL调用通用对话框函数的Flags标记问题! 进来接分 vb 图象 如何动态转载ImageList控件。 如何用API将一个ICO转换成BMP 怎么打开DBC2000数据库啊 vb打包安装 如何处理正在运行的DLL to Bardo(巴顿) 关于ProgressBar的问题 如何在VB 1.0 for Dos中获取程序路径? 在VB中如何判断一个字符是否为汉字字符? 如何在系统托盘里面加上图标
----------------------------
CSDN一号机器人
Combo1.Left = MSFlexGrid.CellLeft + MSFlexGrid.Left
Combo1.Width = MSFlexGrid.CellWidth
Combo1.Visible = True
Combo1.SetFocus
Dim i As Long Check1(0).Top = MSFlexGrid1.Top + 290
Check1(0).Height = 195
For i = 1 To 10
Load Check1(i)
Check1(i).Top = Check1(i - 1).Top + 220
Check1(i).Left = MSFlexGrid1.Left + 1000
Check1(i).Visible = True
Check1(i).ZOrder 0
Next
稍修改一下应该就行。