コントロールのプロパティを変更するには？ (ID:142563)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちは、初めてこちらの掲示板を利用させて頂きます。 VBの勉強を始めることになり、コードを書いていたのですが、 早速つまづいてしまいました。 参考書やネットなどで自分なりに解決先を探してみたのですが、 これといった原因が見つからなかったため質問させて頂きます。 初心的な内容になりますが、何が原因でどの様にすればよいのか お力添え頂けると幸いです。 【 環境 】 OS：Windows XP 開発環境：Visual Web Developer 2008 Express Edition 開発言語：VB 【 やりたいこと 】 操作画面に配置したコントロールの表示をクラスを使って変更したい （Label1.textプロパティの表示） 【 状況 】 ①操作画面上にコントロールを配置（Label1、Button1、Button2） ②Label1.textに情報を格納 ③①にて自動作成されるクラス（以後「旧クラス」）とは別にクラス（以後「新クラス」）を作成 ④③にて作成した新クラスに旧クラスを継承し、メソッドを定義 メソッド内容：新クラスに引数をもたせ、引数をLabel1.textプロパティに格納する ⑤旧クラスにてButton1、Button2のクリックイベントプロシージャでLabel1.textプロパティに 変更を加えた値を引数にして新クラスで作成したメソッドを呼び出す ⑥⑤までの内容にて作成したコードのデバッグを実行すると、Button1、Button2のクリック時に エラーが発生 ・エラーメッセージ 「NullReferenceExceptionはユーザーコードによってハンドルされませんでした。 オブジェクト参照がオブジェクト インスタンスに設定されていません。」 ・エラー箇所 新クラスにてLabel1.textプロパティを設定したところ 【 コード内容 】 Public Class _Default Inherits System.Web.UI.Page '操作画面表示時にLabel.textプロパティに情報を格納 Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = Month(Now) End Sub 'Button1クリック時にクラスhyoziのメソッドhzを呼び出す Public Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim s As Integer Dim zi As New hyozi s = Label1.Text - 1 zi.hz(s) End Sub 'Button2クリック時にクラスhyoziのメソッドhzを呼び出す Public Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim r As Integer Dim zi2 As New hyozi r = Label1.Text + 1 zi2.hz(r) End Sub End Class Public Class hyozi 'クラス_Defaultを継承 Inherits _Default 'メソッドの定義 '（メソッド内容：クラス_Defaultのクリックイベントにて引数を引き継ぎ、その引数内容でLabel1.textプロパティを変更） Public Sub hz(ByVal t As Integer) 'Dim z As New _Default Label1.Text = t '← ここでエラーになります 'MsgBox(Label1.Text) End Sub End Class