■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#5267-0
ブラウザのURLをクリップボードにコピーするには
ブラウザー(IEに限らない)のURL欄に表示されているURLをテキストコントロールに代入、もしくは
クリップボードにコピーしたいのですが、ブラウザーのURLはどういった参照をしていいのか分かりま
せん。

テキストボックスの内容をクリップボードにコピーしたり、コピーされた内容を貼り付ける方法や
指定したURLでブラウザーを開く方法などはサンプルコードなどが豊富にあったので分かったのです
が、現在表示中のブラウザーのURL欄の中のテキスト(アドレス)はどう拾ってきたらいいか分かりません
(調べ方が悪いのだと思いますが・・)

どなたか方法をご存知の方は伝授お願い申し上げます

WinME/VB5
#5280-0
RE#5267:ブラウザのURLをクリップボードにコピーするには
初めまして、僕も以前同じことで悩みました^^;

#初心者なので間違ったこというかもしれません。。。

IE(バージョン4〜6)だったら簡単にできます。
サンプルです。
まずIEを起動してYahooでも表示しておいてください。
次に、
メニュー→プロジェクト→参照設定からMicrosoft Internet ControlsにチェックをつけてOKボタンを押
してください。
そのあと、フォームにコマンドボタンを一つ貼り付けて、下のコードを入力して実行してみて下さい。
Option Explicit
Private ie As SHDocVw.WebBrowser


Private Sub Command1_Click()
  Dim sw As New SHDocVw.ShellWindows
  
  Set ie = sw(0)
  MsgBox ie.LocationURL
  Set ie = Nothing
End Sub

> ブラウザー(IEに限らない)
IE以外だと上のようなやり方では無理です(多分...
なので僕はブラウザのURL欄のハンドルを取得して、SendMessage()APIでWM_GETTEXTメッセー
ジを送信することで無理矢理解決しました。これならIEに限らず取得することができると思います。

では、がんばってください(初心者がえらそうなこといってすみません)。
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)