用VB6.0制作画图板

页面导航:首页 > 软件编程 > vb.net > 用VB6.0制作画图板

用VB6.0制作画图板

来源: 作者: 时间:2016-02-05 12:32 【

程序界面制作篇。 一、启动VB,创建一个“VB企业版控件”文件。 二、添加窗体:一个MDI窗体(MDIPaint)、一个子窗体:绘图操作区(Paintwin)、七个自由窗体,包括

 

 

  

  程序界面制作篇。

  一、启动VB,创建一个“VB企业版控件”文件。

  二、添加窗体:一个MDI窗体(MDIPaint)、一个子窗体:绘图操作区(Paintwin)、七个自由窗体,包括一个版本信息窗体(About1)、一个画笔大小调节窗体(BrushSroll)、一个启动界面(Cover)、一个滤镜信息框(Filterwin)、一个帮助窗体(Helpwin)、一个登陆提示框(password)、一个文本输入框(Textpaint)。设置MDIPaint为启动窗体图1。

  三、 在窗体中添加控件

  1. 在MDIPaint窗体中先制作菜单:就像你见到的所有Windows程序一样,包括:文件(新建、打开、清屏、存储、另存为、关闭、打印、退出)、编辑(复制、粘贴等)、变换(垂直、水平、旋转、缩放)、滤镜(浮雕)、工具栏(隐藏、显示)、视图(颜色、字体、画笔、设置桌面)、帮助(版本信息)……并配置快捷键。然后,设置一个通用对话框控件(Commondialog1)、两个图片列表控件(ImageList1&ImageList2)、两个工具栏(Toolbar1&Toolbar2)、一个状态条(StatusBar1)。抓取图标,将常用的工具栏中的图标加入到ImageList1中,制作各种图像代表图标14个加入到ImageList2中,将图片列表控件与工具栏连在一起。在状态条中加入时间、X轴和Y轴坐标显示。完成界面如图2所示。其中,Toolbar1是工具栏,类似于Word中位于菜单栏下的工具栏快捷键,可根据其所含图标属性设定功能。Toolbar2是图像栏,是绘制固定图像的快捷键,有直线、普通矩形、填充圆等,其填充方式均按图标属性设置。

  2. 在Paintwin窗体中,主要包括有两个图片框(Picture1& Pictureback),将Picture1嵌套在Pictureback中以实现能够显示任意尺寸的画面,添加两个滚动条(imagescroll1& imagescroll2)配合察看大尺寸图片。另外,还需要一个标签(forecolor1)显示前景色,一个标签(backcolor1)显示背景色,一个按钮交换前景色与背景色,一个复选框(toolbar2c1)切换MDIPaint中的图像栏与工具栏。完成界面如图2所示。

  3. BrushSroll窗体主要功能是通过滚动条滑动任意调节画笔的大小,包括一个滚动条(BrushHScroll1)、画笔数值显示区(blabel2)及确认、取消按钮。

  4. Cover窗体装入启动画面(施展你的艺术才华吧),启动时间可自行设定。例如:

  技巧篇

  在中掌握重要方法,灵活利用技巧,往往能事半功倍。

  一、像“画笔”一样,在绘图区的任意地方输入文本。

  几乎所有的绘图软件都提供了文字输入的功能,有的(如Photoshop)甚至能够做一些简单的文本编辑的工作。此程序也实现了这一特定功能。首先,设置Commondialog1和Picture1关于字体的所有属性,如:“Picture1.FontName = CommonDialog1.FontName”。通常“新手上路”的朋友会遇到:当执行程序时,会出现一个信息框:“控制面板中未安装字体”,解决它必须首先声明两个变量:Screenfonts=&H1、Printerfonts=&H2。并写出如下代码:“CommonDialog1.Flags = Screenfonts + Printerfonts”。同时在VB的属性窗口中设置Flags的值为1。接下来需要完成在Picture1中单击左键的那个位置输入文本这一功能,因此需要得到单击左键处的坐标,即在Picture1_Click()中将startx、satrty的值传给CurrentX、CurrentY。这样,问题就解决了。

  二、灵活运用PaintPicture。

  用PaintPicture方法来实现图像的翻转,比较容易(需要API——StretchBlt的支持)。其语法规则为:object.PaintPicture Picture, x1, y1, width1, height1, x2, y2, width2, height2, (opcode)。只要熟练掌握其中变量的使用,那么图像变换任你选择。

  以下是几个简单变换的例子:

  水平翻转:Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, 0, -1 * Picture1.ScaleWidth, Picture1.ScaleHeight

  垂直翻转:Picture1.PaintPicture Picture1.Picture, 0, Picture1.ScaleHeight, Picture1.ScaleWidth, -1 * Picture1.ScaleHeight

  旋转180度:Picture1.PaintPicture Picture1.Picture, Picture1.ScaleWidth, Picture1.ScaleHeight, -1 * Picture1.ScaleWidth, -1 * Picture1.ScaleHeight

  缩 小:Picture1.PaintPicture Picture1, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, -Picture1.ScaleWidth, -Picture1.ScaleHeight

  放 大:Picture1.PaintPicture Picture1, Picture1.ScaleWidth, Picture1.ScaleHeight, -2 * Picture1.ScaleWidth, -2 * Picture1.ScaleHeight

  三、对Toolbar中某一按键状态的控制。

  通常,需对Toolbar中某一按键进行程序编制:“Select case1 case2 case3 ……” 。

  当需要对一按键的状态进行控制,比如要在某一时刻让第5个按键自动按下,则只需要写出代码:“Toolbar1.Buttons(5).Value = 1”即可。

  四、关于固定图形的绘制。

  “画笔”能够在图纸的任意地方画出直线、虚线、空心圆、实心圆、矩形、多边形等。我在此程序中也加入了这一功能。你看到MDIPaint窗体上那一排(共14个)小图标吗?它们就是为画固定图形而设置的。例如:当我点击任一类型的填充圆后,在Picture1中左键按下的坐标会被记录下来:startx、starty。然后按住左键移动鼠标,这时程序会监测左键的状态,一旦左键松开,便将此时新的坐标值写入endx及endy。程序又转到绘图函数中,以(startx,starty)为圆心,以(sqr((startx-endx)^2+(starty-endy)^2))为半径,以预先设定的填充状态(FillStyle)及颜色(如前景色)画出一个你所希望得到的填充圆。其它固定图形的绘制方法皆大同小异。

  五、借用API函数。

  是不是还有许多用VB无法实现的功能?让API函数帮帮忙吧!查查你的API文本就可以了。建议你看看Visual C++,不过很可能你以后就不会用 VB写程序了。

  代码篇

  (限于篇幅,只列出比较重要的部分源代码)

  一、文本输入:

  弹出字体对话框

  If MDIPaint.Toolbar1.Buttons(11).Value = tbrPressed Then

  调用对话框弹出字

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <