我是搞单片机的,为了搞调试,不得不用VB开发个工具,但是对VB太不熟了,请大家指点。
问题:
1、做在MsFlexGrid中添加数据的操作,让它的行的数量随着数据数量增加,焦点平时在最后一行;
2、鼠标单击或者双击某一行,焦点转移到此行,可以在当前行进行向下插入操作。
3、焦点行的背景颜色不同于其它行。
问题:
1、做在MsFlexGrid中添加数据的操作,让它的行的数量随着数据数量增加,焦点平时在最后一行;
2、鼠标单击或者双击某一行,焦点转移到此行,可以在当前行进行向下插入操作。
3、焦点行的背景颜色不同于其它行。
解决方案 »
- 请高手帮助诊断调用DLL的两种代码,高分相送,谢谢
- 如何提取系统时间,将其转换成特定格式?
- 求Vbctrls.reg文件
- 具有挑战性的问题,请问各位,怎么才能得到摄像头的图像流的RGB的三个值呢,这三个值应该是固定的,可以调出参数设置,但没有办法得到RGB值,
- 如何获知datagrid的行数和列数,不通过纪录集的recordcount来得到。
- 请教如何用ado以独占方式连接数据库?连接字符串怎么写?
- 如何打包VB程序?
- 怎么用VB做打印预览啊?(本人在线等待)
- 请问谁有播放rm文件格式与WMA文件格式的控件(最好是类)吗?
- 在以有的表中实时插入数据(ACCESS),如何实现?
- 如何获得图形的高和宽?
- 什么是EVB?
.rows=.rows+1
.row=.rows-1
.TopRow = .Row
end with2,好象不行3,Private Sub flexgrid_EnterCell() '单击某一单元时,改变该行颜色
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 = vbred
Next i_Col
Hflexgrid.col = c_col
End If
End Sub
Private Sub flexgrid_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