读书人

关于封闭面积的快速填充的有关问题

发布时间: 2012-08-13 13:21:53 作者: rapoo

关于封闭面积的快速填充的问题
假设我有一个阻尼振荡曲线, 不规则, 怎么能快速的填充曲线和坐标轴所组成的面积呢?

再说明白点, 就是我想知道有没有好的办法快速填充一个波形的波峰和波谷, 或其中一个?

还有假如我这个图形很长, 怎么为这个图形的显示加一个滚动条? 用哪个控件显示图像比较好?

[解决办法]

VB.NET code
Public Class Form1    Dim bmp As Bitmap    Dim wmf As Imaging.Metafile    Sub draw()        bmp = New Bitmap(10, 10)        Dim bg As Graphics = Graphics.FromImage(bmp)        wmf = New Imaging.Metafile(New IO.MemoryStream, bg.GetHdc, Imaging.EmfType.EmfPlusDual)        Dim g As Graphics = Graphics.FromImage(wmf)        Dim gp As New Drawing2D.GraphicsPath        Dim pt(5001) As PointF        For i As Integer = 0 To 4999            Dim j As Double = 300 + Math.Sin(i / 20) * 100            pt(i) = New PointF(i, j)        Next        pt(5000) = New PointF(5000, 300)        pt(5001) = New PointF(0, 300)        gp.AddLines(pt)        g.DrawPath(Pens.Red, gp)        g.FillPath(Brushes.White, gp)        bg.Dispose()        g.Dispose()    End Sub        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        draw()        PictureBox1.Image = wmf    End SubEnd Class'窗体的AUTOSCOLL要设为TRUE,窗体中有一个PICTUREBOX,SIZEMODE为SCALE,DOCK设为NONE' 

读书人网 >VB Dotnet

热点推荐