当鼠标放在一个lable上时怎样换为手型指针,我没找到有手型的呀.

解决方案 »

  1.   

    手型好像是没有的.
    这样,你先把这个label.pointer=99label1.mouseicon=手型图标文件名
      

  2.   

    手型图标文件名
    去网上down一个
      

  3.   

    先去找一个手型图标Label1.MousePointer = 99
    Label1.MouseIcon = "d:\hand.ico"
      

  4.   

    Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.MousePointer = 99
    Label1.MouseIcon = LoadPicture("picture\H_POINT.CUR")
    End Sub
      

  5.   

    粘贴下列代码到 form 中 (画个 label1) hand.cur为一个光标文件(若需要给个email,mailto:[email protected])Option Explicit
    Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Label1.MousePointer = 99
        Label1.MouseIcon = LoadPicture("E:\ICON\Hand.CUR")End Sub