课堂实例第2章

《课堂实例第2章》由会员分享，可在线阅读，更多相关《课堂实例第2章（5页珍藏版）》请在金锄头文库上搜索。

1、案例2.1 聪明的按钮程序说明： 本例是一个小游戏，当鼠标指针移动到按钮上时，按钮即刻闪开。看演示设计方法： 按 钮的闪开是由鼠标移动（MouseMove）这一事件触发的。因此在按钮的MouseMove事件过程中编写能使按钮移动的代码即可完成次功能。查看源文件案例2.2 制作浮动按钮程序说明： 本例介绍如何在VB中制作一个浮动按钮。浮动按钮在通常状态下显示为文本或一个图形，当移动鼠标指针到它上面时，浮动按钮将呈现为凸起状；当按下鼠标左键时，浮动按钮将呈现为下沉状。看演示设计方法： 制作浮动按钮的思路是：舍弃我们通常使用的按钮控件，取而代之的是使用4条直线（使用直线控件）和一个标签来组成一个按钮

2、，4条直线围绕在标签的四周。这样就可以通过设置四条直线的颜色来产生按钮的凸起与下沉效果。查看源文件案例2.3 制作动态按钮程序说明： 本例是制作一个图片按钮，并且，按钮上的图片还会根据用户的操作，做出相应的变化。看演示设计方法： 有两种方法可以用来实现本例的功能。较容易想到的方法是利用按钮的Picture属性。即在程序运行时通过代码给按钮加载不同的图片来实现。另一种方法则较为巧妙，既然按钮在不同情况下只有两种外观形式，那么就创建两个大小完全相同的按钮，使它们分别具有一种外观形式，然后，将它们重叠放置在窗体上。这样，在代码中就可以通过控制它们的显示状态来模拟按钮的动态显示效果。查看源文件案例2.

3、4 创建只读文本框程序说明： 本例介绍如何在VB中创建只读文本框。看演示设计方法： 将文本框的Enable属性设置为Fasle，用户就不能编辑文本框中的内容了。但这样做就会产生新的问题，对于有滚动条的文本框，用户在不能编辑文本框中内容的同时，也不能通过滚动条来滚动文本框中的内容了。 要想实现使文本框控件中的文本不可编辑，可将文本框控件中的内容设置为只读状态，着可以通过使用API函数SendMessage来实现。SendMessage函数可以用来发送一个EM_SETREADONLY消息到文本框控件中，这将使文本框控件变为只读。查看源文件 案例2.5 设置文本框的滚动区域程序说明： 当文本框控件的

4、MultiLine属性被设置为True时，在该文本框中就可以输入多行文本。默认情况下，在整个文本框中都可以输入文本，输入内容超出文本框时文本将向上滚动。本例将多行文本框的可输入区域设置为它原来的上半部分。即当文本超出文本框的中线，文本就会滚动，而不会显示在下半部分。看演示设计方法： 在创建文本框控件时，它的客户区域被格式化为一个矩形（该区域就是输入文本的地方），可以给该控件发送一个EM_SETRECTNP消息，重新设置客户区域的位置及大小。查看源文件案例2.6 滚动文本框中的内容程序说明： 对于有滚动条的文本框，用户可以通过使用鼠标拖动滚动条中的滑动块来滚动文本框中的内容，也可以通过单击滚动条

5、的箭头来滚动文本框中的内容。本例则一反常态，使用按钮来滚动文本框中的内容。看演示设计方法： 当单击了文本框控件上的水平滚动条时，该消息就被发送到窗口，这样滚动条就开始响应用户的操作。我们已经知道，API函数SendMessage 可以向窗口发送消息。因此，可以在按钮的MouseMove事件过程中调用SendMessage函数，让它给窗口发送滚动滚动条的消息，这样就可以实现上述功能。查看源文件案例2.7 文本框的输入限制程序说明： 本例介绍如何在VB中创建具有输入限制的功能文本框。看演示设计方法： 本例的基本设计思想是：在单击“设置”按钮后，将用户输入的字符串记录下来；在第二个文本框中输入字符时

6、，先判断输入的字符是否存在所记录下来的字符串中。如果存在，则接受输入，否则取消输入。查看源文件案例2.8 实现UNDO功能程序说明： 大多数字处理软件，都有撤销功能，如Word、WPS2000等。本例介绍如何使VB中的文本框也具有撤销功能。看演示设计方法： 在Windows系统中有一条EM_UNDO消息，只要将该消息发送到文本框中，就能够取消文本框的最后一个编辑操作。查看源文件案例2.9 获取多行文本框信息程序说明： 本例将对多行文本框进行以下两个操作： 查看多行文本框中目前共有多少行文字和返回第N行的文字。看演示设计方法： 对于本例的情况，如果用VB自身的语句或函数来实现的话，是较繁琐的。如

7、果使用SendMessage函数完成上面两个任务的方法就非常简单，每个任务只需简单地发送一条消息给多行文本框即可，这两个消息分别为EM_GETLINECOUNT和EM_GETLINE。查看源文件案例2.10屏 幕 取 词程序说明： 本例介绍如何实现类似于金山词霸的屏幕取词功能。运行该程序，将鼠标指针移动到文本框内的某个单词上，则在窗体下方的标签中就会显示出该单词。看演示设计方法： 从本例的要求来看，输入信息是鼠标的位置，而输出信息是鼠标所在位置的单词。直接从鼠标的位置得到该位置的单词是很困难的。 通过SendMessage函数向RichTextBox控件发送EM_CHARFROMPOS消息，可

8、以将鼠标在RichTextBox控件中的位置信息转换为字符的位置信息。这样，以该字符为中心，向前向后检索该单词的其他字符即可。查看源文件案例2.11使列表框中不同项目显示不同的提示程序说明： 本例介绍如何使列表框中的不同项目显示出不同的提示。看演示设计方法： 本例要解决的问题是：当鼠标在列表框上移动时，能获取指针所在位置的项目索引号。这样，就可以依据该索引号为列表框的ToolTipText属性指定不同的值。这里，我们通过使用SendMessage函数向列表框发送消息来获取指针所在位置的项目索引号。查看源文件案例2.12 更换文本框的快捷菜单程序说明： 本例介绍如何通过编写程序更换文本框中的右键

9、快捷菜单。看演示设计方法： 本例需要执行两个操作，一是屏蔽文本框默认的快捷菜单；另一个是弹出自定义的快捷菜单。前者可以通过拦截单击右键消息来实现；后者则可以在文本框的MouseUp事件过程中使用PopupMenu方法来显示快捷菜单。查看源文件案例2.13 在窗体间拖动控件程序说明： 本例介绍如何实现在窗体之间拖动控件。运行本程序后，可将Command1按钮在窗体内拖动，也可将其拖动到另一个窗体中。看演示设计方法： 把要在窗体间拖动的控件分别放置在两个窗体上，且使它们的外观完全相同。当在窗体间拖动该控件时，则将源窗体中的控件置为不可见，将目标窗体中的控件置为可见，这样就好像控件真的被拖动了一样。

10、查看源文件案例2.14 在运行时使用代码生成控件程序说明： 本例介绍如何在运行时使用代码生成控件。看演示设计方法： 本例使用控件数组的方法来在程序运行时生成任意多个控件。这种方法需要事先在窗体上放置一个控件，并设置它的index属性为0。即该控件作为控件数组中的第一控件。查看源文件案例2.15 菜 单 标 记程序说明： 本例将讲解如何在菜单项的左边显示“”标记。看演示设计方法： 菜单控件的Checked属性用来决定是否在菜单项上显示“”标记。该属性的默认值为False，即不显示“”标记。如果设置为True，则显示“”标记。因此，本例的关键其实就是设置菜单控件的Checked属性。查看源文件案例

11、2.16 创建快捷菜单程序说明： 本例将介绍如何在VB中创建快捷菜单。看演示设计方法： 创建快捷菜单的基本方法是： （1）使用菜单编辑器创建出快捷菜单。 （2）在程序代码中使用PopupMenu方法显示快捷菜单。 （3）编写快捷菜单中菜单项的Click事件代码。查看源文件 案例2.17 创建位图菜单程序说明： 在通常的程序中，菜单项总是以文本方式显示，显得非常单调乏味。如果能够在菜单项中加入位图图形，则能极大美化程序的用户界面。本例将介绍如何创建含有位图的菜单项。看演示设计方法： 创建位图菜单其实非常简单，可以使用API函数SetMenuItemBitmaps来为菜单项添加位图。调用该函数时需要用到弹出菜单的句柄，以及要添加的位图。 弹出菜单的句柄可以使用API函数GetMenu与GetSubMenu来获得。位图则可以通过在窗体上放置图像框控件来提供。查看源文件 文档可能无法思考全面，请浏览后下载，另外祝您生活愉快，工作顺利，万事如意! /