vb.net怎么画点,vb画点用什么方法-成都快上网建站

vb.net怎么画点,vb画点用什么方法

vb.net 怎么在屏幕打点

画点:

创新互联是一家专注于网站设计、成都网站设计与策划设计,文圣网站建设哪家好?创新互联做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:文圣等地区。文圣做网站价格咨询:028-86922220

在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中(注不是VB6.0)没有画点吗,急!!求高手帮忙

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'假设是对角线,x=y时使用白色

else

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

endif

b.SetPixel(x, y, clrs)'画点

next

next

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

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

原创例子,祝进步!!

vb.net里如何画点?请写出代码。

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

x,y是坐标

RGB是颜色

可以随时调用!!!

哦,对不起,没看清。

我没用过VB.Net,代码是没办法给你了

但我有办法:

用API函数SetPixel,SetPixelv(后者快一点)

语法参见

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画点和直线

先在桌面新建一个文本文档,输入20个点坐标

Dim x As Integer

Dim y As Integer

Dim z As Single

Dim i As Integer

Private Sub Command1_Click()

Form1.Picture1.Scale (0, 0)-(100, 100)

Open "c:\1.txt" For Input As #1

i = 0

Do While Not EOF(1)

i = i + 1

Input #1, x(i), y(i), z(i)

Form1.Picture1.PSet (x(i), y(i))

Loop

Close #1

End Sub

Private Sub Command2_Click()

For n = 1 To i - 1

For j = n + 1 To i - 1

If x(n) x(j) Then

t = x(n)

x(n) = x(j)

x(j) = t

k = y(n)

y(n) = y(j)

y(j) = k

End If

Next j

Next n

For n = 1 To i - 2

Form1.Picture1.Line (x(n), y(n))-(x(n + 1), y(n + 1))

Next n

End Sub

Private Sub Command3_Click()

Form1.Picture2.Scale (0, 0)-(100, 100)

Open "c:\1.txt" For Input As #1

i = 1

Do While Not EOF(1)

Input #1, x(i), y(i), z(i)

Form1.Picture2.PSet (x(i), y(i))

i = i + 1

Loop

Close #1

End Sub

Private Sub Command4_Click()

For n = 1 To i - 1

Form1.Picture2.Line (x(n) - z(n), y(n))-(x(n) + z(n), y(n))

Form1.Picture2.Line (x(n), y(n) + z(n))-(x(n), y(n) - z(n))

Next n

End Sub


当前标题:vb.net怎么画点,vb画点用什么方法
网页路径:http://kswjz.com/article/dsidhpd.html
扫二维码与项目经理沟通

我们在微信上24小时期待你的声音

解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流