- 777 名前：775 mailto:sage [04/11/30 11:57:38]
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
vp.Xgw = ○○
vp.Ygw = ○○
vp.Xgc = ○○
vp.Ygc = ○○
vp.Xvw = ○○
vp.Yvw = ○○
vp.Xvc = ○○
vp.Yvc = ○○
DrawPoint(○, ○, c)
DrawPointScs(○, ○, c, vp)
DrawPointWcs(○, ○, c, vp)
DrawLine(○, ○, ○, ○, c)
DrawLineScs(○, ○, ○, ○, c, vp)
DrawLineWcs(○, ○, ○, ○, c, vp)
End Sub
で、三角形の各頂点 (200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300 高さ300
なのですが座標系についてさっぱりなので埋めることができなくて困ってます(´･ω･`)
必要でしたらコードをうｐします。
|
 |
