- ベストアンサー
URLの形を決定できない？ accessデータベースのURLをWebBrowserで開く方法
- Webページを開くフォームを作成する際に、URLの形を決定できないエラーが発生しています。
- テキストボックスに直接URLを入力するとWebBrowserで正しく表示されますが、accessデータベースのURLを貼り付けるとエラーが発生します。
- リストボックスに並べたaccessのデータベースに登録されたURLをクリックすると、WebBrowserで順番に開くプログラムを作成したいです。
- ityounomi
- お礼率78% (142/181)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
関連するQ&A
- WebBrowserのURLプロパティについて
質問です。 ある某サイトの画像取得するプログラムを作ってるのですが、 検索しても出てこないのでここで質問させて頂きます。 最初に[TextBox1] と[TextBox2]が二つあります。 そしてそのテキストボックスにはURLの ../585dDws/ ←等の文字列を入れて それをWebBrowserで取得して読み込みを行いたいのですが、 WebBrowser2.Navigate(New Uri("http://www.*****.jp" + TextBox1.Text + ":" + TextBox2.Text + "/index.html")) 及び WebBrowser2.url(New Uri の方も読み込みました。が無理です。 でButtonを押しても WebBrowser 内は真っ白で読み取ってくれません。 どの様にすれば詠み込んでくれるのでしょうか？ 「+」と「&」等も変更してみましたが無理でした。
- 締切済み
- Visual Basic
- URLをテキストボックスに表示したい ｖｂ2008
Private Sub 移動CB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 移動CB.Click WebBrowser1.Url = New Uri(アドレスTextBox.Text) アドレスTextBox.Text = WebBrowser1.Url End Sub アドレスTextBoxにURLを手動で入力して、移動CBを押すと指定したサイトがWebBrowser1に表示されます。 そこでそのサイト内のURLをクリックしたときに新しいURLをアドレスTextBoxに表示させたいのですがうまくできません。 アドレスTextBox.Text = WebBrowser1.Urlがurlだとビルド失敗になってしまいます。 なので アドレスTextBox.Text = WebBrowser1.Text にしてみたのですがうまくできません。 どうすればいいのでしょうか？よろしくお願いします。
- ベストアンサー
- Visual Basic
- HTTP接続すると文字化けがおこってしまいます
VB2005です。 HTTPサーバーに接続してデータをテキストボックスに書き出す処理なのですが、どうしても文字化けしてしまい困っています。どうしたらよいでしょうか？ Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ' HTTPサーバーへ接続する Dim client As New WebClient Try ' HTTPサーバーへ接続しストリームを取得する Dim stream As System.IO.Stream = _ client.OpenRead(TextBox1.Text) ' テキストボックスへ結果を書き出す Dim reader As New System.IO.StreamReader(stream) TextBox2.Text = reader.ReadToEnd() reader.Close() stream.Close() Catch ex As WebException ' URLが不正の場合は例外が発生する MessageBox.Show(ex.Message) End Try End Sub
- 締切済み
- Visual Basic
- 0除算の例外処理ができない！！助けて！！
0除算の例外処理ができない！！助けて！！ ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ Try If (Flag = "数値") Then Flag = "演算子" Work = Total + Calc + Input Total = js.Eval(Work) Input = "" TextBox1.Text = Total End If Catch ex As Exception MessageBox.Show("Exception Error : 0除算を行いました。") End Try ～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～ Total + Calc + Inputは、すべて文字列です。 実行すると、ポップアップではなく、テキストエリアにこんな文字列が・・・ 0除算しても例外が発生しない・・・ 0 / 0 ・・・NaN (非数値) 1 / 0 ・・・+∞ そもそも、0除算ってなんですか？？？ 0で割っても例外が出ない！！
- ベストアンサー
- Visual Basic
- WEB BROWSERについて（VB2005 Express Edition）
無料のExpress Editionが出たので、VBからがんばっている初心者です。 ツールBOX内にある、WEB BROWSERについて教えてほしいのですが、 とあるWEBサイトにあるTXTファイルを、VBのTEXTBOX内に取り込みたいのですが、WEBBROWSERは、見るだけしかできないのでしょうか？ WEBBROWSER1.TEXT = TEXTBOX1.TEXT 見たいな事をしても表示されません。 WEBBROWSER以外の良い方法でもありましたら 教えてください。。 お願いします。。
- 締切済み
- Visual Basic
- htmlソースをテキストボックスに表示させて20行目の10文字の数字を取得したい。
恐れ入ります。 http://www.microsoft.com/japan/msdn/vbasic/migration/tips/WebClient/ このページのコードを使わせてもらって htmlソースをテキストボックスに表示することはできました。表示させたテキストボックスの20行目の10文字の数字を取得したいのですが、どのようにすれば取得できるんでしょうか？val関数も１行目だけみたいですし・・・。ちなみに20行目は var strReqHomeID = "0000100012"; という具合になっていて 0000100012 を取得したいのです。 -------------------以下コード---------------- Imports System Imports System.Text Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim download As New Net.WebClient() Dim temp As Byte() = download.DownloadData(TextBox1.Text) Dim change As Text.Encoding = Encoding.Default TextBox2.Text = change.GetString(temp) Dim filename As String = System.IO.Path.GetFileName(TextBox1.Text) If filename = "" Then filename = "Temp.html" End If Dim strPath = My.Computer.FileSystem.SpecialDirectories.Desktop strPath = strPath + "\" + filename download.DownloadFile(TextBox1.Text, strPath) WebBrowser1.Navigate(TextBox1.Text) Catch ex As Exception Throw End Try End Sub
- ベストアンサー
- Visual Basic
- VB2010から外部機器へのシリアル通信によるデー
VB2010をのserialport機能を用いて,外部機器にデータを送るプログラムを作成しています。 外部機器から送信されてきたデータの受信は問題なくできましたが,PCからの送信がうまく出来ません。 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox2.Text.Length = 0 Then MessageBox.Show("送信文字列を入力してください", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) TextBox2.Focus() Exit Sub End If Try SerialPort1.WriteLine(TextBox2.Text) Catch ex As Exception MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub プログラムは上記のようになります。(microsoftのサンプルそのままです。） 上記のプログラムで 数字の「1」を送信したいのですが,うまく送ることができません。 外部機器は,データが送信されたことは感知していますが, 「1」 が送られたことは認識できていないようです。 serialdebug2というソフトを使用して,「1」 を送信した場合は,問題ありませんでした。 どうすれば,上記のような問題を解決できるｄしょうか?
- ベストアンサー
- Visual Basic
- PCからPICへのデータ送信について
VB2010をのserialport機能を用いて,外部機器にデータを送るプログラムを作成しています。 外部機器から送信されてきたデータの受信は問題なくできましたが,PCからの送信がうまく出来ません。 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If TextBox2.Text.Length = 0 Then MessageBox.Show("送信文字列を入力してください", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) TextBox2.Focus() Exit Sub End If Try SerialPort1.WriteLine(TextBox2.Text) Catch ex As Exception MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub プログラムは上記のようになります。(microsoftのサンプルそのままです。） 上記のプログラムで 数字の「1」を送信したいのですが,うまく送ることができません。 外部機器は,データが送信されたことは感知していますが, 「1」 が送られたことは認識できていないようです。 serialdebug2というソフトを使用して,「1」 を送信した場合は,問題ありませんでした。 ほかのサイトでも質問させてもらい,VBの文字コードを変換するようにとのアドバイスを頂き,実行しましたが,うまくデータが送信できませんでした。 どうすれば,上記のような問題を解決できるでしょうか?
- ベストアンサー
- 電気設計
- WebBrowserでHtmlを取得
WebBrowserでHtmlを取得する方法をおしえてください フォーム上に、WebBrowser1、TextBox1、Button1を配置しています。 TextBox1にHtmlを表示し、Button1は、WebBrowser1に表示している WEBページを更新します。 やりたい事 (1)フォームを開いた時に、URLで指定したWEBページを表示させ TextBox1にHtmlを表示させる。 (2)Button1をクリックした時、表示しているWEBページを更新する。 更新後のHtmlをTextBox1に表示させる。 (3)TextBox1の表示が完了したらHtmlを処理する。(未着手） 現在、(1)は動作するのですが、(2)が動作しません（TextBox1のHtmlが更新されない） Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load WebBrowser1.Navigate(オッズURL):webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = "" If Not WebBrowser1.Url.Equals("about:blank") Then WebBrowser1.Refresh() : webcompflag = False Do While (webcompflag = False) System.Windows.Forms.Application.DoEvents() System.Threading.Thread.Sleep(10) Loop TextBox1.Text = WebBrowser1.Document.Body.InnerHtml End Sub 何がいけないのか分かりません よろしくお願いします。
- ベストアンサー
- Visual Basic
- VB TEXT読み取りについて
このコードでのデバックは成功したのですが、TEXTBOX1にファイルネーム C:\Users\？？？\Documents\？？？と入力しても’パスが拒否されました’と出てしまいます。 どう解決したらよいのでしょうか、宜しくお願いします。 Public Class Form1 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sr As System.IO.StreamReader = Nothing Try Dim file As String = TextBox1.Text sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis")) Dim doc As String = "" Do Until sr.EndOfStream doc &= sr.ReadLine & vdcrlf() Loop TextBox2.Text = doc Catch ex As Exception MessageBox.Show(ex.Message, "read") Finally If sr IsNot Nothing Then sr.Close() sr.Dispose() End If End Try End Sub Private Function vdcrlf() As String Throw New NotImplementedException End Function End Class
- ベストアンサー
- Visual Basic
お礼
ありがとうございます。昨日、といいますか今日の夜中に何とか解決できました。 アドバイスありがとうございます。