- ベストアンサー
WebBrowserコントロールでの保存場所変更に関する問題
- WebBrowserコントロールを使用してwebbrowserに表示するコードを教えていただきました。
- 保存場所を変えた場合に表示されない問題が発生しています。
- WebBrowser1.Navigate2 CurDir + "c:\temp.html"が問題のようです。解決方法を教えてください。
- a12b12
- お礼率51% (152/297)
- Visual Basic
- 回答数2
- ありがとう数0
noname#6715
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
その他の回答 (1)
関連するQ&A
- WebBrowserコントロール（続き）
昨日質問したものです。（VB6.0) 出来たと思ったらエラーが出てやっぱり出来ませんでした。 もう3時間挑戦してますがダメです。 例えば a = "<html><body>あいうえおかきく</body></html>" と入ってる場合 コマンドをクリックすれば WebBrowserにaを表示する方法なのですが、、 Private Sub Command1_Click() WebBrowser1.Navigate2 "about:blank" WebBrowser1.Document.Body.Innerhtml = a End Sub これだとエラーが出ます。 何がいけないんでしょう（T_T;;
- ベストアンサー
- Visual Basic
- WebBrowserについて
VB2005で、WebBrowserを使おうとしたところ次のような問題が発生しました。 フォームに、WebBrowserを貼り付けてボタンをクリックしたところsubの途中でStopさせるとWebBrowserに表示されません。どうしてでしょうか？教えてください。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") End Sub の状態だと表示されますが、 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") Stop End Sub で止めると表示されません。 教えていただけないでしょうか？宜しくお願い致します。
- ベストアンサー
- Visual Basic
- 表示プログラムについて
テキストの中の”あいうえお”のような文章を表示させるプログラムを作りたいんですが Private Sub Command1_Click() Open "c:\mydata\test.txt" For Input As #1 End Sub Private Sub Command2_Click() Close #1 End Sub では表示されませんでした。何がおかしいかとかどうすればいいか教えてください。お願いします。
- ベストアンサー
- Visual Basic
- WebBrowser ＷＥＢページ更新時に音を出し
WebBrowser ＷＥＢページ更新時に音を出したくない アクセスのフォームにWebBrowserコントロールを置いて、 Private Sub Form_Open(Cancel As Integer) Me.WebBrowser0.Navigate "http://finance.yahoo.co.jp/" End Sub としました。 コマンドボタンも設置して、 Private Sub コマンド1_Click() Me.WebBrowser0.Refresh End Sub としました。 フォームを開いたり、コマンドボタンを押したらサイトが表示されますがその際、音が鳴ります。 「シュッシュ」と言う感じです。 その音を出さない方法なんてありますか？ その音だけ出したくないので、ミュートにはしたくないです。 でもなぜかhttp://finance.yahoo.co.jp/だと音は鳴るけど http://oshiete.goo.ne.jp/にすると音は鳴りません。 ＯＳ：ｗｉ７、オフィス２００７です。 ご回答よろしくお願いします。
- ベストアンサー
- Visual Basic
- WebBrowserコントロールがおかしい
アクセスなのですが、 Sub test() DoCmd.OpenForm "FWebBrowser", acNormal Forms("FWebBrowser").WebBrowser0.Navigate "http://www.yahoo.co.jp/" End Sub を標準モジュールからすると 実行時エラー -2146500594 'item' メソッドは失敗しました'Forms'オブジェクト が発生します。 WebBrowserコントロールは参照設定は要らないですよね？ どちらにしろ参照不可になってるものはありません。 アクセスのバージョンは２０１０です。
- ベストアンサー
- オフィス系ソフト
- 現在開いているHTMLのソースを表示したい
vb6を使用しています。 インターネット関連では初心者です。 Private Sub Command1_Click() WebBrowser1.Navigate "http://oshiete.goo.ne.jp/" End Sub 上記内容で表示させたWebBrowser1のソースをそのままの状態で取得する方法を探しています。又、表示中のものを保存する方法でもかまいません。 ＩＥで「表示→ソース」と同じものを取得したいです。 ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
- ACCESSVBAで日付の表示を2007/12/31から2007年12月31日に変更したい
ACCESSVBAでdate関数を使って、 ファイルを出力すると、 2007/12/31 のような表示になります。 2007年12月31日 の表示で出力させたいのですが、 どうしたらいいのでしょうか。 宜しくお願いします。 ***************作成したVBA*********** Private Sub test_Click() Dim fNAME As String fNAME = "c:\test.htm" Open fNAME For Output As #1 Print #1, "<html>" Print #1, "<head>" Print #1, "</head>" Print #1, "<body>" ****ここで日付を表示させる***** Print #1, "<p>" & Date & "</p>" … … Print #1, "</body>" Print #1, "</html>" Close #1 '閉じる End Sub
- ベストアンサー
- その他（プログラミング・開発）
- コードが長すぎてエラーになってしますのですが・・・
VB4を始めて1ヵ月の初心者です。 下記のように沢山のテキストファイルの中に、テキストボックスから 文字を代入したいのですが、コードが長すぎて「プロシージャが大きすぎます」とエラーが出てしまいます。 各テキストファイルのABCの部分は実際は100行以上有り、全体で2,000行を超えるとエラーが出てしまいます。 これはVB4の限界なのでしょうか。もし、もっと長いコードでも大丈夫な方法が有りましたら、アドバイスお願いします。 Private Sub Command1_Click() Open "C:001.txt" For Output As #1 Print #1, "A" Print #1, "B" Print #1, "C" Print #1, Text1.Text Print #1, "Z" Close #1 Open "C:002.txt" For Output As #2 Print #2, "A" Print #2, "B" Print #2, "C" Print #5, Text2.Text Print #5, "Y" Close #2 ・ ・ ・ Open "C:100.txt" For Output As #100 Print #100, "A" Print #100, "B" Print #100, "C" Print #100, Text1.Text Print #100, "D" End Sub
- 締切済み
- Visual Basic
- webbrowserにappendChildでyahooへのリンクを追加させるには？
お世話になります。 以下のvb6のコードを見ていただきたいですが bodyタグの中にh1タグしかない簡単なページに <a href="http://www.yahoo.co.jp">ヤフーへ</a> というaタグをウェブブラウザに表示させた際に追加させたいと 思っています。 その際、href属性とhttp://www.yahoo.co.jpという値を つけくわえるコードがわかりません。 ｛vb.netだと elem.SetAttribute("HREF", http://www.yahoo.co.jp) で記述できるみたいですが、vb6だとコンパイルエラーがでてしまいます｝ どのようにコーディングすればよろしいでしょうか？ 教えてください。お願い致します。 Private Sub Command1_Click() WebBrowser1.Navigate ("http://hoho.hiho.jp/") Do While WebBrowser1.Busy = True '何もしないループ（笑） DoEvents Loop Start = Timer Do While Timer - Start < 2 DoEvents Loop Dim elm As IHTMLElement Set elem = WebBrowser1.Document.createElement("A") elem.innerText = "ヤフーへ" WebBrowser1.Document.body.appendChild (elem) End Sub
- ベストアンサー
- Visual Basic
- VB6 テキストへの書き込み
VB6 SP6でプログラムを作成中です。 あるテキストボックスに書いた文字列をコマンドを 押すと、#5のテキストへ書き込みたいと思います。コマンドを押すたびに改行させたいのですが、１行目のデータが書き換えられてしまいます。何か良い方法はありませんか？ Private Sub Command3_Click() Dim めぐ As String めぐ = Text1.Text Open "C:\Documents and Settings\Owner\デスクトップ\通信データ.txt" For Output As #5 Print #5, めぐ Close #5 End Sub
- 締切済み
- Visual Basic
補足
どうもありがとうございます。 CurDir自体を把握していませんでした、やってみると出来ました、ありがとうございました。