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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加