ＶＢ实验课编程技巧.doc

ＶＢ实验课编程技巧.docVB实验课编程技巧
【摘要】本文在VB实验课的角度,为使学生更加深入地掌握编程技能,介绍了几个常用和典型的编程技巧。Visual Basic利用可视化技术进行编程,避免了面向过程语言的许多细节。因此,学生比较容易掌握VB程序设计的基本知识。就VB实验课而言,应当尽可能多的进行编程的练****本文介绍几个较为典型的编程技巧,希望能对学****VB的同学有所帮助。
【关键词】 VB 实验课编程技巧

一、创建自定义的光标

在设计一个应用程序时,Visual Basic许多控件的MousePointer属性允许程序员在预先定义好的若干个鼠标光标形状之中任选其一。但在应用程序中,有时候希望显示一个不同于预定义形状的光标。那么可以添加代码来改变控件的MouseMove和DragOver事件。下面用实例来说明当鼠标指针移动到一个控件上时,如何改变成不同的形状。
首先创建窗体Form1。在Form1上添加一个文本框控件Text1。在Text1控件的DragIcon属性的设置对话框中选择一个指针形状(.ICO文件)。
将如下代码添加到Text1的MouseMove事件中:
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
1 'icon on
End Sub
将如下代码添加到Form1的DragOver事件中:
Private Sub Form_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
0 'icon off
End Sub
运行此程序。将鼠标指针移动到该文本框控件上时,;将鼠标指针离开该控件时,光标则会自动恢复为默认的形状。
其他控件也可以如此设置,包括没有MousePointer属性的控件。

二、在窗体上单击鼠标右键弹出一个快捷菜单

在操作系统和应用软件的视窗中,点鼠标右键时,会弹出一个快捷选单。Visual Basic程序里也可以实现类似的功能。
首先,利用VB的菜单编辑器(Menu Editor)编辑所希望弹出的菜单及子菜单,并将主菜单的Visible属性设置为False,将其以下各级菜单的Visible属性设置为True。
假设主菜单名为“文件”,一级下拉菜单包括“新建”、“打开”、“关闭”三个菜单项。在窗体Form1(也可以是任意控件)的MouseDo-MouseDoon Dialog Control ”,完成加载工作;然后画一个PictureBox,采用默认名字Picture1,再在Picture1上面画一个PictureBox,默认名字为Picture2,设置:=TRUE;接着,加上水平和垂直滚动条,默认名字分别为:HScroll1,VScroll1;加载图形到Picture2上;最后,在窗体中引入其它控件:一个按钮(mand),默认名为mand1和一个“Microsoft mon Dial