locked
FAQs: 如何分别在PictureBox控件和Image对象上画图? RRS feed

  • 问题

  • 为了帮助大家更好地学习 Visual Basic技术,微软论坛技术支持团队编辑了一些列的 "Visual Basic 常见问题及解答" 精华帖。

    本帖的主题是: 如何分别在PictureBox控件和Image对象上画图?

    如果您觉得这个帖子对您的学习、工作有所帮助,请再把这个帖子分享给你的同学、同事和朋友。

    如果您想阅读更多的 "Visual Basic 常见问题及解答",请打开索引页面:
    http://social.msdn.microsoft.com/Forums/zh-CN/vbasiczhchs/thread/c9ab4b8e-99dc-49a2-bcea-30f3ecc3c3b7


    如果您对我们的论坛在线支持服务有任何的意见或建议,请通过邮件告诉我们。
    MSDN 论坛好帮手 立刻免费下载  MSDN 论坛好帮手
    2011年3月2日 12:17

答案

  • 关键是要找到正确的图形对象。

    先决条件: 拖动PictureBox1, Button1 Button2 控件到窗体 Form1上面。

    Public Class Form1

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

            PictureBox1.Image = Image.FromFile("D:\VBproject\2.jpg")

        End Sub

     

        'PictureBox控件上面画图

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Dim newImage As Image = Image.FromFile("D:\VBproject\1.jpg")

            Dim g As Graphics = Me.PictureBox1.CreateGraphics

            g.DrawImage(newImage, New Rectangle(10, 10, 200, 200))

        End Sub

     

        'PictureBox.Image上面画图

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

            Dim newImage As Image = Image.FromFile("D:\VBproject\1.jpg")

            Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)

            g.DrawImage(newImage, New Rectangle(10, 10, 200, 200))

            PictureBox1.Refresh()

        End Sub

    End Class

     

    相关帖子:

    http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/7c7ee412-703e-46d8-84c7-b3f91dfefdc7/


    如果您对我们的论坛在线支持服务有任何的意见或建议,请通过邮件告诉我们。
    MSDN 论坛好帮手 立刻免费下载  MSDN 论坛好帮手
    2011年3月2日 12:17