PROFILE
LINKS
SELECTED ENTRIES
CATEGORIES
ARCHIVES

07
--
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
--
>>
<<
--
タグふれんず

PBが行く!

歳のせいか記憶が・・・・
自分のための健忘録みたいなもですので
使用はご自由ですが、自己責任で・・・・・
どうか、参考程度にしてくださいね
もっと別の方法があれば是非教えてください!
<< 最背面*最前面へ移動 | main | エラー:制約を有効にできませんでした。行に入力できるのは、Null 以外の値、一意な値、あるいは外部キーですが、この制約の違反が 1 つ以上の行で発生しています。 >>
多角形・楕円・の線画
0
    編物の製図をするプログラムを書いている

    ★四角形の線画



    'Penオブジェクトの作成(幅1の黒色)
    '(この場合はPenを作成せずに、Pens.Blackを使っても良い)
    Dim p As New Pen(Color.Black, 1)
    '(10,20,100,80)の長方形を描く
    g.DrawRectangle(p, 10, 20, 100, 80)
    'リソースを開放する
    p.Dispose()
    g.Dispose()


    ★多角形の線画

    '直線で接続する点の配列を作成
    Dim ps As Point() = {New Point(0, 0), New Point(150, 50), _
    New Point(80, 100), New Point(100, 150)}
    '折れ線を引く
    g.DrawPolygon(Pens.Black, ps)
    'リソースを開放する
    g.Dispose()

    ★楕円の線画
    楕円の位置と大きさは、外接する四角の位置と大きさで指定
    次の例では位置(10, 20)大きさ100x80の四角に外接する楕円を描画


    '位置(10, 20)に100x80の四角を赤色で描く
    g.DrawRectangle(Pens.Red, 10, 20, 100, 80)
    '先に描いた四角に外接する楕円を黒で描く
    g.DrawEllipse(Pens.Black, 10, 20, 100, 80)
    'リソースを開放する
    g.Dispose()

    楕円だけで、良い場合は、
    '位置(10, 20)に100x80の四角を赤色で描く
    g.DrawRectangle(Pens.Red, 10, 20, 100, 80)を記述しなければOK

    ★円弧の線画

    '位置(10, 20)に100x80の四角を赤色で描く
    g.DrawRectangle(Pens.Red, 10, 20, 100, 80)
    '先に描いた四角に外接する楕円の一部
    '(開始角度 0度、スイープ角度 90度)を黒で描く
    g.DrawArc(Pens.Black, 10, 20, 100, 80, 0, 90)
    'リソースを開放する
    g.Dispose()

    *出来上がりが1/4の円弧であっても
    頭の中では楕円をイメージしながら線画ポイントを考えていかなければ
    メビウスの輪に入ってしまう←私モゴモゴ

    円弧を扇に
    上記のDrawArcメソッドのコードの"DrawArc"を"DrawPie"に変更すればOK

    A側に線画したい時は
    g.DrawArc(Pens.Black, 10, 20, 100, 80, 90, 90)


    | (VB2005・2008) | 16:02 | comments(0) | - | - | - |