'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. Try If disposing AndAlso components IsNot Nothing ThenĮnd Try End Sub 'Wird vom Windows Form-Designer benötigt. Protected Overrides Sub Dispose( ByVal disposing As Boolean)

'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As ) Handles MyBase.Paint Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As ) Handles MyBase.FormClosing G.SmoothingMode = SmoothingMode.AntiAlias G.DrawLine(Pens.Blue, New Point(-bmp.Width / 2, 0), New Point(bmp.Width / 2, 0)) G.DrawLine(Pens.Blue, New Point(0, -bmp.Height / 2), New Point(0, bmp.Height / 2)) G.DrawLine(Pens.Gray, New Point(-bmp.Width / 2, i), New Point(bmp.Width / 2, i)) G.DrawLine(Pens.Gray, New Point(i, -bmp.Height / 2), New Point(i, bmp.Height / 2)) G.Transform = New Matrix(1, 0, 0, -1, bmp.Width / 2, bmp.Height / 2) Using g As Graphics = Graphics.FromImage(bmp) Private Sub DrawGridAndAxAndGraph(ByVal bmp As Bitmap, ByVal gPath As GraphicsPath) Pts.Add(New PointF(x, CSng(Math.Sin(((x - d) / 2.0) / CDbl(magnifier)) * CDbl(magnifier) * 10))) 'pts.Add(New PointF(x, CSng(Math.Sin(x / CDbl(magnifier)) * CDbl(magnifier) * 10))) _bmp = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)įor x As Integer = -_bmp.Width / 2 To _bmp.Width / 2 - 1 or create your own Control - eg a doublebuffered-panel and draw directly to it, or draw a bitmap and paint that to it.

Vb net 2010 ephoc time