質問: StoreName End Sub Private Function GetStoreName(ByVal StoreCode As String) As String '本来はここにデータベース等から店名を取得する処理を書く Return "Visual Basic 中学校" End Function ```
回答: 僕もこういう質問の仕方をしていた時期があったけど・・・次回からはせめてエラーの場所とエラーメッセージとなにを試したかを書くともっとスムーズに回答が得られますよ。 回答は・・・ txtStoreCodeはVB中学校での説明で使用しているtextboxのコントロール名です。 自分でアプリケーションを作ってみると想像してみてください。 家計簿なんかをそうぞうするとわかりやすいとおもいます。 買ったもの(textbox1)金額(textbox2)とかだとわかりづらいですよね? なので自分のわかりやすいように変更しちゃうのです。 例えば 買ったもの(txtbuy)金額(txtprice)などとつけたほうがコードを打つ時もわかりやすいし あとから読むときもわかりやすいために変更して記述します。 おそらくエラーが起こっているのはその名前の部分なのでそこをかえてあげるのと もうひとつLabelのコントロールを置いてください。これについてコントロール名は何でもいいです。 イベントの発生のさせ方はいろいろありますがTabキーを押すとVisual Basic 中学校と表示されるはずです。