[リストへもどる]
一括表示

投稿時間:2002/09/30(Mon) 21:26
投稿者名:ほえほえ
Eメール:
URL :
タイトル:
オブジェクトの検索
こんちわ。質問させてください。

オブジェクトとして、「aaa」、「bbb」というテキストボックスを用意し、
別のテキストファイル(test.txtとしましょう)を用意します。

test.txtファイル内を参照し、
aaa
とあったら、
「aaa」オブジェクトのaaa.text内のデータを取得する。

また、test.txtファイル内に
bbb
とあったら、
「bbb」オブジェクトのbbb.text内のデータを取得する。

みたいなことはできますか?
つまりは、ファイル内のデータから、オブジェクトを指定したいのですが。
教えてください〜。

投稿時間:2002/09/30(Mon) 21:40
投稿者名:NAO★
Eメール:
URL :
タイトル:
Re: オブジェクトの検索
こんな感じでしょうか?
Private Sub Command1_Click()
    Dim obj  As Object
    Set obj = Text1
    obj.Text = obj.Name
End Sub

これで変数Objに設定されているText1というオブジェクトの名前が取得できます
あとはObj変数を配列にするなりすれば良いと思います

投稿時間:2002/10/01(Tue) 09:20
投稿者名:ほえほえ
Eメール:
URL :
タイトル:
Re^2: オブジェクトの検索
NAO★さん、お返事ありがとうございます。
ただ、ちょっと意図が違ってるように思います。
私の説明がお粗末ですいません。

私のやりたい事は以下のようなことです。

text.txtというファイルに
aaa
というデータが入ってるとして、

Private Sub Command1_Click()
   Dim strA as Object

   open "test.txt" for input as #1
   line input #1,strA  ←strAに"aaa"を入れた
   close #1
   msgbox strA.Text   ←ここで、aaaオブジェクトのtextの中身を表示したい!

End Sub

こんな感じですが、できません。
多分、最後の行で何かしなければならないと思うのですが、分かりません。
教えてくださいませ〜。

> こんな感じでしょうか?
> Private Sub Command1_Click()
>     Dim obj  As Object
>     Set obj = Text1
>     obj.Text = obj.Name
> End Sub
>
> これで変数Objに設定されているText1というオブジェクトの名前が取得できます
> あとはObj変数を配列にするなりすれば良いと思います

投稿時間:2002/10/01(Tue) 09:57
投稿者名:よねKEN
Eメール:
URL :http://www5b.biglobe.ne.jp/~yone-ken/
タイトル:
Re^3: オブジェクトの検索
> Private Sub Command1_Click()
>    Dim strA as Object
>
>    open "test.txt" for input as #1
>    line input #1,strA  ←strAに"aaa"を入れた
>    close #1
>    msgbox strA.Text   ←ここで、aaaオブジェクトのtextの中身を表示したい!

配置済みのオブジェクトなら、Me.Controls(strA).Textでいけます。

存在しないオブジェクトの場合で、動的にオブジェクトを生成したいなら、
バージョンがVB6限定ですが、Controls.Addが使えるでしょう。

投稿時間:2002/10/01(Tue) 16:19
投稿者名:ほえほえ
Eメール:
URL :
タイトル:
解決( ̄ー ̄)v ブイ!
よねKENさん、解決しました!
ありがとうございました。

またお願い致しますぅ。