会员注册 | 登录 | 微信快捷登录 支付宝快捷登录 QQ登录 微博登录 | 帮助中心 人人文库renrendoc.com美如初恋!
站内搜索 百度文库

热门搜索: 直缝焊接机 矿井提升机 循环球式转向器图纸 机器人手爪发展史 管道机器人dwg 动平衡试验台设计

   首页 人人文库网 > 资源分类 > DOC文档下载

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

  • 资源星级:
  • 资源大小:11.46KB   全文页数:7页
  • 资源格式: DOC        下载权限:注册会员/VIP会员
您还没有登陆,请先登录。登陆后即可下载此文档。
  合作网站登录: 微信快捷登录 支付宝快捷登录   QQ登录   微博登录
友情提示
2:本站资源不支持迅雷下载,请使用浏览器直接下载(不支持QQ浏览器)
3:本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰   

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

职业教育论文VB实验课编程技巧【摘要】本文在VB实验课的角度,为使学生更加深入地掌握编程技能,介绍了几个常用和典型的编程技巧。VisualBasic利用可视化技术进行编程,避免了面向过程语言的许多细节。因此,学生比较容易掌握VB程序设计的基本知识。就VB实验课而言,应当尽可能多的进行编程的练习。本文介绍几个较为典型的编程技巧,希望能对学习VB的同学有所帮助。【关键词】VB实验课编程技巧一、创建自定义的光标在设计一个应用程序时,VisualBasic许多控件的MousePointer属性允许程序员在预先定义好的若干个鼠标光标形状之中任选其一。但在应用程序中,有时候希望显示一个不同于预定义形状的光标。那么可以添加代码来改变控件的MouseMove和DragOver事件。下面用实例来说明当鼠标指针移动到一个控件上时,如何改变成不同的形状。首先创建窗体Form1。在Form1上添加一个文本框控件Text1。在Text1控件的DragIcon属性的设置对话框中选择一个指针形状(.ICO文件)。将如下代码添加到Text1的MouseMove事件中PrivateSubText1_MouseMoveButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingleText1.Drag1icononEndSub将如下代码添加到Form1的DragOver事件中PrivateSubForm_DragOverSourceAsControl,XAsSingle,YAsSingle,StateAsIntegerText1.Drag0iconoffEndSub运行此程序。将鼠标指针移动到该文本框控件上时,程序将把所选中的.ICO文件作为默认的鼠标光标将鼠标指针离开该控件时,光标则会自动恢复为默认的形状。其他控件也可以如此设置,包括没有MousePointer属性的控件。二、在窗体上单击鼠标右键弹出一个快捷菜单在操作系统和应用软件的视窗中,点鼠标右键时,会弹出一个快捷选单。VisualBasic程序里也可以实现类似的功能。首先,利用VB的菜单编辑器(MenuEditor)编辑所希望弹出的菜单及子菜单,并将主菜单的Visible属性设置为False,将其以下各级菜单的Visible属性设置为True。假设主菜单名为文件,一级下拉菜单包括新建、打开、关闭三个菜单项。在窗体Form1(也可以是任意控件)的MouseDown事件中编写如下代码PrivateSubFormMouseDownButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingleIfButtonvbRightButtonThen文件.VisibleTruePopupMenu文件EndIfEndSub运行,在窗体上单击右键,会弹出快捷菜单,菜单项包括新建、打开、关闭。三、给PictureBox控件加滚动条的方法VisualBasic的图片框(PictureBox)控件可以在其中加载图片。但是,往往所加载的图片比图片框大,只能看到图片的一部分,那么,可以在图片框内部加上水平和垂直滚动条,利用滚动条来显示看不到的图片。具体方法如下首先单击菜单栏上的工程Project菜单,在弹出的下拉菜单中单击部件Components,选中其中的MicrosoftCommonDialogControl6.0,完成加载工作然后画一个PictureBox,采用默认名字Picture1,再在Picture1上面画一个PictureBox,默认名字为Picture2,设置Picture2.AutoSizeTRUE接着,加上水平和垂直滚动条,默认名字分别为HScroll1,VScroll1加载图形到Picture2上最后,在窗体中引入其它控件一个按钮(Command),默认名为Command1和一个MicrosoftCommonDialogControl,默认名为CommonDialog1。具体代码如下PrivateSubFormLoadPicture2.Left0Picture2.Top0Picture2.WidthPicture1.WidthPicture2.HeightPicture1.HeightVScroll1.Min0HScroll1.Min0HScroll1.Min0VScroll1.MaxPicture2.Height-Picture1.HeightHScroll1.MaxPicture2.Width-Picture1.WidthIfHScroll1.Max〈0ThenHScroll1.EnabledFalseIfVScroll1.Max〈0ThenVScroll1.EnabledFalseEndSubPrivateSubCommandClickOnErrorGoToErrExitCommonDialog1.FilterBitmapfile.bmp|.bmp|AllFile.|.CommonDialog1.FilterIndex1CommonDialog1.ShowOpenPicture2.PictureLoadPictureCommonDialog1.filenameVScroll1.Min0HScroll1.Min0VScroll1.MaxPicture2.Height-Picture1.HeightHScroll1.MaxPicture2.Width-Picture1.WidthIfHScroll1.Max〈0ThenHScroll1.EnabledFalseIfVScroll1.Max〈0ThenVScroll1.EnabledFalseErrExitEndSubPrivateSubHScroll1ChangePicture2.Left-HScroll1.ValueEndSubPrivateSubVScroll1ChangePicture2.Top-VScroll1.ValueEndSub该程序通过点击Command1按钮,在弹出的对话框中选择一个图形文件加载到Picture2中,利用水平和垂直滚动条就可以实现图片的滚动。四、文本框中文本的某一特定字符或字符串同时高亮显示的方法由于普通TextBox控件不支持不连续字符串的同时高亮显示,所以选择RichTextBox控件。单击工程(Project)菜单,在弹出的下拉菜单中单击部件(Components)选项,从弹出的对话框中选择MicrosoftRichTextboxControl6.0复选框,确定加载RichTextBox控件。新建一个工程,在窗体(Form)上添加一个RichTextBox控件和两个Command(按钮)控件,都采用系统默认的Name属性值设置RichTextBox的Text属性值为空,Command1和Command2的Caption属性值分别设为输入文本和选择字符串。添加如下VB代码PrivateSubCommand1ClickDimstrAsStringDimTextAsStringstr″输入文本″TextInputBoxstrRichTextBox1.TextTextEndSubPrivateSubCommand2ClickDimstrAsStringDimTextAsStringDimPositionAsIntegerDimLenthAsIntegerstr输入要高亮显示的字符串TextInputBoxstrIfText〈〉ThenPositionInStrRichTextBox1.Text,Text-1LenthLenTextRichTextBox1.SelStartPositionRichTextBox1.SelLengthLenthRichTextBox1.SelColorRGB255,0,0DoWhileInStrPosition+Lenth+1,RichTextBox1.Text,Text〈〉0PositionInStrPosition+Lenth+1,RichTextBox1.Text,Text-1RichTextBox1.SelStartPositionRichTextBox1.SelLengthLenthRichTextBox1.SelColorRGB255,0,0LoopEndIfEndSub运行程序,单击输入文本按钮,在弹出的对话框中输入一些文本,确定后,刚刚输入的文本将显示在RichTextBox中再单击选择字符串按钮,在弹出的对话框中输入希望高亮显示的字符串,确定后,RichTextBox中相应的字符串将以红色高亮显示。五、关联文件列表框、目录列表框和驱动器列表框的方法一个对话窗体,包含驱动器列表框、目录列表框和文件列表框,并能实现三者的同步操作,在VB中可以通过Path属性的改变引发Change事件来实现。首先,在目录列表框(Dir1)的Change事件中加如下代码SubDir1ChangeFile1.PathDir1.PathEndSub该事件过程使窗体上的目录列表框(Dir1)和文件列表框(File1)产生同步。因为目录列表框Path属性的改变将产生Change事件,所以在Dir1Change事件过程中,把Dir1.Path赋给File1.Path,可以产生同步效果。其次,在驱动器列表框(Drive1)的Change事件中加如下代码SubDrive1ChangeDir1.PathDrive1.DriveEndSub该过程使驱动器列表框和目录列表框同步,从而使三种列表框同步。参考文献1刘圣才,李春葆.VisualBasic6程序设计导学.清华大学出版社,2002.

注意事项

本文(职业教育论文-VB实验课编程技巧.doc)为本站会员(docin)主动上传,人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知人人文库网([email protected]),我们立即给予删除!

温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。

copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5