读书人

activex控件鼠标样式有关问题

发布时间: 2012-03-20 14:01:11 作者: rapoo

activex控件鼠标样式问题
问题描述:
用activex开发一个插件,插件中涉及图片的操作,在图片上画区域,这个区域可以移动,可以拉伸
我想在拉伸和移动的时候更改鼠标的样式
用了Me.MousePointer 属性,但是没有效果
同样的代码移植到窗体程序中可以实现
有没有达人碰到过这样的问题,求教了???

[解决办法]
Me的意思已经变了
[解决办法]
UserControl.MousePointer
[解决办法]

探讨
UserControl.MousePointer

[解决办法]
VB code
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%'过程功能:设置屏幕鼠标图形'功能描述:设置为动态光标'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%Public Sub subSetAniCursor(ByVal strCursorFile As String)    Cursor = LoadCursorFromFile(strCursorFile)    Screen.MousePointer = 2         '选一个不常用的光标类型    Cursor2 = GetCursor    HoldCursor = CopyIcon(Cursor2)    '如果第二个参数用OCR_NORMAL,则会把屏幕上默认的箭头光标替换为动画光标    Call SetSystemCursor(Cursor, OCR_CROSS)End Sub 

读书人网 >VB

热点推荐