picturebox控件加入图片后可以给图片加边线吗？

Question

我用了.PaintPicture加载图片，想给图片周围加边线，用.Line可以画线，但如果加到图片的周围呢？
能实现这一需求吗？
请赐教。多谢！

Answer 1

Picture1.Appearance = 0
Picture1.BorderStyle = 1

Answer 2

Private Sub Command1_Click()
    Picture1.AutoRedraw = True
    Picture1.ScaleMode = 3
    Picture1.DrawWidth = 2
    Dim p As New StdPicture
    Set p = LoadPicture("f:\未命名4.gif")
    Picture1.Picture = p
    Picture1.Line (0, 0)-(ScaleX(p.Width, vbHimetric, vbPixels), ScaleY(p.Height, vbHimetric, vbPixels)), vbRed, B
End Sub

Answer 3

2楼的方法很好 试过了 学习了
Private Sub Picture1_click()
    Picture1.AutoRedraw = True
     Dim p As New StdPicture
    Set p = LoadPicture("……")
    Picture1.Picture = p
    Picture1.Line (0, 0)-(p.Width, p.Height), , B
End Sub

Answer 4

镜框图片: http://image.baidu.com/i?tn=baiduimage&ct=201326592&lm=-1&cl=2&fr=ala0&word=%BE%B5%BF%F2%CD%BC%C6%AC