tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： pictureboxの画像
投稿日： 2005/01/19(Wed) 13:59
投稿者： mikiko
[OSのVer]：Windows　xp　　　[VBのVer]：VB.NET　　
tipsの画像の説明を読みましたがそれでもうまくいかないので教えてください
やりたいことは、pictureboxにbmpを表示し、その上に
マウスイベントで線を引き、そのimageをclipboardにはりつけたいのです。

----ビットマップファイルの読み込み
pic_01.Image = System.Drawing.Bitmap.FromFile("c:\image1.bmp")

---線を引く
-----以下の方法だと線は引けますが、画像が消えてしまいます。
Private Sub pic_01_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles pic_01.MouseMove
        If "1" = Trim(lblPen.Text) Then
            pic_01.CreateGraphics.DrawLine(pen, Start_X, Start_Y, e.X, e.Y)
            lblPen.Text = "2"
        ElseIf "2" = Trim(lblPen.Text) Then
            pic_01.CreateGraphics.DrawLine(pen, a_X, a_Y, e.X, e.Y)
        End If
        a_X = e.X
        a_Y = e.Y
        g.Dispose()
    End Sub
-----画像が消えないように以下のように修正しましたが
Private Sub pic_01_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles pic_01.MouseMove
        Dim g As Graphics = Graphics.FromImage(pic_01.Image)　　　←ここでエラーになります
        If "1" = Trim(lblPen.Text) Then
            g.DrawLine(pen, Start_X, Start_Y, e.X, e.Y)
            lblPen.Text = "2"
        ElseIf "2" = Trim(lblPen.Text) Then
            g.DrawLine(pen, a_X, a_Y, e.X, e.Y)
        End If
        a_X = e.X
        a_Y = e.Y
        g.Dispose()
    End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。