表示済みの フォームに描画する方法？(VB2008)

質問

約４０日余りのVB.NET 初学者です。
そこで、この間の学習で意図して出来なかった諸点について質問します。

課題: 表示済みの フォームに hello, world と描画する！

フォームの Paint イベントハンドラで Font オブジェクトを生成して描画。
これは出来ました。
しかし、次の試みに失敗しました。

Private Sub btnUpdateGraphicsText_Click() Handles btnUpdateGraphicsText.Click
　　Dim msg As String = "hello, world!"
　　Dim aFont As New Font("Arial", 12)

　　xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
End Sub

一体、どうしたら成功するのかがサッパリわかりません。
宜しくお願いします。

回答No.1

himajin100000 · ベストアンサー

'自分だったらこう…フラグ一個作っちゃって，
'その状態に応じて作るかな。

Option Explicit On
Option Strict On
Option Compare Binary
Option Infer Off

Class Q4771076A
Inherits System.Windows.Forms.Form
Private button1 As System.Windows.Forms.Button
Private Updated As Boolean = False
Shared Sub Main()
Dim f As Q4771076A
f = New Q4771076A()
f.showDialog()
End Sub

Public Sub New()
button1 = New System.Windows.Forms.Button()
button1.Text = "更新"
button1.Width = 100
button1.Top = 0

AddHandler button1.Click,AddressOf Me.Button1_Click
AddHandler Me.Paint,AddressOf Me_Paint

Me.Controls.Add(button1)

End Sub

Public Sub Button1_Click(sender As Object,e As System.EventArgs)
Updated = Not Updated 'TrueならFalse,FalseならTrue
Me.Refresh()
End Sub

Public Sub Me_Paint(sender As Object,e As System.Windows.Forms.PaintEventArgs)
if Updated = True Then
Dim msg As String = "hello, world!"
Dim aFont As New System.Drawing.Font("Arial", 12)
e.Graphics.DrawString(msg,aFont,System.Drawing.Brushes.Red,100,0)
End If
End Sub

End Class

お礼

一昨日より４０日間の演習を再度やり直しています。
その中で、フォームのインスタンスにラベルを追加「hello,world」。
MSDNの例文がありましたので、そこまではクリア。
が、この課題は手も足も出ませんでした。
現状では２、３％しか理解できません。
が、何とか回答を参考に成功させたいと思っています。
ありがとうございました。