189 8069 5689
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
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)
在form_load事件中，加入：
Button5.Focus()
这样焦点就在Button5上了
1 在工具箱把OpenFileDialog和SaveFileDialog拖到窗体，此处设定其名称为OpenDlg和SaveDlg；
2 触发Button的点击事件，或PictureBox的点击事件，其对应的方法
OpenDlg.Filter = "图片文件(*.jpg,*.gif,*.bmp)|*.jpg|*.gif|*.bmp" '这是限定图片的格式
If OpenDlg.ShowDialog() = DialogResult.OK Then
Me.pictureBox1.image = image.fromFile(OpenDlg.FileName)
EndIf
3 保存图片
If SaveDlg.ShowDialog = DialogResult.OK Then
Me.pictureBox1.image.Save(SaveDlg.FileName, "") '第二个参数是图片格式
EndIf
纯手打，若拼写错误，那是很正常的。还有问题， 请追问。