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

收藏 分享

资源预览需要最新版本的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,YASSINGLETEXT1DRAG1ICONONENDSUB将如下代码添加到FORM1的DRAGOVER事件中PRIVATESUBFORM_DRAGOVERSOURCEASCONTROL,XASSINGLE,YASSINGLE,STATEASINTEGERTEXT1DRAG0ICONOFFENDSUB运行此程序。将鼠标指针移动到该文本框控件上时,程序将把所选中的ICO文件作为默认的鼠标光标;将鼠标指针离开该控件时,光标则会自动恢复为默认的形状。其他控件也可以如此设置,包括没有MOUSEPOINTER属性的控件。二、在窗体上单击鼠标右键弹出一个快捷菜单在操作系统和应用软件的视窗中,点鼠标右键时,会弹出一个快捷选单。VISUALBASIC程序里也可以实现类似的功能。首先,利用VB的菜单编辑器(MENUEDITOR)编辑所希望弹出的菜单及子菜单,并将主菜单的VISIBLE属性设置为FALSE,将其以下各级菜单的VISIBLE属性设置为TRUE。假设主菜单名为“文件”,一级下拉菜单包括“新建”、“打开”、“关闭”三个菜单项。在窗体FORM1(也可以是任意控件)的MOUSEDOWN事件中编写如下代码PRIVATESUBFORMMOUSEDOWNBUTTONASINTEGER,SHIFTASINTEGER,XASSINGLE,YASSINGLEIFBUTTONVBRIGHTBUTTONTHEN文件VISIBLETRUEPOPUPMENU文件ENDIFENDSUB运行,在窗体上单击右键,会弹出快捷菜单,菜单项包括“新建”、“打开”、“关闭”。三、给PICTUREBOX控件加滚动条的方法VISUALBASIC的图片框(PICTUREBOX)控件可以在其中加载图片。但是,往往所加载的图片比图片框大,只能看到图片的一部分,那么,可以在图片框内部加上水平和垂直滚动条,利用滚动条来显示看不到的图片。具体方法如下首先单击菜单栏上的“工程PROJECT”菜单,在弹出的下拉菜单中单击“部件COMPONENTS”,选中其中的“MICROSOFTCOMMONDIALOGCONTROL60”,完成加载工作;然后画一个PICTUREBOX,采用默认名字PICTURE1,再在PICTURE1上面画一个PICTUREBOX,默认名字为PICTURE2,设置PICTURE2AUTOSIZETRUE;接着,加上水平和垂直滚动条,默认名字分别为HSCROLL1,VSCROLL1;加载图形到PICTURE2上;最后,在窗体中引入其它控件一个按钮(COMMAND),默认名为COMMAND1和一个“MICROSOFTCOMMONDIALOGCONTROL”,默认名为COMMONDIALOG1。具体代码如下PRIVATESUBFORMLOADPICTURE2LEFT0PICTURE2TOP0PICTURE2WIDTHPICTURE1WIDTHPICTURE2HEIGHTPICTURE1HEIGHTVSCROLL1MIN0HSCROLL1MIN0HSCROLL1MIN0VSCROLL1MAXPICTURE2HEIGHT-PICTURE1HEIGHTHSCROLL1MAXPICTURE2WIDTH-PICTURE1WIDTHIFHSCROLL1MAX〈0THENHSCROLL1ENABLEDFALSEIFVSCROLL1MAX〈0THENVSCROLL1ENABLEDFALSEENDSUBPRIVATESUBCOMMANDCLICKONERRORGOTOERREXITCOMMONDIALOG1FILTER“BITMAPFILEBMP|BMP|ALLFILE|”COMMONDIALOG1FILTERINDEX1COMMONDIALOG1SHOWOPENPICTURE2PICTURELOADPICTURECOMMONDIALOG1FILENAMEVSCROLL1MIN0HSCROLL1MIN0VSCROLL1MAXPICTURE2HEIGHT-PICTURE1HEIGHTHSCROLL1MAXPICTURE2WIDTH-PICTURE1WIDTHIFHSCROLL1MAX〈0THENHSCROLL1ENABLEDFALSEIFVSCROLL1MAX〈0THENVSCROLL1ENABLEDFALSEERREXITENDSUBPRIVATESUBHSCROLL1CHANGEPICTURE2LEFT-HSCROLL1VALUEENDSUBPRIVATESUBVSCROLL1CHANGEPICTURE2TOP-VSCROLL1VALUEENDSUB该程序通过点击COMMAND1按钮,在弹出的对话框中选择一个图形文件加载到PICTURE2中,利用水平和垂直滚动条就可以实现图片的滚动。四、文本框中文本的某一特定字符或字符串同时高亮显示的方法由于普通TEXTBOX控件不支持不连续字符串的同时高亮显示,所以选择RICHTEXTBOX控件。单击“工程(PROJECT)”菜单,在弹出的下拉菜单中单击部件(COMPONENTS)选项,从弹出的对话框中选择“MICROSOFTRICHTEXTBOXCONTROL60”复选框,确定加载RICHTEXTBOX控件。新建一个工程,在窗体(FORM)上添加一个RICHTEXTBOX控件和两个COMMAND(按钮)控件,都采用系统默认的NAME属性值;设置RICHTEXTBOX的TEXT属性值为空,COMMAND1和COMMAND2的CAPTION属性值分别设为“输入文本”和“选择字符串”。添加如下VB代码PRIVATESUBCOMMAND1CLICKDIMSTRASSTRINGDIMTEXTASSTRINGSTR″输入文本″TEXTINPUTBOXSTRRICHTEXTBOX1TEXTTEXTENDSUBPRIVATESUBCOMMAND2CLICKDIMSTRASSTRINGDIMTEXTASSTRINGDIMPOSITIONASINTEGERDIMLENTHASINTEGERSTR“输入要高亮显示的字符串”TEXTINPUTBOXSTRIFTEXT〈〉“”THENPOSITIONINSTRRICHTEXTBOX1TEXT,TEXT-1LENTHLENTEXTRICHTEXTBOX1SELSTARTPOSITIONRICHTEXTBOX1SELLENGTHLENTHRICHTEXTBOX1SELCOLORRGB255,0,0DOWHILEINSTRPOSITION+LENTH+1,RICHTEXTBOX1TEXT,TEXT〈〉0POSITIONINSTRPOSITION+LENTH+1,RICHTEXTBOX1TEXT,TEXT-1RICHTEXTBOX1SELSTARTPOSITIONRICHTEXTBOX1SELLENGTHLENTHRICHTEXTBOX1SELCOLORRGB255,0,0LOOPENDIFENDSUB运行程序,单击“输入文本”按钮,在弹出的对话框中输入一些文本,确定后,刚刚输入的文本将显示在RICHTEXTBOX中;再单击“选择字符串”按钮,在弹出的对话框中输入希望高亮显示的字符串,确定后,RICHTEXTBOX中相应的字符串将以红色高亮显示。五、关联文件列表框、目录列表框和驱动器列表框的方法一个对话窗体,包含驱动器列表框、目录列表框和文件列表框,并能实现三者的同步操作,在VB中可以通过PATH属性的改变引发CHANGE事件来实现。首先,在目录列表框(DIR1)的CHANGE事件中加如下代码SUBDIR1CHANGEFILE1PATHDIR1PATHENDSUB该事件过程使窗体上的目录列表框(DIR1)和文件列表框(FILE1)产生同步。因为目录列表框PATH属性的改变将产生CHANGE事件,所以在DIR1CHANGE事件过程中,把DIR1PATH赋给FILE1PATH,可以产生同步效果。其次,在驱动器列表框(DRIVE1)的CHANGE事件中加如下代码SUBDRIVE1CHANGEDIR1PATHDRIVE1DRIVEENDSUB该过程使驱动器列表框和目录列表框同步,从而使三种列表框同步。参考文献1刘圣才,李春葆VISUALBASIC6程序设计导学清华大学出版社,2002
编号:201312161035364030    类型:共享资源    大小:11.46KB    格式:DOC    上传时间:2013-12-16
  
2
关 键 词:
生活休闲 面试求职 精品文档 职业教育
  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:职业教育论文-VB实验课编程技巧.doc
链接地址:http://www.renrendoc.com/p-224030.html

当前资源信息

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

官方联系方式

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

精品推荐

相关阅读

人人文库
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们

网站客服QQ:2846424093    人人文库上传用户QQ群:460291265   

[email protected] 2016-2018  renrendoc.com 网站版权所有   南天在线技术支持

经营许可证编号:苏ICP备12009002号-5