不能选多行,包括fixcol
解决方案 »
- 怎用代码将html格式转化为word并保存
- 如何得到SHELL被调用程序的句柄?
- 使用ADO连接mysql,select得到的记录集合为什么RecordCount=-1?
- !!---------------安装程序的开发-----------!!!
- 这样写有错吗?
- 如何画出虚线呢????????!!!!!!!
- 编一个小程序真麻烦,但终于只剩下最后一个打包的问题
- 想实现如下功能,微软的Slider控件好像不是很好用,请问各位如何实现比较好?有现成的控件吗?50分相送!
- 请教各位哪里有MSDN中文版下载呢
- 怎么给Access数据库文件加密?(用代码)
- ACCP教学怎么样啊,有用吗,指教!
- 一个关于在VB监视DOS的问题!100分
'单击某一行时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = Hflexgrid.Col
If c_col > 0 Then
For i_Col = 0 To Hflexgrid.Cols - 1
Hflexgrid.Col = i_Col
Hflexgrid.CellBackColor = &HFFFFC0 '变成蓝色
Next i_Col
Hflexgrid.Col = c_col
End If
End SubPrivate Sub hflexgrid_LeaveCell()
'当某一行失去焦点时,改变该行颜色
Dim i_Col As Integer
Dim c_col As Integer
c_col = Hflexgrid.Col
For i_Col = 0 To Hflexgrid.Cols - 1
Hflexgrid.Col = i_Col
Hflexgrid.CellBackColor = vbWhite '变成白色
Next i_Col
Hflexgrid.Col = c_col
End Sub
tmprow=grid.rowsel
grid.row=tmprow
For i = 1 To grid.Cols - 1
grid.Col = i: gridE.CellBackColor = vbBlue
Next i
MouseDown中上锁
MouseUp中解锁