Mega Code Archive
Draw line using float coordinates
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
public class DrawLineUsingFloatCoordinates
public Shared Sub Main
Application.Run(New Form1)
End Sub
End class
public class Form1
Inherits System.Windows.Forms.Form
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
Dim blackPen As New Pen(Color.Black, 4)
'
Dim x1 As Single = 20.0F
Dim y1 As Single = 20.0F
Dim x2 As Single = 200.0F
Dim y2 As Single = 20.0F
e.Graphics.DrawLine(blackPen, x1, y1, x2, y2)
End Sub
Public Sub New()
MyBase.New()
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
End Sub
End Class