掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックスの選択項目をチャットの入力ボックスなどに貼り付けるには？ (ID:105079)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
大雑把に作成してみました。 フォーム上に 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
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2020 Takeshi Okamoto All Rights Reserved.