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

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

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

宽屏显示 收藏 分享

资源预览需要最新版本的Flash Player支持。
您尚未安装或版本过低,建议您

职业教育论文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.
编号:201312161035364030    大小:11.46KB    格式:DOC    上传时间:2013-12-16
  【编辑】
2
关 键 词:
生活休闲 面试求职 精品文档 职业教育
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

当前资源信息

4.0
 
(2人评价)
浏览:9次
docin上传于2013-12-16

官方联系方式

客服手机:13961746681   
2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   

相关资源

相关资源

相关搜索

生活休闲   面试求职   精品文档   职业教育  
关于我们 - 网站声明 - 网站地图 - 友情链接 - 网站客服客服 - 联系我们
copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5