vb小程序_免费下载

《vb小程序_免费下载》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1.概述VisualBasic.NET通常缩写为VB.NET,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。VisualBasic.NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言。VisualBasic.NET的应用范围包括windows桌面、web以及当下突然觉醒

2、的正在奋力追赶的第三大移动平台Windowsphone。2、设计思路及界面设计首先创建一个项目类型为VisualBasic，模板为Windows应用程序的项目，命名为建议画图程序。然后进行界面设计，在窗体上添加：一个MenuStrip菜单控件、一个ToolStrip工具栏控件，一个用作绘图板的PictureBox图片框控件、两个让用户选择颜色和线条宽标志的Lable控件、5个让用户选择线条宽度的button控件，一个Panel控件上、一个ImageList控件和一个作为状态信息栏的StatusStripr。调整窗体上各控件的大小及位置，如下图所示。设置各

3、控件的相关属性，如下表所示控件类别属性名属性值FormText画图软件NameFrmpaintMenumsPainttext文件（&F）MenuStripNamemsPaintToolStripMenuItemNamemifileText文件（&F）ToolStripMenuItemNamemiNewText新建（&N）ToolStripMenuItemNamemiExitText退出（&E）ToolStripMenuItemNamemiOperatorText操作（&P）ToolStripNameTsPaintText工具栏ItemsImageList

4、NameImglistImages控件类别属性名属性值PictureBoxNamepicPaintBackcolorWhiteBorderStyleFlatLableText画笔颜色LableText线条宽度5个buttonNamebtnLine1……ImageList0，1，2，3，4Tag1，2，3，4，5FlatStyleFlatButtonBgColorBlueNameBtnSetColorFlatStyleFlat通过此程序，我可以完成以下操作：（1）界面顶部有一个文件菜单按钮，通过这个按钮的功能可以实现新建、退出、操作等功能（2）界面上部有个

5、工具栏条，可以选择画图所用的工具，这10个按钮分别是：a）铅笔：进行任意线条绘画操作；b）直线：通过点击首尾两点左边画直线；c）椭圆：画空心椭圆；d）实心椭圆填充：对画的椭圆进行实心填充；e）网格椭圆填充：对画的椭圆进行网格填充；f）矩形：画空心矩形；g）实心矩形填充：对画的矩形进行实心填充；h）网格矩形填充：对画的矩形进行网格填充；i）ICON按钮：读取ICON图标进行编辑：j）橡皮擦：橡皮擦功能。（3）界面左边有线条选择按钮，通过点击不同的按钮，选择不同的线条宽度。（4）线条选择下方有画笔颜色选择按钮，通过点击此按钮，选择不同的画笔颜色，并且按钮能显

6、示此时的画笔颜色。3、程序运行结果：（1）利用铅笔按钮和直线按钮完成任意线条绘制和直线绘制，运行结果如下图所示：（2）利用椭圆和其填充按钮完成椭圆的绘制：（3）利用矩形和其填充按钮完成椭圆的绘制：（1）通过ICON按钮，读取ICO图标文件（1）通过界面上的线条宽度按钮，选择不同的线条宽度来画图：（2）通过改变画笔颜色，选用不同颜色的画笔来画图：（1）通过文件菜单按钮完成菜单选项，同时各菜单选项有快捷键至此，整个程序的主要功能都运行完毕4、代码清单ImportsSystem.Drawing.Drawing2DPublicClassFrmPaintPriva

7、tegAsGraphics'绘图句柄PrivatepstartAsPoint,pendAsPoint'定义画图的起始点，终点PrivatemChoiceAsInteger'选择图形枚举PrivatemWidthAsInteger'画笔宽度PrivatemIconAsIcon'用户选择图标PrivateEnummSelect'选择图形类别枚举Pencil'铅笔Line'直线Ellipse'椭圆FillEllipse'填充椭圆StyleEllipse'风格椭圆Rec'矩形FillRec'填充矩形StyleRec'风格矩形Icon'图标Eraser'橡皮End

8、EnumPrivateSub文件ToolStripMenuItem_Click(