必威注册电子书籍教程中心网文荟萃客户留言繁體中文
设为首页
加入收藏
联系必威注册
您当前的位置:92动力网 -> 教程中心 -> 编程经验 -> Visual Basic -> 教程内容 退出登录 用户管理
栏目导航
· Visual Basic· Delphi
· Visual C++· C++ Builder
· JAVA DotNet· 其他相关
热门教程
· 如何在Visual Basic...
· 使用Visual Basic操...
· 使用VB6.0设计Activ...
· VB动态调用外部函数...
· 建立一个程序员自己...
· 如何编写高质量的VB...
· [图文] 为更新到Visual Bas...
· 再谈在VB中调用VC++...
· 用VB语言编程实现JP...
· 用DTS实现SQL数据库...
相关教程
· 使用Windows消息控制...
· 让XP使用Win2000的搜...
· 使用Windows防火墙十...
· 如何在C#中使用Win3...
· 使用WinInet编写发送...
· [组图] 让你学会使用WinZip...
· 使用WinZip妙法一则...
· 使用Windows9x更方便...
· 让Windows XP使用Wi...
· [组图] 拒绝使用Winzip 让W...

使用Win95的动画光标
作者:佚名聽聽来源:本站整理聽聽发布时间:2005-12-28 23:51:27聽聽发布人:admin

减小字体 增大字体

-在Windows 95系统中具有一个Windows 3.x所不具备的特性?D?D支持动画的光标文件。你可以在Windows 95目录中的Cursors子目录下看到这些动画的光标文件,它们均具有扩展名*.ANI。在程序中使用相应的动画光标能够极大地改善程序的外观,本文介绍了如何在你的Visual Basic应用程序中使用Windows 95所附带的动画光标文件。

使用动画光标文件

----要在Visual Basic的应用程序中使用Windows 95所附带的动画光标,你需要使用下列Windows 应用程序编程接口(API)函数:

  • LoadCursorFormFile,用于从磁盘上载入光标文件;

  • ClipeCursor,用于将光标限制在一个固定的矩形区域内;

  • GetWindowRect,用于获取该矩形区域,在下面的样例程序中就是程序主窗体的本身;

  • SetClassLong,用于设置和提取窗口类的数据,以使光标被显示在窗体上;

  • GetClassLong函数,在退出应用程序之前,需要将应用程序的缺省光标设置回程序执行以前的光标,所以需要在程序运行时首先对以前的光标状态进行备份,这项工作由该函数来完成;

  • DestroyCursor,在正确显示了光标之后,需要使用该函数来取消载入的光标。

样例程序

----下面的样例程序将在窗体区域内显示出C:WIN95CURSORS目录下的APPSTART.ANI动画光标文件,如果你的Windows 95路径不同的话,你需要修改样例程序以正确显示出动画光标。

  1. 在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。

  2. 在Form1上创建一个命令按钮控件,采用缺省的方法建立Command1。将它的Caption属性设置为“显示动画光标”。

  3. 在Form1上创建第二个命令按钮控件,采用缺省的方法建立Command2。将它的Caption属性设置为“恢复缺省光标”。

  4. 创建一个新的模块,采用缺省的方法建立Module1.Bas。将如下的声明,类型和常量语句添加到Module1.Bas的通用声明部分中:


    Option Explicit
    Type RECT
    聽聽聽聽聽聽聽 Left As Long
    聽聽聽聽聽聽聽 Top As Long
    聽聽聽聽聽聽聽 Right As Long
    聽聽聽聽聽聽聽 Bottom As Long
    End Type
    Public Const GCL_HCURSOR = (-12)
    Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
    Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
    Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA"
    (ByVal lpFileName As String) As Long
    Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,
    lpRect As RECT) As Long
    Declare Function SetClassLong Lib "user32" Alias "SetClassLongA"
    (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Declare Function GetClassLong Lib "user32" Alias "GetClassLongA"
    (ByVal hwnd As Long, ByVal nIndex As Long) As Long

    注意上面的声明语句需要书写在一行内。

  5. 将如下的语句添加到Form1的通用声明部分中:


    Option Explicit
    Dim mhBaseCursor As Long
    Dim mhAniCursor As Long

  6. 将如下的代码添加到Form1的Form_Load事件中:


    Private Sub Form_Load()
    聽聽聽 Dim lResult As Long
    聽聽聽
    聽聽聽 mhBaseCursor = GetClassLong((Me.hwnd), GCL_HCURSOR)
    End Sub

  7. 将如下的代码添加到Command1的单击事件中:


    Private Sub Command1_Click()
    聽聽聽 Dim lResult As Long
    聽聽聽 Dim RT_FormArea As RECT
    聽聽聽
    聽聽聽 mhAniCursor = LoadCursorFromFile("c:win95cursorsappstart.ani")
    聽聽聽
    聽聽聽 lResult = SetClassLong((Me.hwnd), GCL_HCURSOR, mhAniCursor)
    聽聽聽
    聽聽聽 lResult = GetWindowRect((Me.hwnd), RT_FormArea)
    聽聽聽
    聽聽聽 lResult = ClipCursor(RT_FormArea)
    End Sub

  8. 将如下的代码添加到Command2的单击事件中:


    Private Sub Command2_Click()
    聽聽聽 Dim lResult As Long
    聽聽聽 Dim RT_ScreenArea As RECT
    聽聽聽
    聽聽聽 RT_ScreenArea.Top = 0
    聽聽聽 RT_ScreenArea.Left = 0
    聽聽聽 RT_ScreenArea.Bottom = Screen.Height Screen.TwipsPerPixelX
    聽聽聽 RT_ScreenArea.Right = Screen.Width Screen.TwipsPerPixelY
    聽聽聽 lResult = ClipCursor(RT_ScreenArea)
    聽聽聽 lResult = SetClassLong((Me.hwnd), GCL_HCURSOR, mhBaseCursor)
    聽聽聽 lResult = DestroyCursor(mhAniCursor)
    End Sub

    ----通过按下F5键来运行该程序,单击“显示动画光标”命令按钮,则在窗体的范围内光标变成为APPSTART.ANI光标,并且光标被限制在窗体的范围内。单击“恢复缺省光标”命令按钮,则窗体中的光标被恢复为缺省的光标。注意,在退出该样例程序之前,需要单击“恢复缺省光标”命令按钮,否则将不能在系统中正确进行其它操作。



[] [返回上一页] [打 印] [收 藏]
∷相关教程评论∷    (评论内容只代表网友观点,与本站立场无关!) [更多评论...]
关于本站 - 网站帮助 - 广告合作 - 下载声明 - 网站地图 - 管理登录
Copyright 2019 必威注册. All Rights Reserved .
浙ICP备05047688号