vb.net载入线型 vbnet invoke

VB.net中如何在picturebox画线，有什么函数？

Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)

Dim g As Graphics = Graphics.FromImage(b)

g.Clear(Color.White)

Dim p As New Pen(Color.Black)

p.EndCap = Drawing2D.LineCap.ArrowAnchor

g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)

g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)

Dim i As Integer

Dim bs As New SolidBrush(Color.Green)

Dim po As New Point

po.X = 0

po.Y = PictureBox1.Height - 35

For i = 700 To 1000 Step 50

g.DrawString(i, Me.Font, bs, po.X, po.Y)

g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)

po.Y -= (PictureBox1.Height - 100) / 6

Next

po.X = 30

po.Y = PictureBox1.Height - 30

For i = 0 To 40 Step 5

g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)

g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)

po.X += (PictureBox1.Width - 100) / 8

Next

PictureBox1.Image = b

相关问答

Q1: 在VB NET中，在Form_Load中创建graphics类，并绘制直线，为什么执行程序后发现直线绘制不出来？

1. 创建一个Graphics对象实例。

绘制图形必须创建Graphics对象。如果是在窗体上绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = Me.CreateGraphics

如果是在PictrueBox里绘图，要使用下列代码创建Graphics对象；

Dim MyGraphics As Graphics = PictureBox1.CreateGraphics

2. 定义一个Brush对象，用来填充图形(如果你需要填充的话)。

如果填充封闭曲线或者多边形，必须创建Brush对象（或者Brush类的继承类对象），用来确定填充的颜色。例如下面的代码，创建了一个填充红色的画刷对象。在最后的括号里，用Color结构指定的枚举值，确定画刷的颜色。限于篇幅有关Color结构这里不展开，可能在后续博文里介绍。

Dim RedBrush As New SolidBrush(Color.Red)

Q2: vb.net 设置载入form时,焦点为某个按键

在form_load事件中，加入：

Button5.Focus()

这样焦点就在Button5上了

关于vb.net载入线型和vbnet invoke的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。