タイトル : Re: 点を一つ一つ出していくためには 投稿日 : 2011/01/17(Mon) 14:49 投稿者 : PAO
何回か試みてはいるのですが、うまくいっていません・・・ 下記のプログラム(これは画像ファイルをフォトフレームみたいに一つ一つ画像を出していくもの) Dim img As Image = Image.FromFile(m_files(m_intFileIdx)) PictureBox1.Image = img m_intFileIdx += 1 If m_intFileIdx >= m_files.Length Then m_intFileIdx = 0 If m_img IsNot Nothing Then m_img.Dispose() End If m_img = img これを元にプログラムを作ってみたのですがうまくいきませんでした・・・ どうプログラムすればよいでしょうか・・・ 自分的には上記のプログラムと下記のプログラムを 合わせればできると思っているのですが・・・ Public nInputPoint(13) As Integer Public InputPosition(1000, 13, 2) As Integer For i = 0 To Form1.nInputPoint(bodyIndex) - 1 Dim h As Graphics = PictureBox1.CreateGraphics() Dim myBrush As New SolidBrush(Color.Blue) h.FillRectangle(myBrush, Form1.InputPosition(i, Form1.bodyIndex, 0), Form1.InputPosition(i, Form1.bodyIndex, 1), 10, 10) Next i Dim End Sub |