プログラム

(フォーム設計)

プロパテーの設定

Form1．Font：サイズ＝７２、書体＝太字

Form1.BackColor=白

Form1.ScaleMode=ピクセル

(コード)

実行画面(図1)で[背景]コマンドをクリックしたとき、文字　W　を背景色と同じ色の円でマスクしたとき、

文字が認識できなくなるように、 Circle (70, 60), 12, col　文を幾行か適当に並べてみる(試行錯誤で何回か試みる)。

Command２_Click() と Command1_Click() 　のプロシージャは　col = RGB(255, 0, 0)　など　の色指定文が異なる以外は同じコードです。

'　プログラム名　SakkakuMoji.frm

Private Sub Command1_Click() 　　　'「上書き」

CurrentX = 60
CurrentY = 40
Print "W"
col = RGB(255, 0, 0)
FillStyle = 0
FillColor = col

Circle (70, 60), 12, col
Circle (70, 100), 15, col
Circle (110, 120), 20, col
Circle (120, 60), 15, col
Circle (110, 80), 12, col
Circle (90, 100), 5, col
Circle (80, 110), 10, col
End Sub

Private Sub Command2_Click() 　　　'「背景」
CurrentX = 60
CurrentY = 40
Print "W"
col = RGB(255, 255, 255) 　　　'背景（BackColor）と同じ「白」を指定

FillStyle = 0
FillColor = col

Circle (70, 60), 12, col
Circle (70, 100), 15, col
Circle (110, 120), 20, col
Circle (120, 60), 15, col
Circle (110, 80), 12, col
Circle (90, 100), 5, col
Circle (80, 110), 10, col
End Sub

先頭ページに戻る