职业教育论文-ＶＢ实验课编程技巧.doc

职业教育论文-实验课编程技巧【摘要】本文在VB实验课的角度，为使学生更加深入地掌握编程技能，介绍了几个常用和典型的编程技巧。VisualBasic利用可视化技术进行编程，避免了面向过程语言的许多细节。因此，学生比较容易掌握VB程序设计的基本知识。就VB实验课而言，应当尽可能多的进行编程的练习。本文介绍几个较为典型的编程技巧，希望能对学习VB的同学有所帮助。【关键词】VB实验课编程技巧一、创建自定义的光标在设计一个应用程序时，VisualBasic许多控件的MousePointer属性允许程序员在预先定义好的若干个鼠标光标形状之中任选其一。但在应用程序中，有时候希望显示一个不同于预定义形状的光标。那么可以添加代码来改变控件的MouseMove和DragOver事件。下面用实例来说明当鼠标指针移动到一个控件上时，如何改变成不同的形状。首先创建窗体Form1。在Form1上添加一个文本框控件Text1。在Text1控件的DragIcon属性的设置对话框中选择一个指针形状（.ICO文件）。将如下代码添加到Text1的MouseMove事件中：PrivateSubText1_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Text1.Drag1icononEndSub将如下代码添加到Form1的DragOver事件中：PrivateSubForm_DragOver(SourceAsControl,XAsSingle,YAsSingle,StateAsInteger)Text1.Drag0iconoffEndSub运行此程序。将鼠标指针移动到该文本框控件上时，程序将把所选中的.ICO文件作为默认的鼠标光标；将鼠标指针离开该控件时，光标则会自动恢复为默认的形状。其他控件也可以如此设置，包括没有MousePointer属性的控件。二、在窗体上单击鼠标右键弹出一个快捷菜单在操作系统和应用软件的视窗中，点鼠标右键时，会弹出一个快捷选单。VisualBasic程序里也可以实现类似的功能。首先，利用VB的菜单编辑器（MenuEditor）编辑所希望弹出的菜单及子菜单，并将主菜单的Visible属性设置为False，将其以下各级菜单的Visible属性设置为True。假设主菜单名为“文件”，一级下拉菜单包括“新建”、“打开”、“关闭”三个菜单项。在窗体Form1（也可以是任意控件）的MouseDown事件中编写如下代码：PrivateSubForm-MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=vbRightButtonThen文件.Visible=TruePopupMenu文件EndIfEndSub运行，在窗体上单击右键，会弹出快捷菜单，菜单项包括：“新建”、“打开”、“关闭”。三、给PictureBox控件加滚动条的方法VisualBasic的图片框（PictureBox）控件可以在其中加载图片。但是，往往所加载的图片比图片框大，只能看到图片的一部分，那么，可以在图片框内部加上水平和垂直滚动条，利用滚动条来显示看不到的图片。具体方法如下：首先单击菜单栏上的“工程(Project)”菜单，在弹出的下拉菜单中单击“部件(Components)”，选中其中的“MicrosoftCommonDialogControl6.0”，完成加载工作；然后画一个PictureBox，采用默认名字Picture1,再在Picture1上面画一个PictureBox，默认名字为Picture2，设置：Picture2.AutoSize=TRUE；接着，加上水平和垂直滚动条，默认名字分别为：HScroll1，VScroll1；加载图形到Picture2上；最后，在窗体中引入其它控件：一个按钮（Command），默认名为Command1和一个“MicrosoftCommonDialogControl”，默认名为CommonDialog1。具体代码如下：PrivateSubForm-Load()Picture2.Left=0：Picture2.Top=0：Picture2.Width=Picture1.WidthPicture2.Height=Picture1.HeightVScroll1.Min=0：HScroll1.Min=0：HScroll1.Min=0VScroll1.Max=Picture2.HeightPicture1.HeightHScroll1.Max=Picture2.WidthPicture1.WidthIfHScroll1.Max0ThenHScroll1.Enabled=FalseIfVScroll1.Max0ThenVScroll1.Enabled=FalseEndSubPrivateSubCommand-Click()OnErrorGoToErrExitCommonDialog1.Filter=“Bitmapfile(*.bmp)|*.bmp|AllFile(*.*)|*.*”CommonDialog1.FilterIndex=1：CommonDialog1.ShowOpenPicture2.Picture=LoadPicture(CommonDialog1.filename)VScroll1.Min=0：HScroll1.Min=0VScroll1.Max=Picture2.HeightPicture1.HeightHScroll1.Max=Picture2.WidthPicture1.WidthIfHScroll1.Max0ThenHScroll1.Enabled=FalseIfVScroll1.Max0ThenVScroll1.Enabled=FalseErrExit:EndSubPrivateSubHScroll1-Change()Picture2.Left=HScroll1.ValueEndSubPrivateSubVScroll1-Change()Picture2.Top=VScroll1.ValueEndSub该程序通过点击Command1按钮，在弹出的对话框中选择一个图形文件加载到Picture2中，利用水平和垂直滚动条就可以实现图片的滚动。四、文本框中文本的某一特定字符或字符串同时高亮显示的方法由于普通TextBox控件不支持不连续字符串的同时高亮显示，所以选择RichTextBox控件。单击“工程（Project）”菜单，在弹出的下拉菜单中单击部件（Components）选项，从弹出的对话框中选择“MicrosoftRichTextboxControl6.0”复选框，确定加载RichTextBox控件。新建一个工程，在窗体（Form）上添加一个RichTextBox控件和两个Command（按钮）控件，都采用系统默认的Name属性值；设置RichTextBox的Text属性值为空，Command1和Command2的Caption属性值分别设为“输入文本”和“选择字符串”。添加如下VB代码：PrivateSubCommand1-Click()DimstrAsString：DimTextAsString：str=输入文本Text=InputBox(str)：RichTextBox1.Text=TextEndSubPrivateSubCommand2-Click()DimstrAsString：DimTextAsString：DimPositionAsInteger：DimLenthAsIntegerstr=“输入要高亮显示的字符串”：Text=InputBox(str)IfText“”ThenPosition=InStr(RichTextBox1.Text,Text)1Lenth=Len(Text)RichTextBox1.SelStart=PositionRichTextBox1.SelLength=LenthRichTextBox1.SelColor=RGB(255,0,0)DoWhileInStr(PositionLenth1,RichTextBox1.Text,Text)0Position=InStr(PositionLenth1,RichTextBox1.Text,Text)1RichTextBox1.SelStart=PositionRichTextBox1.SelLength=LenthRichTextBox1.SelColor=RGB(255,0,0)LoopEndIfEndSub运行程序，单击“输入文本”按钮，在弹出的对话框中输入一些文本，确定后，刚刚输入的文本将显示在RichTextBox中；再单击“选择字符串”按钮，在弹出的对话框中输入希望高亮显示的字符串，确定后，RichTextBox中相应的字符串将以红色高亮显示。五、关联文件列表框、目录列表框和驱动器列表框的方法一个对话窗体，包含驱动器列表框、目录列表框和文件列表框，并能实现三者的同步操作，在VB中可以通过Path属性的改变引发Change事件来实现。首先，在目录列表框（Dir1）的Change事件中加如下代码：SubDir1-Change()File1.Path=Dir1.PathEndSub该事件过程使窗体上的目录列表框（Dir1）和文件列表框（File1）产生同步。因为目录列表框Path属性的改变将产生Change事件，