switch文がVBの様に書けなかったので、上のように配列に区分の数を入れて、配列の添え字を
caseの値に当てました。これなら連続の番号ですから、良いようです。
以前ソースを貼り付けていたら、次回に編集のために読み込むと、ソースが欠落することが有りました。
なのでスクリーンショットを載せていたんですが、アップロードできなくなりました。仕方ないので
前のようにソースを貼り付けます。
個別にアップロードしたら出来ましたので、もう一度スクリーンショットに戻しました。
switch文がVBの様に書けなかったので、上のように配列に区分の数を入れて、配列の添え字を
caseの値に当てました。これなら連続の番号ですから、良いようです。
以前ソースを貼り付けていたら、次回に編集のために読み込むと、ソースが欠落することが有りました。
なのでスクリーンショットを載せていたんですが、アップロードできなくなりました。仕方ないので
前のようにソースを貼り付けます。
個別にアップロードしたら出来ましたので、もう一度スクリーンショットに戻しました。