MousePointer属性用来显示鼠标箭头的形状的。 可在C:/WINDOWS/Cursors 找到这些形状。
常数 值 描述 vbDefault 0 缺省值 vbArrow 1 箭头 vbCrosshair 2 十字线 vbIbeam 3 I 型标 vbIconPointer 4 图标 vbSizePointer 5 尺寸线 vbSizeNESW 6 上-左下尺寸线 vbSizeNS 7 垂-直尺寸线 vbSizeNWSE 8 左上-右下尺寸线 vbSizeWE 9 水-平尺寸线 vbUpArrow 10向上箭头 vbHourglass 11沙漏 vbNoDrop 12不允许放下 vbArrowHourglass 13箭头和沙漏;(仅在 32 位 Visual Basic 5.0 中使用) vbArrowQuestion 14箭头和问号;(仅在 32 位 Visual Basic 5.0 中使用) vbSizeAll 15 四向尺寸线;(仅在 32 位 Visual Basic 5.0 中使用) vbCustom 99 通过 MouseIcon 属性所指定的自定义图标
例:
Private Sub Form_Load() MousePointer = 11 Command1.MousePointer = vbArrowQuestionEnd Sub (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|