vb.net怎么畫不同坐標(biāo)的八叉直線

[{"word":"VB.NET畫直線方法\n該方法繪制一條連接由坐標(biāo)對指定的兩個點的線條，所以我們需要指定這兩個點的坐標(biāo)，如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例將在PictureBox控件表面繪制一條直線、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代碼來實現(xiàn)一樣的甲\n__\n"}]

龍亭網(wǎng)站制作公司哪家好，找成都創(chuàng)新互聯(lián)公司！從網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站等網(wǎng)站項目制作，到程序開發(fā)，運營維護(hù)。成都創(chuàng)新互聯(lián)公司從2013年創(chuàng)立到現(xiàn)在10年的時間，我們擁有了豐富的建站經(jīng)驗和運維經(jīng)驗，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選成都創(chuàng)新互聯(lián)公司。

vb.net 真的沒法畫點嗎？

.NET確實沒有提供畫一個像素點得方法

你可以試一下用FillEllipse填充一個寬1像素，高2像素的橢圓

原理就是FillEllipse的時候，最左邊那一列一般都會多出一個一像素的點；高至少要2，少了就什么都畫不出來

vb.net 怎么在屏幕打點

畫點：

在PictureBox的Paint事件里面：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

畫圓：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)

vb.net里如何畫點？請寫出代碼。

Call Pset(x,y,RGB(Red,Green,Blue))

x,y是坐標(biāo)

RGB是顏色

可以隨時調(diào)用!!!

哦，對不起，沒看清。

我沒用過VB.Net，代碼是沒辦法給你了

但我有辦法：

用API函數(shù)SetPixel，SetPixelv(后者快一點)

語法參見

求問VB.NET中（注不是VB6.0)沒有畫點嗎，急?。∏蟾呤謳兔?/h2>

Dim b As New Bitmap(320, 200)'定義圖像寬高

Dim clrs As Color=Color.Black

for y as int32=1 to 199

for x as int32=1 to 319

if x=y then

clrs = Color.White'假設(shè)是對角線，x=y時使用白色

else

clrs = Color.Black'平時使用黑色

endif

b.SetPixel(x, y, clrs)'畫點

next

next

b.Save("test.tif", System.Drawing.Imaging.ImageFormat.Tiff)'保存到圖片文件

==================

原創(chuàng)例子，祝進(jìn)步??！

怎樣在VB.net中畫一個點呢？

畫點：

在PictureBox的Paint事件里面：

dim myGraphics=e.Graphics

Dim myPointArray As Point() = {New Point(0, 0), New Point(50, 30), New Point(30, 60)}

myGraphics.DrawPolygon(myPen, myPointArray)

畫圓：

Dim g As Graphics

g = PictureBox1.CreateGraphics

g.FillEllipse(Brushes.Red, x, y, 10, 10)