谁能帮我写个VB画图的代码（一个三角形，一个方即可）

Question

我朋友考试要的代码，但现在我都没有这个VB软件了！
不知那位肯帮忙[email protected]

Answer 1

Option ExplicitPrivate Sub Form_Click()
    Line (10, 10)-(60, 60)
    Line (60, 60)-(10, 120)
    Line (10, 120)-(10, 10)
    
    Line (100, 10)-(160, 10)
    Line (160, 10)-(160, 120)
    Line (160, 120)-(100, 120)
    Line (100, 120)-(100, 10)
End SubPrivate Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3
End Sub

Answer 2

晕死~~~~楼主，这个在VB6中有这个控件啊，只要设置一下属性就可以了，画圆画方都可以，还有颜色呢，你自己看吧，是VB6自带的内部控件

Answer 3

关键是我没有VB的程序，所以请大家帮忙写一个，我是发给朋友，我用.net已经一年了，VB早已经删干净了！

Answer 4

它只是为了考虑，他是搞广告设计的，那方面水平不错，我是.net程序员
http://www.guestbook.com.cn是我的作品，一个免费留言簿，还可以上传图片。

Answer 5

加一个Shape1控件，将shape属性设置为0---- （缺省值）矩形 
1---- 正方形 
2---- 椭圆形 
3---- 圆形 
4---- 圆角矩形 
5---- 圆角正方形