锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net载入线型 vbnet invoke

IT技术PictureBox

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.X28, po.Y5, po.X30, po.Y5)
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.Y5)
g.DrawLine(p, po.X, po.Y2, po.X, po.Y)
po.X= (PictureBox1.Width - 100) / 8
【vb.net载入线型 vbnet invoke】Next
PictureBox1.Image = b
在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)
vb.net 设置载入form时,焦点为某个按键在form_load事件中 ， 加入：
Button5.Focus()
这样焦点就在Button5上了
关于vb.net载入线型和vbnet invoke的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息 ， 记得收藏关注本站 。

    推荐阅读


    上一篇：847主板用什么cpu，8470p主板

    下一篇：阿里云服务器包括什么，阿里云服务器包括什么