43、Visual Basic实用工具开发指南

Visual Basic实用工具开发指南

1. 引言

在Visual Basic中创建实用小工具非常容易。这些工具不仅能在其他Visual Basic应用程序开发过程中提供帮助，还能帮助开发者更好地学习Visual Basic编程。本文将介绍三个实用工具：MousePtr应用程序、ShowTell应用程序和WindChil应用程序。

2. MousePtr应用程序

2.1 功能概述

MousePtr应用程序是一个方便的工具，可用于快速查看16种标准鼠标指针，并将任何图标文件加载并显示为鼠标指针。

2.2 操作步骤

• 选择鼠标指针选项时，鼠标指针会相应改变。
• 若要使用图标作为鼠标指针，选择“99 - Custom Icon”设置。首次选择该选项时，会弹出“Select An Icon File”对话框，可选择要显示的图标。后续选择该设置将显示相同的自定义图标。若要更改显示的图标，点击“Select Icon”按钮，在对话框中选择不同的图标。

2.3 代码分析

以下是MOUSEPTR.FRM的代码：

Option Explicit
Private Sub cmdSelect_Click()
    `Prompt user for icon filename
    dlgOne.DialogTitle = "Select an Icon File"
    dlgOne.Filter = "Icon(*.ico)|*.ico"
    dlgOn