各位帮忙看一个farpoint的问题，在线等，多谢！

tss1011 2009-04-24 06:06:41

请问farpoint有没有什么方法可以吧鼠标指针变成手指？现在在改的原始代码全是在vbscript 里面处理的大家帮忙给个方法当鼠标悬停的时候我需要把表格中的某一列变成手的形状。多谢

Sub Window_OnLoad()
frmGrid.grdData.ScriptEnhanced = True
'frmGrid.grdData.ReDraw =True
frmGrid.grdData.Lock = True
frmGrid.grdData.Protect = True
frmGrid.grdData.ColHeadersShow = True
frmGrid.grdData.BorderStyle = 0
frmGrid.grdData.GrayAreaBackColor = RGB(255,255,255)
frmGrid.grdData.BackColorStyle = 1
frmGrid.grdData.RowHeaderDisplay = 0
frmGrid.grdData.RowHeadersShow = 0
frmGrid.grdData.ShadowColor =<%=Session("slngShadowColor")%>
'frmGrid.grdData.ShadowColor =&H00D6CEC0&'&H00FFFFFF& ' hardcoded
frmGrid.grdData.ShadowText = &H000000
frmGrid.grdData.UserColAction = 1
frmGrid.grdData.MaxCols = 40
frmGrid.grdData.VisibleCols = 36
frmGrid.grdData.AutoSize = False
frmGrid.grdData.ScrollBarShowMax = True
frmGrid.grdData.ScrollBarExtMode = True
frmGrid.grdData.RestrictRows = True
frmGrid.grdData.CursorStyle = 2
frmGrid.grdData.ProcessTab = True
frmGrid.grdData.TextTip = 2
frmGrid.grdData.nobeep=true
frmGrid.grdData.ReDraw = True
frmGrid.grdData.FontName = "Verdana"
frmGrid.grdData.BorderStyle = 1'1
frmGrid.grdData.Appearance = 0'2

...全文