收录日期:2019/04/24 20:52:10 时间:2016/05/30 10:05:06 标签:VB基础类
'当鼠标移动到MSHFLEXGRID控件的第一列时:
1.光标变成自定义“手”型;
2.CELL单元第一列4行的单元格的字变成兰色并加下划线;
鼠标移开时又恢复到原状。
下面这段代码基本实现了这个效果,但是当鼠标单击时,鼠标会不停的闪烁而且往上跳,无法定位到单元格。请问各位高手这个问题该如何解决?

Private Sub hfgMSHFlexGrid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)  

If hfgMSHFlexGrid.MouseCol = 0 Then
   Set hfgMSHFlexGrid.MouseIcon = LoadPicture("hand.cur")
      hfgMSHFlexGrid.MousePointer = 99
      Dim i As Integer
    For i = 1 To 4
     hfgMSHFlexGrid.Row = i
     hfgMSHFlexGrid.Col = 0
     hfgMSHFlexGrid.CellForeColor = vbBlue
     hfgMSHFlexGrid.CellFontUnderline = True
    Next i
  
Else
    hfgMSHFlexGrid.MousePointer = flexDefault
    For i = 1 To 4
     hfgMSHFlexGrid.Row = i
     hfgMSHFlexGrid.CellForeColor = vbDefault
     hfgMSHFlexGrid.CellFontUnderline = 0

   Next i
End If
End Sub



100求數据更新和分頁的問題! 哪位有空讲一下ejb,远程接口,home接口,企业bean,这间是怎么调用的? 关于自己建立了一个pas文件,但是出现错误 excel读写问题 88分求一常用源代码!!! dbcombobox 的奇怪问题 想了解软件加密解密方面的知识。。。。 INPUT type=text onChange 一问(IE) 请教数据类型转换!(LPSTR->BYTE)紧急求救中。。。 物业给了我网关:192.168.123.254 IP:192.168.123.56 这样的是不是不能做为服务器?? SmartUpload使用问题405 HTTP method POST is not supported by this URL 关于判断数据类型的的问题? dataGrid加载数据后,由于太宽,页面显示不下,如何在它下面产生滚动条? 关于回车换行的问题! 为什么定义key=#13回车键没用? 数据库 请问一下关于键盘事件的问题 高手请进。。。。;有点难度的问题。(在线等待)。 2004年的考研成绩,260分,能否直接面试软件学院? 求struts连接数据库的代码 (50分)Eclipse的使用手册之类的东西能否MAIL一份给我了,谢谢,收到就给分!!! g++下的编程,FILE是什么文件类型,main()中argc,argv是什么意思? 傻傻的问,怎么结帖啊 asp如何获取文件域里上传的文件? 问:spy++是干什么的? 向大家请教一个关于Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB)的问题。谢谢 查询? 98的网络问题! DIRECTPLAY 有人用过吗〉有些问题, 多少分都给!! 怎么用xml来实现内容的管理