关于封闭面积的快速填充的问题
假设我有一个阻尼振荡曲线, 不规则, 怎么能快速的填充曲线和坐标轴所组成的面积呢?
再说明白点, 就是我想知道有没有好的办法快速填充一个波形的波峰和波谷, 或其中一个?
还有假如我这个图形很长, 怎么为这个图形的显示加一个滚动条? 用哪个控件显示图像比较好?
[解决办法]
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'