首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

VB.NET 如何根据坐标画点啊

2012-02-28 
VB.NET 怎么根据坐标画点啊?已知两个点或者更多的点例如X120 Y130;X240 Y232怎么画出这两个点来?哪位

VB.NET 怎么根据坐标画点啊?
已知两个点或者更多的点例如X1=20 Y1=30;X2=40 Y2=32
怎么画出这两个点来?
哪位大侠教教我~~~

[解决办法]
就是四个变量,记下鼠标移动的两个点的坐标,然后画线就行了
[解决办法]
CDC *pDC;
pDC=GetDC();

pDC->MoveTo(x1-1, y1);pDC->LineTo(x1, y1);
pDC->MoveTo(x2-1, y2);pDC->LineTo(x2, y2);

pDC->Rectangle(x3, y4, x4, y4);


[解决办法]
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim points() As Point = { _
New Point(90, 10), _
New Point(70, 100), _
New Point(100, 80), _
New Point(0, 0)}
Dim rects() As Rectangle = { _
New Rectangle(90, 10, 1, 1), _
New Rectangle(70, 100, 1, 1), _
New Rectangle(100, 80, 1, 1), _
New Rectangle(0, 0, 1, 1)}
e.Graphics.DrawLines(Pens.Blue, points)
e.Graphics.DrawRectangles(Pens.Red, rects)
End Sub
[解决办法]
粘贴如下代码在你的窗体某个事件中,比如Button1_Clicked

VB.NET code
Dim g as Graphics = me.CreateGraphicsg.DrawLine(Pens.Blue,20 ,30;,40 ,32)g.Dispose()
[解决办法]
VB.NET code
Dim g As Graphics = Me.CreateGraphicsg.DrawLine(Pens.Blue, 20, 30, 40, 32)g.Dispose() 

热点排行