リストボックスの選択項目をチャットの入力ボックスなどに貼り付けるには？

クラ 2002-09-30 07:38:56 No: 105076

すみません。
タイトルが長くて。
タイトル通りです。
リストボックスの選択項目をチャットの入力ボックスなどに貼り付けるにはどうしたらいいでしょうか？

匿名 2002-09-30 22:22:40 No: 105077

チャットの入力ボックスって何ですか？
ブラウザ上のテキストボックスのことですか？

１つのフォーム上に
ListBox と Browser コントロールを配置しているのですか？

クラ 2002-10-01 02:35:16 No: 105078

あ、そうです。
ブラウザ上のテキストボックスのことです。
ひとつのフォーム上にListboxと「貼り付け」ボタンがあります。

とろ 2002-10-01 20:14:12 No: 105079

大雑把に作成してみました。

フォーム上に Text1, Command1, WebBrowser1 を貼り付けて、
下のコードをＣ＆Ｐして、実行してみて下さい。
Command1 をクリックすると、 Text1 の内容が
Yahoo! の検索文字入力のテクストボックスに表示されます。

Option Explicit
Private wDisp As Object
Private Sub Form_Load()
  WebBrowser1.Navigate2 "http://www.yahoo.co.jp/"
End Sub
Private Sub Command1_Click()
  Dim ooo As Object
  Dim cw As String
  For Each ooo In wDisp.Document.All.tags("input")
    With ooo
      cw = LCase(.getAttribute("type"))
      Select Case cw
        Case "text"
          .Value = "txtURL"
      End Select
    End With
  Next ooo
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  Set wDisp = pDisp
End Sub

とろ 2002-10-01 21:07:32 No: 105080

上の投稿、ちょっと間違ってましたね。
とりあえず、やり方は分かってもらえると
思うので、良しとしましょう。

クラ 2002-10-02 01:12:09 No: 105081

ありがとうございます

さっそくやってみますね。
あ、あとそのソースコードは何で作成したものですか？
ＶＢ6.0ですか？