vb.net画三角形 vb做三角形

VB上怎么画三角形

定义好三角形的三个点,用line画线连接即可。

成都网站建设公司更懂你!创新互联只做搜索引擎喜欢的网站!成都网站制作前台采用搜索引擎认可的DIV+CSS架构,全站HTML静态,html5+CSS3网站,提供:网站建设,微信开发,微信小程序定制开发商城网站开发成都app软件开发域名注册,服务器租售,网站代托管运营,微信公众号代托管运营。

示例如下:

Private Sub Form_Load()

Me.AutoRedraw = True

Dim x As Integer

Dim y As Integer

CurrentX = 1500

CurrentY = 500

Line -(3000, 2000), RGB(0, 0, 255)

Line -(1500, 2000), RGB(0, 0, 255)

Line -(1500, 500), RGB(0, 0, 255)

End Sub

运行效果:

vb.net画图控件如何画三角网图形?

Imports System.Drawing

Imports System.Drawing.Drawing2D

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim g As Graphics = PictureBox1.CreateGraphics

Dim hs As HatchStyle = HatchStyle.Cross

Dim sb As HatchBrush = New HatchBrush(hs, Color.Black, Color.White)

Dim p(3) As Point

p(0).X = 100

p(0).Y = 50

p(1).X = 0

p(1).Y = 100

p(2).X = 200

p(2).Y = 100

p(3).X = 100

p(3).Y = 50

g.FillPolygon(sb, p)

g.DrawPolygon(Pens.Black, p)

End Sub

End Class

大佬们~VisualStudio中vb.net如何画三角函数图像?

VB系统的坐标原点在左上角,X轴的正方向是水平向右,而Y轴的正方向是垂直向下。所以,要绘制三角函数的曲线,自己可以通过改变点坐标的方法来实现,当然,VB.NET提供了相应的方法可以来实现坐标变换,也可以通过VB.Net的Graphics类提供的平移、旋转等转换来实现。

下面是我通过自己变换实现的示例,提供参考;我的环境是VB.NET 2010

Imports System.Math

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  '1,获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2,定义一个Pen对象,用于绘制图形(轮廓线)

  Dim MyPen As New Pen(Color.Black, 1)

  '3,定义一个Brush对象,用于填充图形(如果需要填充的话)

  Dim MyBrush As New SolidBrush(Color.Orange)

  MyGraphics.DrawLine(MyPen, 0, 200, 700, 200)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

  '1,获得一个Graphics对象

  Dim MyGraphics As Graphics

  MyGraphics = PictureBox1.CreateGraphics

  '2,定义一个Pen对象,用于绘制图形(轮廓线)

  Dim MyPen As New Pen(Color.Black, 1)

  '3,定义一个Brush对象,用于填充图形(如果需要填充的话)

  Dim MyBrush As New SolidBrush(Color.Orange)

  '声明横向和纵向比例变量

  Dim Heng As Integer = 20

  Dim Zong As Integer = 50

  '先获得正弦值,保存到点坐标数组

  Dim MyPoints(700) As Point

  Dim i As Integer

  For i = 0 To 700

      MyPoints(i) = New Point(i * Heng, 200 + Sin(i) * Zong)

  Next

  '采用绘制光滑线连接点的方式绘制曲线

  MyGraphics.DrawCurve(MyPen, MyPoints)

End Sub

End Class

显示的效果图:


文章标题:vb.net画三角形 vb做三角形
网页路径:http://pwwzsj.com/article/dddeejs.html