Labelを変数に格納して使う方法 (ID:114139)

名前

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

本文 こんにちは。よろしくお願いします フォームにラベル(Label1)を貼り付けて以下を実行すると aaa.lbl.Caption = aaa.Data ↑の部分で”オブジェクトが必要です”のエラーメッセージが出ます。 試しに「lbl As Variant」を「lbl As Label」に変えて試してみても aaa.lbl = Me.Label1 ↑の部分で”オブジェクト変数またはWithブロック変数が設定されていません” のエラーメッセージが出ます 構造体のメンバにラベルを持たせて、それに一旦格納して 使用するような事は出来ますでしょうか？ よろしくお願いします。 環境:win2000pro,VB6.0 -------------フォーム------------------- Private Sub Form_Load() aaa.lbl = Me.Label1 aaa.Data = "eee" Call DataSet01(aaa) End Sub -----------標準モジュール------------ Type TypeAAA lbl As Variant Data As String End Type Public aaa As TypeAAA Public Sub DataSet01(arg As TypeAAA) arg.lbl.Caption = arg.Data End Sub