最近、VB6からVB.NET 2003へプログラムの移行作業を始めたものです。極々基本的なことなのかもしれませんが、.NETでフォームに描いたグラフィック(線や円など)を消去するコードがなかなかうまく書けず困っています。
VB6でしたら Form**.Cls だけで消えるのですが、それに対応するコードはどのように記載すれば宜しいでしょうか?
ヘルプなどで見るとClearメソッドを使用するとありましたが、どうもうまく動きません。
例えば、以下の簡単な例でしたらどのように変えれば宜しいでしょうか?
宜しくお願いいたします。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grph As System.Drawing.Graphics
grph = Me.CreateGraphics
grph.DrawLine(Pens.Red, 50, 25, 200, 150)
ClearScreen(e)
End Sub
Public Sub ClearScreen(ByVal e As PaintEventArgs)
Dim BGcolor As Color
BGcolor = Color.FromArgb(0, 0, 0)
e.Graphics.Clear(BGcolor) '背景色
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ClearScreen(e)
End Sub
No.1ベストアンサー
- 回答日時:
お望みのことをするには、Button2のClick時にFormのRefreshメソッドを呼んであげればOKです。
そうすれば、フォームが再描画されて描画済みのグラフィックが消去されます。コードとしてはこんな感じです。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim grph As System.Drawing.Graphics
grph = Me.CreateGraphics
grph.DrawLine(Pens.Red, 50, 25, 200, 150)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Refresh()
End Sub
有難うございました!
確かにうまく行きました。
Clearメソッドは背景色が決められたもの、(そうでなくても吸い上げればよいとは思いますが)に対してはうまく動くようです
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- その他(Microsoft Office) VBA メール送信済で実行されるはずが、実行されない時があります。 2 2023/02/02 14:05
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ピクチャーボックスに点を打つ .NET
Visual Basic(VBA)
-
VB.netでのライン描画方法がわかりません
Visual Basic(VBA)
-
FORMが開いているかどうかの確認方法
Visual Basic(VBA)
-
-
4
VB.NETでグラフィックを描くと消えてしまいます
Visual Basic(VBA)
-
5
VS 2008(VB.NET)
Visual Basic(VBA)
-
6
VB6からVB2010への変換について
Visual Basic(VBA)
-
7
VB6のPrinter.ScaleWidth に対応するvb.netの
Visual Basic(VBA)
-
8
VB.NETでPictureBoxへの描画について
Visual Basic(VBA)
-
9
VB6.0の「vbFromUnicode」はVB.NETではどれに相当しますか?
Visual Basic(VBA)
-
10
VB .net Form_Load時、または関数内でPictureBoxにライン描画を行ないたい。
Visual Basic(VBA)
-
11
Shapeコントロールの.NET移行方法
Visual Basic(VBA)
-
12
ピクチャーボックスの大きさに合わせて画像を表示
Visual Basic(VBA)
-
13
VB.NETにて、構造体へデータをセットするにはどうすればよいですか?
Visual Basic(VBA)
-
14
ピクチャボックスの座標取得
Visual Basic(VBA)
-
15
Designer.vbは直接コードをいじってはだめ?
Visual Basic(VBA)
-
16
DoEventsがやはり分からない
Visual Basic(VBA)
-
17
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
18
VBのソース上からAccessのmdbファイルのクエリを呼び出す
Visual Basic(VBA)
-
19
VBの画面サイズについて
Visual Basic(VBA)
-
20
VBでグローバル変数を宣言するには
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Androidで画像の中で指定した範...
-
SwingのpaintComponent(...
-
GDI+で描画した画像を消去する...
-
画面のちらつきの原因が知りた...
-
Java、jPanelに描画する
-
getGraphics()の意味を教えて...
-
Canvas等の図形を移動する時,直...
-
C# リストビューの特定のセルの...
-
JAVAでの背景画像表示
-
エクセルVBAで、条件に一致する...
-
「タイプ初期化子が例外をスロ...
-
オブジェクト指向プログラミン...
-
生成したインスタンスを削除す...
-
変数名の付け方
-
servletからjspへオブジェクト...
-
レコード件数の表示
-
複数の変数を宣言する時、同時...
-
private static という変数の修飾
-
インスタンス参照でアクセスで...
-
String.containsの反対機能はあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.NET フォーム上に描いたグ...
-
VB.NETのSendMessageを教えてく...
-
JAVAでの背景画像表示
-
C# DataGridView のCellPaintin...
-
C# リストビューの特定のセルの...
-
重なった要素上でのイベントで...
-
画面のちらつきの原因が知りた...
-
Androidで画像の中で指定した範...
-
複数画像表示切り替え Visual c++
-
Labelコントロールの背景をグラ...
-
VS Treeview のデザイン変更
-
描画処理が実行されない
-
GDI+で描画した画像を消去する...
-
canvasで表示されてる画像を1...
-
このプログラミングをどう組み...
-
ドラッグして矩形を描くには
-
getGraphics()の意味を教えて...
-
DirectXのスプライト機能で3D回転
-
Canvas等の図形を移動する時,直...
-
Exception occurred during eve...
おすすめ情報