こんにちは。よろしくお願いします
フォームにラベル(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
set aaa.lbl = Me.Label1
とか。
できました
どうもありがとうございました
ツイート | ![]() |