我已经:
创建了一个窗体;
一个按钮控件(叫c)
一个picturebox控件(叫p)
希望能在鼠标移动到按钮控件上时可以把鼠标的指针改为一个自定义的图形。
已经在“p”控件的picture属性之中设定了我的图片的路径,是在属性窗口之中设定的,
是一个.bmp的手形图片。
Private Sub c_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
c.MousePointer = 99
c.MouseIcon = p.Picture
End Sub
现在的问题是运行的时候,如果把鼠标移动到按钮控件之上的时候会报错,说是无效的属性,或者是文件找不到。
如果换成是image控件也是一样的结果!
望得到大家的帮助,谢谢!!

解决方案 »

  1.   

    对了,改成这样也不行:
    Private Sub c_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    c.MousePointer = 99
    c.MouseIcon = loadpicture(p.Picture)
    End Sub
      

  2.   

    c.MouseIcon = p.Picture 改成 c.MouseIcon = 路径& 文件名
      

  3.   

    我现在的代码为:
    Private Sub c_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    c.MousePointer = 99
    c.MouseIcon = "c:\tupian\1.bmp"
    End Sub
    还是不能正常运行。。
    望能得到更多的帮助!谢谢!
      

  4.   

    向下面这样就行了:
    Private Sub c_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    c.MousePointer = 99
    c.MouseIcon = loadpicture("c:\tupian\1.bmp")
    End Sub
      

  5.   

    c.MousePointer = vbcustom
    c.MouseIcon = LoadPicture(App.Path & "\icon\addarc.cur")