vb编程的必备技巧

　　对编程者来说， vb很容易上手， 但要深化、灵活地驾驭它还要下一番功夫。 笔者在这里介绍几个较为典型的编程技巧， 希望能对广大vb喜好者有所协助。

　　一. 怎样创建自定义的光标

　　1. 当在设计一个运用程序时， visualbasic允许程序员将许多控件的mousepointer属性设计成12个事后定义好的鼠标光标之一。 然而， 有些程序员或许会希望显示一个预定义外形之外的光标。 本文说明如何创建一个不同的鼠标指针(光标)， 包括为一个没有mousepointer属性的控件创建光标。

　　要在visualbasic运用程序中将光标(鼠标指针)改变成个不同的外形， 可以添加代码来改变希望监视的控件的mousemove和dragover事件。

　　mousemove事件所包含的代码用于触发该控件的drag方法。 当鼠标在被选中的控件上移动的时候， 轮番显示新的鼠标指针。 当鼠标指针分开该控件时， 则dragover事件被触发。 在visualbasic程序中， 可以重新复位此drag属性， 以便以前的鼠标指针能够被再次显示出来。

　　2. 上面的样例程序实现当鼠标指针移动到一个文件列表框控件上时， 将其改变成不同的外形。

　　首先采用缺省的方法树立form1。 在form1上添加一个文件列表框控件， 采用缺省的方法树立file1。 将file1控件的dragicon属性设置为所选择的. ico文件。

　　按下f5功能键执行此程序。 失掉的运转结果是：将鼠标指针移动到该文件列表框控件上时， 程序将把所选中的. ico文件作为缺省的鼠标光标;将鼠标指针分开该控件时， 光标则会自动恢复为缺省的外形。

　　VB编程二. 怎样在窗体上点鼠标右键产生一个弹出式选单(popupmenu)?

　　大家都知道， 在windows95/98/2000的桌面和许多流行软件的视窗中， 当我们点鼠标右键时， 会在鼠标的当前地位弹出一个快捷选单。 许多喜好编程的同学是不是也希望能在自己的程序里有相似的功能呢?其实， 这并不困难。 笔者经过一番努力， 在vb下找出一个通用的方法， 供大家分享。

　　要实现上述功能， 需分两个步骤：

　　1. 应用vb的选单编辑器(menueditor)编辑你希望弹出的选单及子选单， 注意， 要将选单的visible属性设置为:false。

　　2. 在窗体(form1)的mousedown事件中编写程序， 来激发编辑好的选单， 假设选单名为popmenu， 程序源码如下：

　　上述方法是针对窗体的， 我们也可以针对恣意控件，最好的左旋肉碱牌子 用鼠标右键点击控件时， 也弹出一个快捷选单。 方法也很复杂， 只要把上述代码放到相应控件的mousedown事件中， 就可以了。

　　三. 怎样动态地在窗体上判断某区域内能否有控件存在?

　　在笔者的一个小程序中， 想在窗体的某个区域输入数据， 这就要求在这个区域内不能有其他控件存在， 那么， 怎样才干知道在窗体的某个区域内， 能否有控件存在呢?

　　为了判断在窗体的某个区域中， 能否含有控件， 我们可以应用以下vb程序来实现：

　　注：(x1, y1)和(x2, y2)分别为选定矩形区域的左上角和右下角点的坐标值。

　　该程序经过计算窗体上一切控件的四个角的地位来判断控件能否与选定区域相交， 并前往相交的控件。

　　四. 获取和修正计算机名字的方法