ｖｂ实验课编程技巧

《ｖｂ实验课编程技巧》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、ＶＢ实验课编程技巧　　【摘要】本文在VB实验课的角度，为使学生更加深入地掌握编程技能，介绍了几个常用和典型的编程技巧。VisualBasic利用可视化技术进行编程，避免了面向过程语言的许多细节。因此，学生比较容易掌握VB程序设计的基本知识。就VB实验课而言，应当尽可能多的进行编程的练习。本文介绍几个较为典型的编程技巧，希望能对学习VB的同学有所帮助。　　【关键词】VB实验课编程技巧　　　　一、创建自定义的光标　　　　在设计一个应用程序时，VisualBasic许多控件的MousePointer属性允

2、许程序员在预先定义好的若干个鼠标光标形状之中任选其一。但在应用程序中，有时候希望显示一个不同于预定义形状的光标。那么可以添加代码来改变控件的MouseMove和DragOver事件。下面用实例来说明当鼠标指针移动到一个控件上时，如何改变成不同的形状。　　首先创建窗体Form1。在Form1上添加一个文本框控件Text1。在Text1控件的DragIcon属性的设置对话框中选择一个指针形状（.ICO文件）。　　将如下代码添加到Text1的MouseMove事件中：　　PrivateSubText1_M

3、ouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)　　Text1.Drag1'iconon　　EndSub　　将如下代码添加到Form1的DragOver事件中：　　PrivateSubForm_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)　　Text1.Drag0'iconoff　　EndSub　　运行此程序。将鼠标指针移动到该文本框控件上时，程序将把所

4、选中的.ICO文件作为默认的鼠标光标；将鼠标指针离开该控件时，光标则会自动恢复为默认的形状。　　其他控件也可以如此设置，包括没有MousePointer属性的控件。　　　　二、在窗体上单击鼠标右键弹出一个快捷菜单　　　　在操作系统和应用软件的视窗中，点鼠标右键时，会弹出一个快捷选单。VisualBasic程序里也可以实现类似的功能。　　首先，利用VB的菜单编辑器（MenuEditor）编辑所希望弹出的菜单及子菜单，并将主菜单的Visible属性设置为False，将其以下各级菜单的Visible属性设

5、置为True。　　假设主菜单名为“文件”，一级下拉菜单包括“新建”、“打开”、“关闭”三个菜单项。在窗体Form1（也可以是任意控件）的MouseDo-MouseDoonDialogControl6.0”，完成加载工作；然后画一个PictureBox，采用默认名字Picture1,再在Picture1上面画一个PictureBox，默认名字为Picture2，设置：Picture2.AutoSize=TRUE；接着，加上水平和垂直滚动条，默认名字分别为：HScroll1，VScroll1；加载图形到

6、Picture2上；最后，在窗体中引入其它控件：一个按钮（mand），默认名为mand1和一个“MicrosoftmonDialogControl”，默认名为monDialog1。具体代码如下：　　PrivateSubForm-Load()　　Picture2.Left=0：Picture2.Top=0：Picture2.in=0：HScroll1.Min=0：HScroll1.Min=0　　VScroll1.Max=Picture2.Height－Picture1.Height　　HScroll1

7、.Max=Picture2.ax〈0ThenHScroll1.Enabled=False　　IfVScroll1.Max〈0ThenVScroll1.Enabled=False　　EndSub　　PrivateSubmand-Click()　　OnErrorGoToErrExit　　monDialog1.Filter=“Bitmapfile(*.bmp)

8、*.bmp

9、AllFile(*.*)

10、*.*”　　monDialog1.FilterIndex=1：monDialog1.ShoonDialog1

11、.filename)　　VScroll1.Min=0：HScroll1.Min=0　　VScroll1.Max=Picture2.Height－Picture1.Height　　HScroll1.Max=Picture2.ax〈0ThenHScroll1.Enabled=False　　IfVScroll1.Max〈0ThenVScroll1.Enabled=False　　ErrExit:　　EndSub　　PrivateSubHScroll1-Change()　　Pi