Labelを変数に格納して使う方法

解決

まる 2004-06-23 19:59:28 No: 114139

こんにちは。よろしくお願いします
フォームにラベル(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

nanashi 2004-06-23 20:08:48 No: 114140

set aaa.lbl = Me.Label1

とか。

まる 2004-06-23 20:20:48 No: 114141

できました
どうもありがとうございました