vb.net画图程序介绍

方法：

1.新建一个窗体

2.在窗体上新建label

3.在窗体的右边缘新建VScrollBar1,在其下边新建TextBox1

4.在窗体的下边缘新建HScrollBar1，在其右边新建TextBox2

5.在窗体的右下角新建button1

程序：

Imports System.Math
Public Class Form1Const pi As Double = 3.1415926Private Sub Label1_Click(ByVal sender As System.Object, ByVal E As System.EventArgs) Handles Label1.ClickDim g As Graphics = Label1.CreateGraphics '指定在那个控件上画图，并为这个控件创建GDI+绘图Dim P As Pen = New Pen(Color.Black) '创建画笔并获取系统定义颜色Dim P1 As Pen = New Pen(Color.FromArgb(127, 255, 0, 0)) '创建另一个画笔并设置另一种颜色 第一个值127为透明度（范围为0-255），后边3个分别值为红绿蓝Dim x0, y0, t, x, y As SingleDim amp As Integer, n As Integer, delt As Singleamp = Me.TextBox1.Text  '水平滚动条的值n = Me.TextBox2.Text '垂直滚动条的值x0 = Label1.Width / 2y0 = Label1.Height / 2    '取得控件（画布）的中心点（原点）g.TranslateTransform(x0, y0)g.DrawLine(P, -x0, 0, x0, 0)g.DrawLine(P, 0, -y0, 0, y0)delt = 0.001For t = 0 To 2 * pi Step deltx = -Sin(n * t / 2) * Cos(2 * t) * ampy = -Sin(n * t / 2) * Sin(2 * t) * ampg.DrawLine(P1, x, y, x + 1, y)Next tg.Dispose() : P.Dispose()End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal E As System.EventArgs) Handles Button1.ClickDim g As Graphics = Label1.CreateGraphicsg.Clear(Label1.BackColor)   '请吃指定控件上的绘图画面，并以该控件的背景色填充Label1.Text = ""End SubPrivate Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.LoadMe.Label1.Text = "点击蓝色开始画图形"Me.Button1.Text = "清除"Me.VScrollBar1.Value = 80Me.HScrollBar1.Maximum = 59Me.HScrollBar1.Minimum = 1Me.VScrollBar1.Maximum = 99Me.VScrollBar1.Minimum = 10Me.TextBox1.Text = Me.VScrollBar1.ValueMe.TextBox2.Text = Me.HScrollBar1.MinimumEnd SubPrivate Sub VScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles VScrollBar1.Scroll   '垂直滚动条控制放大系数ampMe.TextBox1.Text = Me.VScrollBar1.ValueEnd SubPrivate Sub HScrollBar1_Scroll(sender As Object, e As ScrollEventArgs) Handles HScrollBar1.Scroll   '水平滚动条控制范围系数nMe.TextBox2.Text = Me.HScrollBar1.ValueEnd Sub
End Class

vs2015的运行结果：

当点击淡蓝色画布（label）时：

当改变范围和放大系数（垂直和水平滚动条）时：

vb.net画图程序介绍相关推荐

html canvas php,HTML5 canvas实现画图程序（附代码）
这篇文章给大家介绍的内容是关于HTML5 canvas实现画图程序(附代码),有一定的参考价值,有需要的朋友可以参考一下,希望对你有所帮助. 项目简介整个项目分为两大部分场景场景负责canvas控 ...
可扩展面向对象的canvas画图程序
面向对象的canvas画图程序项目简介整个项目分为两大部分场景场景负责canvas控制,事件监听,动画处理精灵精灵则指的是每一种可以绘制的canvas元素 Demo演示地址 Demo为最新 ...
[转载]VB网络聊天程序的开发(1)
原文地址:VB网络聊天程序的开发(1)作者:VB源码博客互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...
[转载]VB网络聊天程序的开发(1)_彭世瑜_新浪博客
原文地址:VB网络聊天程序的开发(1)作者:VB源码博客互联网已经成为现代社会生活中非常普及的一项事务.在互联网上可以查询信息.电子购物,还可以进行网络聊天.本博将从今天起,具体的计解一下利用VB开 ...
用Python实现win10画图程序拖动鼠标画各种形状多边形功能
win10画图程序在工具栏中有许多按钮,按钮显示的图形就是各种不同形状的多边形,见下图.单击选中某按钮,就能拖动鼠标画这种形状多边形.本文介绍用Python实现win10画图程序这个功能的方法. 所谓 ...
win10画图程序拖动鼠标画图形功能用python实现的思路
win10画图程序本质上是一个位图处理程序.其最主要的功能是画各种图形,包括线.矩形.椭圆(圆)和各种多边形等,并将各种图形保存到位图中.线.矩形.椭圆(圆)和各种多边形都可以用一个矩形定位,这点在前 ...
VB做的程序的代码是放在哪里了呢？
VB做的程序的代码是放在哪里了呢? 从第一次开始接触VB做程序,我就是根据书上的步骤一步一步的来,添加窗体然后双击窗体在里面写代码,有时还添加个模块或者是类模块在里面写代码,当时就已经想了,为 ...
用python实现win10画图程序画选择框、复制、剪切、粘贴及拖动选择框内图形或粘贴后图形到指定位置
本文介绍用python实现win10画图程序剪贴功能的方法.win10画图程序本质上是一个位图处理程序.其最主要的功能是画各种图形,包括线.矩形.椭圆(圆)和各种多边形等,并将各种图形保存到位图中.该 ...
对计算机课画图课的点评,第一课认识计算机中的画图程序.doc
第一课认识计算机中的画图程序第一课认识计算机中的画图程序一.教材分析本课是小学信息技术课第二册的第一课,也是认识"画图"程序的第一步,更是以后使用"画图&quo ...

vb.net画图程序介绍

方法：

程序：

vb.net画图程序介绍相关推荐

最新文章

热门文章