电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

常见改变MSHFLEXGRID的颜色的方法VIP免费

常见改变MSHFLEXGRID的颜色的方法_第1页
1/10
常见改变MSHFLEXGRID的颜色的方法_第2页
2/10
常见改变MSHFLEXGRID的颜色的方法_第3页
3/10
如何将选中的MSHFlexGrid 一行高亮显示 高亮显示要设置颜色 Private Sub hflexgrid_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 = &HFFFFC0 Next i_Col Hflexgrid.col = c_col End If End Sub Private 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 mshflexgrid 怎么改变某一行的背景色和字体颜色? Private Sub setColor(msfg As MSFlexGrid, row As Long, color As Long, bkcolor As Long) For i = 1 To msfg.Cols - 1 msfg.row = row msfg.Col = i msfg.CellForeColor = color '前景色 msfg.CellBackColor = bkcolor '背景色 Next End Sub Private Sub Command1_Click() setColor MSFlexGrid1, 3, &HFFFF&, &H8000000D End Sub Private Sub Form_Load() MSFlexGrid1.Rows = 5 MSFlexGrid1.Cols = 5 For i = 1 To 4 For j = 1 To 4 MSFlexGrid1.TextMatrix(i, j) = j Next Next End Sub 让MSHFlexGrid 只能被选中一行的另一方法 1、放置一个 HSB1 (HScrollBar) ,MSHFlex Grid1(MSHFlex Grid) 2、如下代码: '--------------------------------------------------------- Priv ate Su b Form_Load() If MSHFlex Grid1.Cols then HSB1.Min=1 HSB1.Max =MSHFlex Grid1.Cols End If End Su b '--------------------------------------------------------- Private Sub HSB1 _Change() If MSHFlexGrid1.Cols then MSHFlexGrid1.Row = HSB1 .value MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1 End If End Sub '--------------------------------------------------------- Private Sub MSHFlexGrid1_Click() If MSHFlexGrid1.Cols then HSB1 .value = MSHFlexGrid1.Row End If End Sub 怎么改变MSHFlex...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

常见改变MSHFLEXGRID的颜色的方法

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部