第16回 私は初心者です?「2.出発点はとりあえず」

16−2 出発点はとりあえず


うーむ。何となく、理解できたぞ。
色々なコマンドがあるけど、要するにプログラムの流れを制御すれば良いんだな。確かに、初心者向けの講座なんだから、この第15回ってのを、もう少し前に書いてくれ、と思わなくも無いけど、まぁ、筆者も忘れてたんだろう。

とりあえず、あの店とこの店の数件くらいだから、そんなに難しそうじゃないかな。
店の名前は分かっているだから、それを選んだら店の名前が表示されれば十分と考えれば、画面は、こんな感じでどうだろう。

    →→
こんな感じで、上のリストから店を選んだら、下に情報が表示されれば良いんだよな?
やっぱりPopupの方がカッコいいよな。で、これを選んだら、店の情報が表示されれば完璧だ。
おお、おの「選んだら」というのが、講座で頻繁に登場する「イベント」って奴だな。イベント、イベントと繰り返し登場する割に、頭に入らかったけど、こうやって自分の言葉になると、分かりやすいな。
えっと、第10回のPopupのところには、値を選択した後にPopupのイベントが発生するって書いてあるから、それを使えば良いのかな。

どれが選ばれているかどうかは…
ああ、SelectedとかItemTextとかを組み合わせるのかな。ふーん、TextとItemTextの2種類があるんだな。恐らく、筆者も忘れてたんじゃないかな。

えっと、ひとまず、Popupオブジェクトに、店の名前のを入れておこうか。

で、Fieldオブジェクトは、ちょっと大きめにして、と。
あれ?サイズを大きくしてもアンダーラインが1行しかつかないな。このSingle Lineというプロパティが怪しそうだ。シングルのラインがTrue、ということは複数の行にするならFalseにすれば良いんじゃないのかな。

    →→→→
うんうん、それらしくなって来たな。
ここまで来たら、早く動かしてみたいなぁ。とりあえず、選んだものをそのまま表示してみるか。
    
    Sub object1004()
    
        Field1006.Text=Popup1004.ItemText(Popup1004.Selected)
        
    End Sub
    

動くかな?

    →→→→→→

やった。選択したものが表示された〜!
単純なことだけど、何だか嬉しいなぁ。後は、選んだ店の名前毎に、表示するものを変えれば良いんだな。
こういうのは、読んだばかりの第15回にあったSelect〜Caseってのを使えばよいのか。
えっと、とりあえず、こんな感じで。

    
    Sub object1004()
    
        Select case Popup1004.ItemText(Popup1004.Selected)
            Case "AB飯店"
                Field1006.Text="独特な風味の肉汁が溢れるギョウザが特徴。商店街北。11:00-22:00、定休日:火曜"
    
            Case "UNG本舗"
                Field1006.Text="養殖ウナギを別物に変えてしまうタレが特徴。商店街入り口。10:00-19:00、定休日:日曜"
    
            Case "RS亭"
                Field1006.Text="アルデンテという言葉を忘れたような、柔らかパスタ。B町の角。10:30-20:00、定休日:第2・4水曜"
    
            Case "UMAI屋"
                Field1006.Text="唐揚げの美味いラーメン屋。ラーメンは最悪。駅裏路地。9:00-23:00、定休日:日、祝日"
    
            Case "定食のOHI"
                Field1006.Text="とにかく飯が大盛。味はそこそこ。消防署横。7:00-14:00、16:30-21:30、定休日:なし"
    
            Case "TF三昧"
                Field1006.Text="豆腐のフルコース。3日は豆腐が見たくなくなる量。駅近く。16:00-22:00、定休日:土、日、祝日"
    
        End Select
    
    End Sub
    

さ、実行、実行!



おっと動いたぞ!でも、何か見づらいな。
そうか、店の情報が1行でつながって表示されちゃうんだ。いや、と言うより、1行の文字数が決まっちゃってるか?
どちらにしても、行を変えて表示したいけど、できるのかな?どこかに書いてあるかも知れんから「改行」で「Palmなお部屋」を検索してみるか。

    chr(10)

これこれ!
じゃ、見栄えがいいように、こうしたらどうだろう。

    
    Sub object1004()
    
        Select case Popup1004.ItemText(Popup1004.Selected)
            Case "AB飯店"
                Field1006.Text="独特な風味の肉汁が溢れるギョウザが特徴。" + Chr(10) + "商店街北" + chr(10) + "11:00-22:00" + chr(10) + "定休日:火曜"
    
            Case "UNG本舗"
                Field1006.Text="養殖ウナギを別物に変えてしまうタレが特徴。" + Chr(10) + "商店街入り口" + Chr(10) + "10:00-19:00" + Chr(10) + "定休日:日曜"
    
        Case "RS亭"
                Field1006.Text="アルデンテという言葉を忘れたような、柔らかパスタ。" + Chr(10) + "B町の角" + Chr(10) + "10:30-20:00" + Chr(10) + "定休日:第2・4水曜"
    
            Case "UMAI屋"
                Field1006.Text="唐揚げの美味いラーメン屋。ラーメンは最悪。" + Chr(10) + "駅裏路地" + Chr(10) + "9:00-23:00" + Chr(10) + "定休日:日、祝日"
    
            Case "定食のOHI"
                Field1006.Text="とにかく飯が大盛。味はそこそこ。" + Chr(10) + "消防署横" + Chr(10) + "7:00-14:00、16:30-21:30" + Chr(10) + "定休日:なし"
    
            Case "TF三昧"
                Field1006.Text="豆腐のフルコース。3日は豆腐が見たくなくなる量。" + Chr(10) + "駅近く" + Chr(10) + "16:00-22:00" + Chr(10) + "定休日:土、日、祝日"
    
        End Select
    
    End Sub
    


できた〜!




◆◆◆◆



「センパイ、美味いじゃないですか!」
「だろ、ここのギョウザ、独特の味わいが忘れられなくなるんだよ。」
「確かに、この肉汁がスゴイです。それに…」
「それに?」
「そのプログラム、自分で作ったんでしょ?スゴイなぁ〜!」
「いやぁ、そんな難しいもんじゃないさ。ははは。」

そうは言いながらも、内心はVサイン、名誉挽回を果たした気分の夜だった。

前へ    目次へ    次へ

第16回 私は初心者です?「2.出発点はとりあえず」