HP への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 さなだ丸 (社会人)
投稿日時
2010/7/30 14:55:37
＞If .FileName.Substring(.FileName.Length - 4, 4) = ".html" Then
この部分、ファイル名の右から4文字が".html"の時、っていうifですが、
".html"てのは、5文字なんだから、
If .FileName.Substring(.FileName.Length - 5, 5) = ".html" Then
しないとダメなんじゃね？
この部分、ファイル名の右から4文字が".html"の時、っていうifですが、
".html"てのは、5文字なんだから、
If .FileName.Substring(.FileName.Length - 5, 5) = ".html" Then
しないとダメなんじゃね？
投稿者 tooo (高校生)
投稿日時
2010/7/30 14:47:35
With Me.SaveFileDialog1
.Filter = "HTMLファイル(*.html)|*.html"
.Title = ""
If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
If .FileName.Substring(.FileName.Length - 4, 4) = ".html" Then
Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End With
にしていましたがダイアログは出るのですが、保存を押しても保存されていません。
.Filter = "HTMLファイル(*.html)|*.html"
.Title = ""
If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
If .FileName.Substring(.FileName.Length - 4, 4) = ".html" Then
Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End With
にしていましたがダイアログは出るのですが、保存を押しても保存されていません。
投稿者 よねＫＥＮ (社会人)
投稿日時
2010/7/30 14:40:29
> いろいろ変えてみましたけど保存できませんでした。
> よく分かりません。
「よく分からない」という説明ではこちらも理解できないので、
先ほどの提示の「.txtでは保存できた」というコードをどのように変えて、
どういう結果になったのかを説明してください。
> よく分かりません。
「よく分からない」という説明ではこちらも理解できないので、
先ほどの提示の「.txtでは保存できた」というコードをどのように変えて、
どういう結果になったのかを説明してください。
投稿者 tooo (高校生)
投稿日時
2010/7/30 14:24:13
いろいろ変えてみましたけど保存できませんでした。
よく分かりません。
すいません。
以後気をつけます。
投稿者 よねＫＥＮ (社会人)
投稿日時
2010/7/30 13:53:16
>あと一つ分からないのですが名前を付けて保存でHTML形式で保存するにはどうすればいいのでしょうか？
> txt形式では、保存できました。
HTMLファイルは拡張子が.htmlや.htmというだけで中身は単なるテキストファイルですので、
拡張子を.txtとしているところを.htmlに変えるように対応すればOKですね。
--
以下、余談です。
全然、本題とは関係ありませんが、気になったので・・・
> よねＫＥＮさんありがとうございましたｗｗｗ
> おかげさまで出来るようになりましたｗｗ
私の理解ではネット上のスラングとして、wwやwwwを付けた場合、
(笑)または嘲笑を意味するものと理解しています。
(wを多く重ねる場合は嘲笑の意味としての使われ方が一般的だと思います）
(笑)の意味でも嘲笑の意味のどちらであっても、お礼の文に付けるのは
不適切ですのでやめておいた方がよいですよ。
高校生の間ではwwやwwwの意味が違ったり、ニュアンスが違ったりするのかもしれませんが、
一般的には誤解を受ける表現のため指摘しておきますね。
（toooさんに特に悪意があるとは私は受け取っていませんので、
私は特に気にしていませんけれども。）
> txt形式では、保存できました。
HTMLファイルは拡張子が.htmlや.htmというだけで中身は単なるテキストファイルですので、
拡張子を.txtとしているところを.htmlに変えるように対応すればOKですね。
--
以下、余談です。
全然、本題とは関係ありませんが、気になったので・・・
> よねＫＥＮさんありがとうございましたｗｗｗ
> おかげさまで出来るようになりましたｗｗ
私の理解ではネット上のスラングとして、wwやwwwを付けた場合、
(笑)または嘲笑を意味するものと理解しています。
(wを多く重ねる場合は嘲笑の意味としての使われ方が一般的だと思います）
(笑)の意味でも嘲笑の意味のどちらであっても、お礼の文に付けるのは
不適切ですのでやめておいた方がよいですよ。
高校生の間ではwwやwwwの意味が違ったり、ニュアンスが違ったりするのかもしれませんが、
一般的には誤解を受ける表現のため指摘しておきますね。
（toooさんに特に悪意があるとは私は受け取っていませんので、
私は特に気にしていませんけれども。）
投稿者 tooo (高校生)
投稿日時
2010/7/30 12:21:16
よねＫＥＮさんありがとうございましたｗｗｗ
おかげさまで出来るようになりましたｗｗ
あと一つ分からないのですが名前を付けて保存でHTML形式で保存するにはどうすればいいのでしょうか？
txt形式では、保存できました。
With Me.SaveFileDialog1
.Filter = "テキストファイル(*.txt)|*.txt"
.Title = ""
If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
If .FileName.Substring(.FileName.Length - 4, 4) = ".txt" Then
Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End With
↑これをちょっと変えたら出来ますかね？
おかげさまで出来るようになりましたｗｗ
あと一つ分からないのですが名前を付けて保存でHTML形式で保存するにはどうすればいいのでしょうか？
txt形式では、保存できました。
With Me.SaveFileDialog1
.Filter = "テキストファイル(*.txt)|*.txt"
.Title = ""
If (.ShowDialog() And DialogResult.OK) And (.FileName.Length > 0) Then
If .FileName.Substring(.FileName.Length - 4, 4) = ".txt" Then
Me.RichTextBox1.SaveFile(.FileName, RichTextBoxStreamType.PlainText)
End If
End If
End With
↑これをちょっと変えたら出来ますかね？
投稿者 よねＫＥＮ (社会人)
投稿日時
2010/7/30 00:17:01
> >Buttonをクリックしたときに、RichTextBox.Textの内容をWebBrowserに表示することはできますか？
> ここは出来ません。
RichTextBoxとWebBrowserとButtonを1つずつ貼り付けたFormを用意した上で、
以下のコードを書くだけです。
(YASさんの方法の方が簡潔に書けるので参考にさせてもらいました)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WebBrowser1.DocumentText = Me.RichTextBox1.Text
End Sub
後は、RichTextBox1にHTMLコードを入力して、Button1をクリックすればよいですね。
> ここは出来ません。
RichTextBoxとWebBrowserとButtonを1つずつ貼り付けたFormを用意した上で、
以下のコードを書くだけです。
(YASさんの方法の方が簡潔に書けるので参考にさせてもらいました)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WebBrowser1.DocumentText = Me.RichTextBox1.Text
End Sub
後は、RichTextBox1にHTMLコードを入力して、Button1をクリックすればよいですね。
投稿者 tooo (高校生)
投稿日時
2010/7/29 23:37:36
僕が思っていることとちょっと違います(泣
あの～僕が今思っているのはRichTextBoxにHTMLコードを人ととおり全てコードを書きます。
こんな感じに↓
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="ja" xml:lang="ja" xmlns="http://www.w3.org/1999/xhtml">
<head xmlns="">
<title>イーグル.net</title>
</head>
<!-- head end -->
<div id="head_menu">
<ul>
<li class="a01"><a href="http://igurunet.zouri.jp/">HOME</a></li>
<li class="a02 off" onmouseover="this.className='a02 on'" onmouseout="this.className='a02 off'"><a>TOOL</a>
<ol class="sub3">
<li><a href="contents01.html">music&IE</a></li>
<li><a href="mp3player.html">MP3Player</a></li>
</ol>
</li>
<li class="a03"><a href="vbkouza.html">VB講座</a></li>
<li class="a04"><a href="hpsakusei.html">HP作成講座</a></li>
<li class="a05"><a target="_self" href="otoiawase.html">お問い合せ</a></li>
</ul>
</div>
<!-- head_menu -->
<div id="main_image">
<p><img alt="" width="800" height="280" src="http://igurunet.web.fc2.com/c20090214_mhg_16.jpg" /></p>
</div>
<!-- main_image end -->
<div style="width: 797px; height: 534px" id="contents">
<div id="top">
<div id="top_up">
<div id="left">
<h3><img alt="WELCOME" width="360" height="22" src="img/top/st_welcome.jpg" /></h3>
<p>管理者：tomoya<br />
～自己紹介～<br />
年齢：12月で16歳ｗｗ<br />
高校生です。<br />
こんな、俺ですけどなにとぞよろしくお願いします。<br />
<br />
当サイトは、自作で作成したツールを無料配布しているサイトです。<br />
なおVBで作ったツールですのでランタイムが必要かも知れませんww<br />
<font color="#ff0000">ツールの二次配布、当サイトの画像の転移などは絶対しないでください！</font> <br />
<br />
<br />
</div>
<!-- left 終わり -->
<div id="right">
<h3><img alt="インフォメーション" width="360" height="33" src="img/top/st_info.gif" /></h3>
<div id="info">
<div id="main">
<h4>2010/7/27</h4>
<p>MP3Player配布</p>
<h4>2010/07/21</h4>
<p>music&IE配布開始～</p>
<h4>2010/07/21</h4>
<p>HP作成完了</p>
</div>
</div>
<!-- info end --></div>
<!-- right end --></div>
<!-- top_up end -->
<div id="btm">
<div id="bnr_sps">
<ul>
<li> </li>
<li> </li>
</ul>
</div>
<!-- bnr_sps end --></div>
<!-- btm end --></div>
<!-- top end --><br />
<strong><font color="#ff0000" size="5">リンク</font></strong><br />
<a target="_self" href="http://vbtool.blog134.fc2.com//"><img border="0" alt="" width="223" height="85" src="bannre2.png" /></a>
<div id="info">
<div id="main">
<h4> </h4>
</div>
</div>
<!-- info end --></div>
<!-- right end --></div>
<!-- top_up end -->
<div id="main">
<h4> </h4>
</div>
</div>
<div> </div>
<!-- contents 終わり -->
<div> </div>
<!-- container end -->
<div id="foot">
<div id="copy">Copyright (C) イーグル <script type="text/javascript">document.write(new Date().getFullYear())</script><a イーグル.net="" href="./">. netAll Rights Reserved. </a><a target="_blank" href="http://www.low-ya.com/">家具</a></div>
<!-- copy --></div>
<!-- foot end -->
<div> </div>
</body>
</html>
↑これをWebBrowserが読み込んで表示するようにさせたかったです。
あの～僕が今思っているのはRichTextBoxにHTMLコードを人ととおり全てコードを書きます。
こんな感じに↓
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html lang="ja" xml:lang="ja" xmlns="http://www.w3.org/1999/xhtml">
<head xmlns="">
<title>イーグル.net</title>
</head>
<!-- head end -->
<div id="head_menu">
<ul>
<li class="a01"><a href="http://igurunet.zouri.jp/">HOME</a></li>
<li class="a02 off" onmouseover="this.className='a02 on'" onmouseout="this.className='a02 off'"><a>TOOL</a>
<ol class="sub3">
<li><a href="contents01.html">music&IE</a></li>
<li><a href="mp3player.html">MP3Player</a></li>
</ol>
</li>
<li class="a03"><a href="vbkouza.html">VB講座</a></li>
<li class="a04"><a href="hpsakusei.html">HP作成講座</a></li>
<li class="a05"><a target="_self" href="otoiawase.html">お問い合せ</a></li>
</ul>
</div>
<!-- head_menu -->
<div id="main_image">
<p><img alt="" width="800" height="280" src="http://igurunet.web.fc2.com/c20090214_mhg_16.jpg" /></p>
</div>
<!-- main_image end -->
<div style="width: 797px; height: 534px" id="contents">
<div id="top">
<div id="top_up">
<div id="left">
<h3><img alt="WELCOME" width="360" height="22" src="img/top/st_welcome.jpg" /></h3>
<p>管理者：tomoya<br />
～自己紹介～<br />
年齢：12月で16歳ｗｗ<br />
高校生です。<br />
こんな、俺ですけどなにとぞよろしくお願いします。<br />
<br />
当サイトは、自作で作成したツールを無料配布しているサイトです。<br />
なおVBで作ったツールですのでランタイムが必要かも知れませんww<br />
<font color="#ff0000">ツールの二次配布、当サイトの画像の転移などは絶対しないでください！</font> <br />
<br />
<br />
</div>
<!-- left 終わり -->
<div id="right">
<h3><img alt="インフォメーション" width="360" height="33" src="img/top/st_info.gif" /></h3>
<div id="info">
<div id="main">
<h4>2010/7/27</h4>
<p>MP3Player配布</p>
<h4>2010/07/21</h4>
<p>music&IE配布開始～</p>
<h4>2010/07/21</h4>
<p>HP作成完了</p>
</div>
</div>
<!-- info end --></div>
<!-- right end --></div>
<!-- top_up end -->
<div id="btm">
<div id="bnr_sps">
<ul>
<li> </li>
<li> </li>
</ul>
</div>
<!-- bnr_sps end --></div>
<!-- btm end --></div>
<!-- top end --><br />
<strong><font color="#ff0000" size="5">リンク</font></strong><br />
<a target="_self" href="http://vbtool.blog134.fc2.com//"><img border="0" alt="" width="223" height="85" src="bannre2.png" /></a>
<div id="info">
<div id="main">
<h4> </h4>
</div>
</div>
<!-- info end --></div>
<!-- right end --></div>
<!-- top_up end -->
<div id="main">
<h4> </h4>
</div>
</div>
<div> </div>
<!-- contents 終わり -->
<div> </div>
<!-- container end -->
<div id="foot">
<div id="copy">Copyright (C) イーグル <script type="text/javascript">document.write(new Date().getFullYear())</script><a イーグル.net="" href="./">. netAll Rights Reserved. </a><a target="_blank" href="http://www.low-ya.com/">家具</a></div>
<!-- copy --></div>
<!-- foot end -->
<div> </div>
</body>
</html>
↑これをWebBrowserが読み込んで表示するようにさせたかったです。
投稿者 YAS (社会人)
投稿日時
2010/7/29 23:28:37
WebBrowserのDocumentTextプロパティにHTMLを設定すればよいのでは？
Public Class Form1
Dim WithEvents WebBrowser1 As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Dock = DockStyle.Fill
Me.Controls.Add(Me.WebBrowser1)
Me.WebBrowser1.DocumentText = "<html><head><title>イーグル.net</title></head><body>はじめまして</body></html>"
End Sub
End Class
Public Class Form1
Dim WithEvents WebBrowser1 As New WebBrowser
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Dock = DockStyle.Fill
Me.Controls.Add(Me.WebBrowser1)
Me.WebBrowser1.DocumentText = "<html><head><title>イーグル.net</title></head><body>はじめまして</body></html>"
End Sub
End Class
投稿者 tooo (高校生)
投稿日時
2010/7/29 23:26:03
出来ましたｗｗｗ
>Buttonをクリックしたときに、RichTextBox.Textの内容をWebBrowserに表示することはできますか？
ここは出来ません。
>Buttonをクリックしたときに、RichTextBox.Textの内容をWebBrowserに表示することはできますか？
ここは出来ません。
投稿者 よねＫＥＮ (社会人)
投稿日時
2010/7/29 23:21:06
まずは最初のお題に対して、私の回答でできましたか？できませんでしたか？
２つ目の質問は、１つ目の質問よりも多くのことをやろうとしていように見えます。
できていること、できていないことを区別しつつ、
できていないことを一つずつ解決した方がよいと思います。
RichTextBoxとWebBrowserとButtonを1つずつ貼り付けたFormを用意するとします。
Buttonをクリックしたときに、RichTextBox.Textの内容をWebBrowserに表示することはできますか？
ヒント：
私の提示したコード例では、FormのLoad時(画面表示時)に
WebBrowserにHTMLを表示するための指示をしています。
２つ目の質問は、１つ目の質問よりも多くのことをやろうとしていように見えます。
できていること、できていないことを区別しつつ、
できていないことを一つずつ解決した方がよいと思います。
RichTextBoxとWebBrowserとButtonを1つずつ貼り付けたFormを用意するとします。
Buttonをクリックしたときに、RichTextBox.Textの内容をWebBrowserに表示することはできますか？
ヒント：
私の提示したコード例では、FormのLoad時(画面表示時)に
WebBrowserにHTMLを表示するための指示をしています。
投稿者 tooo (高校生)
投稿日時
2010/7/29 23:13:16
う～ん何か出来ません（泣）
RichTextBox
<html>
<head>
<title>タイトルをここに記入</title>
</head>
<body>
本文をここに記入
</body>
</html>
↑これを表示させます。
↓のように書き換えます
<html>
<head>
<title>イーグル.net</title>
</head>
<body>
はじめまして
</body>
</html>
↑これをWebBrowserに読み込ませて表示させたいのですがどのようにすればいいのでしょうか？
RichTextBox
<html>
<head>
<title>タイトルをここに記入</title>
</head>
<body>
本文をここに記入
</body>
</html>
↑これを表示させます。
↓のように書き換えます
<html>
<head>
<title>イーグル.net</title>
</head>
<body>
はじめまして
</body>
</html>
↑これをWebBrowserに読み込ませて表示させたいのですがどのようにすればいいのでしょうか？
投稿者 よねＫＥＮ (社会人)
投稿日時
2010/7/29 21:58:38
以下のように空白ページをWebBrowserに表示させておいて、
DocumentプロティのWriteメソッドで独自のHTMLを出力するようにすればよいと思います。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Navigate("about:blank")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.WebBrowser1.Document.Write("<html><title>TITLE</title><body>Hello, World!</body><html>") ' RichTextBoxのTextプロパティから取得するテキストに置き換えればOK！
End Sub
End Class
DocumentプロティのWriteメソッドで独自のHTMLを出力するようにすればよいと思います。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.WebBrowser1.Navigate("about:blank")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.WebBrowser1.Document.Write("<html><title>TITLE</title><body>Hello, World!</body><html>") ' RichTextBoxのTextプロパティから取得するテキストに置き換えればOK！
End Sub
End Class
投稿者 tooo (高校生)
投稿日時
2010/7/29 21:34:01
RichTextBoxにHTMLのコードを書いてWebBrowserに読み込ませて表示させることは出来るでしょうか？
出来ました！！！