【課題２８のプログラム】

１．素材の作成

　　今回はなし。

　　ただし、"\\SKALA\教材提示ELEVATO\石山　謙\石山研究室(hyosiから開く)\"

　　の中のフォルダclipartにある下記のものを使用する。

　　meal01j.wmf, meal02j.wmf, meal03j.wmf, meal05j.wmf, meal08j.wmf, meal09j.wmf, meal12j.wmf

　　desrt01j.wmf, desrt03j.wmf, desrt04j.wmf, desrt05j.wmf, desrt06j.wmf, desrt07j.wmf

　　Winegrps.wmf, Plceset.wmf　　

２．メニューの作成

（１）メニューエディタの起動

　　[ツール］の中の［メニューエディタ］を選択する。

（２）「消去」メニューの作成

　次のように設定したらＯＫボタンをクリックする。

（３）「終了」メニューの作成

　次のように設定したらＯＫボタンをクリックする。

３．インターフェイスの作成

（１）ラベルを５つ配置する。

（２）テキストボックスを１つ配置する。

４．プロパティの設定

（１）ラベル

（２）テキストボックス

（３）フォーム

５．コードの記述

（１）mnuＤｅｌメニュー

（２）mnuＥｎｄメニュー

（３）フォーム・ロード

（４）フォーム・マウスダウン

　　ＭｏｕｓｅＤｏｗｎを選択する。

　　コードを記述する。

（５）ラベル

　　ラベル２のコード。

　　ラベル３のコード。

　　ラベル４のコード。

（６）変数宣言

６．プログラム全文

Dim Pcolor As Integer, K As Integer
Dim X1 As Integer, Y1 As Integer

Option Explicit

Private Sub Form_Load()
Dim i As Integer
　　form1.WindowState = 2
　　K = 0
　　Label2.BackColor = QBColor(1)
　　Label3.BackColor = QBColor(2)
　　Label4.BackColor = QBColor(3)
　　Label5.BackColor = QBColor(4)
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
　　form1.DrawWidth = Text1.Text
　　K = K + 1
　　form1.PSet (X, Y), QBColor(Pcolor)
　　If K = 1 Then
　　　　X1 = X
　　　　Y1 = Y
　　Else
　　　　form1.Line (X1, Y1)-(X, Y), QBColor(Pcolor)
　　　　K = 0
　　End If
End Sub

Private Sub Label2_Click()
　　Pcolor = 1
End Sub

Private Sub Label3_Click()
　　Pcolor = 2
End Sub

Private Sub Label4_Click()
　　Pcolor = 3
End Sub

Private Sub Label5_Click()
　　Pcolor = 4
End Sub

Private Sub mnuDel_Click()
　　form1.Cls
End Sub

Private Sub mnuEnd_Click()
　　End
End Sub

７．実行

８．保存

（１）フォーム

（２）プロジェクト