vb2008_小技



カテゴリ:[ 趣味 ]


15件の内、新着の記事から10件ずつ表示します。


[15] bmpで塗りつぶす

投稿者: 管理人 投稿日:2014年 6月21日(土)11時12分51秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

  Dim g  As Graphics = PictureBox1.CreateGraphics

    Dim b As New TextureBrush(Image.FromFile("C:\winnt\隅田川.bmp"))

    g.FillEllipse(b, 0, 0, 200, 200)




[14] 赤で塗りつぶす

投稿者: 管理人 投稿日:2014年 6月21日(土)11時11分42秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

   Dim g As Graphics = PictureBox1.CreateGraphics

    g.FillEllipse(Brushes.Red, 0, 0, 200, 200)



[13] 描く大切なclass 道具4つ

投稿者: 管理人 投稿日:2014年 6月21日(土)11時07分53秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

Graphics グラフィックス 画像や図形をさまざまに描画する。Drawing名前空間のクラス。
Pen ペン 線を描画するときに使用する。Drawing名前空間のクラス。
PictureBox ピクチャーボックス イメージを表示するために使う。System.Windows.Forms名前空間のクラス。
RectAngle レクトアングル 長方形の領域の位置とサイズをあらわす。Drawing名前空間の構造体。



[12] 描く2つの空間

投稿者: 管理人 投稿日:2014年 6月21日(土)11時03分56秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用   編集済

Drawing ドロウィング 基本的なグラフィックス機能を使用できるようになる。正式名 System.Drawing
Drawing2D ドロウィングツーディー 高度なグラフィックス機能を使用できるようになる。正式名 System.Drawing.Drawing2D



[11] カーブを描く

投稿者: 管理人 投稿日:2014年 6月21日(土)10時57分28秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

   Dim g As Graphics = PictureBox1.CreateGraphics
    Dim Points() As Point = {New Point(10, 50), New Point(100, 150), New Point(200, 50)}

    g.DrawCurve(Pens.Red, Points)



[10] 四角形、円を描く

投稿者: 管理人 投稿日:2014年 6月21日(土)10時53分8秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

g.DrawRectangle(Pens.Red, 0, 0, 100, 200)
g.DrawEllipse(Pens.Red, 0, 0, 100, 200)
メソッド(命令) 読み方 説明
DrawArc ドロゥアーク 楕円の一部を表す円弧を描画します。
DrawBezier ドロゥベジェ ベジエ曲線を描画します。
DrawBeziers ドロゥベジェス 一連のベジエ 曲線を描画します。
DrawClosedCurve ドロゥクローズドカーブ 閉じたカーディナル曲線を描画します。
DrawCurve ドロゥカーブ カーディナル曲線を描画します。
DrawEllipse ドロゥイリプス 楕円を描画します。
DrawLine ドロゥライン 直線を描画します。
DrawLines ドロゥラインズ 一連の線分を描画します。
DrawPie ドロゥパイ 扇形を描画します。
DrawPolygon ドロゥポリゴン 多角形を描画します。
DrawRectangle ドロゥレクトアングル 四角形を描画します。
DrawRectangles ドロゥレクトアングルス 一連の四角形を描画します。



[9] ペンを点線にする

投稿者: 管理人 投稿日:2014年 6月21日(土)10時46分6秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用   編集済

> Dim MyPen As Pen = New Pen(Color.Blue)

p.DashStyle = Drawing.Drawing2D.DashStyle.Dot



g.DrawLine(p, 0, 0, 200, 0)




[8] ペンを太くする

投稿者: 管理人 投稿日:2014年 6月21日(土)10時43分22秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

> Dim MyPen As Pen = New Pen(Color.Blue)
Dim p As New Pen(Color.Blue)
p.Width = 5



[7] 再描画

投稿者: 管理人 投稿日:2014年 6月21日(土)10時39分57秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

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

  Dim g As Graphics = AutoGraphics(PictureBox1)
  PictureBox1.BackColor = Color.Black
  g.DrawLine(Pens.Red, 0, 0, 100, 200)

End  Sub

Public Function AutoGraphics(ByVal picSource As PictureBox) As Graphics

  If picSource.Image  Is Nothing  Then
     picSource.Image = New Bitmap(picSource.ClientRectangle.Width,      picSource.ClientRectangle.Height)
   End  If

Return Graphics.FromImage(picSource.Image)

End Function



[6] ペンを作る

投稿者: 管理人 投稿日:2014年 6月21日(土)10時36分32秒 ZH066174.ppp.dion.ne.jp  通報   返信・引用

Dim MyPen As Pen = New Pen(Color.Blue)


レンタル掲示板
15件の内、新着の記事から10件ずつ表示します。

お知らせ · よくある質問(FAQ) · お問合せ窓口 · teacup.レンタル掲示板

© GMO Media, Inc.