• 締切済み

マウスイベントを利用した線描きアプリをVBで作成できず困っています。

フォームを、PictureBox1、CommandButton1、Frame1、Frame1内にOptionButton1,2,3 Frame2、Frame2内にOptionButton1,2,3,4,5、Frame3、Frame3内にOptionButton1,2,3とし、 PictureBox1にマウスドラッグ、マウスクリックを使って線を描くVBソフトを作成しようと思います。このとき、筆の種類から、次の3種類選べます。 鉛筆・・・マウスドラッグによる線描きで、「マウスによるフリーハンド描画」を基本。 直線・・・クリックした2点間を直線で結ぶ。 ジグザグ・・・次々とクリックした点間を直線で結ぶ。 描画するとき、次の2つのオプションも利用できるようにする。 色オプション 黒、赤、緑、青、黄の5色がオプションボタンの選択で選ぶことができ、描画の線の色に反映させる。色定数は次のように決めておく。 黒・・・RGB(0, 0, 0) 赤・・・RGB(255, 0, 0) 緑・・・RGB(0, 255, 0) 青・・・RGB(0, 0, 255) 黄・・・RGB(255, 255, 0) 太さオプション 線の太さには、細線、中線、太線の3種類がオプションボタンの選択で選ぶことができ、描画の線の太さに反映させる。太さの(DrawWidthプロパティ)値は次のように決めておく。(DrawWidthプロパティを反映させるオブジェクトは、Picture1。) 細線・・・DrawWidth = 1 中線・・・DrawWidth = 3 太線・・・DrawWidth = 5 CommandButton1のクリックで、Picture1に描いた図形を消去する命令を実行させようと思っています。このコードを教えてください。

みんなの回答

  • Oh-Orange
  • ベストアンサー率63% (854/1345)
回答No.2

★『線描きアプリ』の仕様は大体分かりました。 ・しかし、『描いた図形を消去する命令』とはすべての図形を消去する命令ですか? ・それとも直前の『鉛筆』、『直線』、『ジグザグ』命令で描いた図形だけを消去するのですか? ・何をどう消去する命令ですか? ・ここの点を補足要求します。 ・以上。

  • unamana19
  • ベストアンサー率62% (56/89)
回答No.1

どこまで実現できたのでしょうか?

関連するQ&A

  • AUTOCADの線の太さの画面表示について

    AutoCAD 2006を使用していますが 仕事上、細線・中線(太線)・極太線を利用します。 細線:0.09mm  中線:0.25mm  極太線:0.40mm に設定し線の太さ表示をしても、細線と中線の違いがありません。 メニュー「形式」→「線の太さ」の線の太さが表示されている部分の 表示を見ても0.00mmから0.25mmは太さに変化が見れないのですが変更できないものなのか教えてください。 画面解像度は1400×1050 です。

  • VB.NETでPictureBoxへの描画について

    VB.NETでPictureBoxへの描画について PictureBoxに画像を表示し、余白部分を含めて、マウスで描画できる処理を作成しているのですが、 どうも上手くいかない為、皆さんの知恵をお借りしたいと思い質問させて頂きました。 まず、880×560のPictureBoxを用意し、その中に、600×480の画像を埋め込んでいます。 そのPictureBoxの中で、画像以外の部分(余白)にもマウスで線等を書きたいのです。 画像のみに描く場合は上手くいくのですが、余白を含めると上手くいかなくなってしまい、 困っております。 プログラムの違いは以下の箇所のみです。2の場合は上手くいきます。 1.PictureBox全体に描画する(画像も含め) Dim g As Graphics = PictureBox1.CreateGraphics 2.画像のみに描画する Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) ちなみに、マウスではなく、ボタンクリック時に描画した時は、1の場合でも上手くいきます。 お手数ですが、ご回答の程、よろしくお願いします。

  • Word で線が引けない

    Word で斜め線が引きたいのですが、表示→ツールバー→図形描画と選び、マウスをクリックして線を引こうとすると、青い太線が出てきてしまいます。なんでこんな簡単なことができないんでしょう?

  • 移動する線を描画したい(何と例えたらいいのか・・・)

    Microsoft Visual Studio.Netの2003でC#を使っています。 pictureBoxに描画する時に、マウスとともに移動できる線(1つ前に描画した線を消せる)を 引きたいと思ったのですが、何の関数を使えば良いか分かりません・・・ よくマウスの先端から縦横に線が出て、今いる座標が分かるような描画ソフトがありますよね、 あんな感じの線を描画したいです。 つまり線は見えるけども後ろの絵は消えてないというやつです。それでマウスが動いたら 縦横の線も移動します。 どういう方法があるのでしょうか?

  • Pixiaの使い方

    初めまして楽遊(らくゆう)と申します。 Pixiaをダウンロードして描画を試しているのですが、直線すら描くことができません。新規作成画面を表示して、アイコン「領域ー直線」をクリックし、ドラッグ&ドロップすると直線が引けますが、その両端には小さな四角形が付いています。続いて次の線を引こうとクリックすると今描いた小さな四角形の付いた線は消えてしまいます。どのようにすれば今描いた線を確定して次の線を描けるのでしょうか? 非常に初歩的な質問で申し訳けありませんが、どなたかご教示願います。

  • PhotoShopで地図をなぞりたい

    PhotoShop7です。 地図のあるエリアを太線で囲みたいのですが、うまくいきません。 なげなわツールで道路をなぞるのですが、マウスがうまく動かず へなへなの線になってしまいます。 「ここからここまでは直線」、というような指定はできないでしょうか? よろしくお願いします。

  • 図の削除直後の再描画

    VB2008 Express Edditionを使って、写真画像に直線等の図形を重ねる プログラムを作っています。 PictureBoxのBackgroundImageに写真画像を設定し、 Dim gp As Graphics = PictureBox1.CreateGraphics() gp.DrawLine(Pens.Pink, 100, 100, 300, 300) gp.Dispose() といった書式で図形が描画できること、それを削除するには If Not (PictureBox1.Image Is Nothing) Then PictureBox1.Image.Dispose() End If PictureBox1.Image = Nothing とすれば良いことは分かりました。 次に、例えば(100,100)-(300,300)の直線を(100,100)-(300,290)に 変更するような修正をしたいのですが、上記の図形削除と描画を 組み合わせれば良いと考えてやってみたのですが、一瞬図形が 表示されてすぐに消えてしまいます。 図形削除と再描画を別々のボタンに割り当てるとうまくいくのですが、 1つのボタンに割り当てて続けて行うとダメなようです。 これを回避するにはどうすればいいでしょうか?

  • DWG→PDF時の問題(線の太さ、紙のサイズ)

    DWG→PDF時に気になっていることがあります。お教え願います。 1.CADから直接印刷した紙とDWGから変換したPDFで比べると、PDFでは線の太さが反映されておらず、細線も太線もすべて同じ太さになっている。見難いのでPDFにDWGの線の太さを反映したい。何か方法はないでしょうか? 2.PDFへはA3までしか変換できないのですが、A2の図面をPDF化する方法はないでしょうか? DWG→PDFはAutoCad LT2002で図面を開いて、AcrobatPDFWrighter4.0へ印刷で、変換しています。 以上、よろしくお願いします。

  • Illustratorでの線の描画について

    Illustratorでの線の描画について 地図を下絵として道路を書いています。 ペンツールを使用して、1点をクリック、次の点をクリック直線が引けます。 さらに90度方向を変えてクリック。直線がひけるのですが、このときに 始点と最後の点を交えた三角の白い部分ができるのですが(説明が下手ですみません) これができないように線を描く方法を教えていただけませんでしょうか。 よろしくお願いします。

  • マウスの代わりにペンタブを使うことは可能ですか?

    WindowsXPを使ってます。 絵は描かないのですが、画像のトリミングやDTMのパラメーター調整で、 マウスをクリックしながら線を書くのがなかなか上手くいきません。 そこでペンタブだったら…と思ったのですが、 ペンタブでパソコンの通常の操作(描画ソフトではない、ソフトを使う場合を含め)を問題なく行えるのでしょうか? 何か少しでもアドバイスなどがあったら、お願いします。

専門家に質問してみよう