写了一个数据库程序,有两个问题请教:
1,如何在用户点击MSHFlexGrid之后将用户点击的那一行用别的颜色反显出来,以便让用户看清自己选中的是哪一行?
2,程序做好之后我用visual studio 6.0 tools中的package and deployment wizard工具将整个程序做成安装包,然后安装在本机测试。别的一切正常,就是登录界面中的“确定”“取消”两个按键总是只显示“确”和“取”,另一个字则看不到。一定要点击下去后才显示出来。这个问题改如何解决?
请大虾指点
1,如何在用户点击MSHFlexGrid之后将用户点击的那一行用别的颜色反显出来,以便让用户看清自己选中的是哪一行?
2,程序做好之后我用visual studio 6.0 tools中的package and deployment wizard工具将整个程序做成安装包,然后安装在本机测试。别的一切正常,就是登录界面中的“确定”“取消”两个按键总是只显示“确”和“取”,另一个字则看不到。一定要点击下去后才显示出来。这个问题改如何解决?
请大虾指点
private sub MSHFlexGrid_Click()
with MSHFlexGrid
.row = .rowsel
.backcolorsel = "颜色"
end with
end sub
2、
没有看明白
或者你把command加大点试试vbBlue
vbRed
vbBlack
&H8000000D
Private Sub flexgrid_EnterCell()
'*将当前行改变颜色
Dim i As Integer
Dim iCol As Integer
iCol = Flexgrid.Col
For i = Flexgrid.FixedCols + 1 To Flexgrid.Cols
Flexgrid.Col = i - 1
Flexgrid.CellBackColor = &HFFFFC0
Next i
Flexgrid.Col = iCol
End SubPrivate Sub flexgrid_LeaveCell()
'*将当前行改变颜色
Dim i As Integer
Dim iCol As Integer
If Flexgrid.Row = 0 Then
Exit Sub
End If
iCol = Flexgrid.Col
For i = Flexgrid.FixedCols + 1 To Flexgrid.Cols
Flexgrid.Col = i - 1
Flexgrid.CellBackColor = vbWhite
Next i
Flexgrid.Col = iCol
End Sub2,将两个按钮的的宽度加大试试
///
不是可以整列選取,自動反白嗎?2,程序做好之后我用visual studio 6.0 tools中的package and deployment wizard工具将整个程序做成安装包,然后安装在本机测试。别的一切正常,就是登录界面中的“确定”“取消”两个按键总是只显示“确”和“取”,另一个字则看不到。一定要点击下去后才显示出来。这个问题改如何解决?
////
還有種情況,但是可能遇見的人會很少,那就是系統設置,在控制面板中間請注意他的地區設置。
這是對於在英文或者繁體系統下經常出現的。
当前活动单元更改到一个不同单元时发生。语法Private Sub object_EnterCell()EnterCell 事件的语法包含如下部分:部分 描述
object 一个对象表达式,其值为“应用于”列表中的一个对象。
说明在一个固定行上单击将引起这个事件在那一行的第一个不固定列上发生。拖动鼠标经过一个单元格不会引起这一事件的发生。LeaveCell 事件
当前活动单元变更到一个不同的单元之前立即发生。语法Private Sub object_LeaveCell()LeaveCell 事件的语法包含如下部分:部分 描述
object 一个对象表达式,其值为“应用于”列表中的一个对象。
说明这一事件用于验证一个单元的内容。当焦点移动到一个不同的控件时这一事件不发生。
还有个小问题,我的MSHFlexGrid的第一行显示的是标题,我希望用户选中标题行的话标题行并不反显,反显的依然是先前选中的那一行,应该怎么做啊?