HP作成ツール

タグの編集
投稿者 tomoya  (高校生) 投稿日時 2010/7/14 22:16:08
今、HPを簡単に作成できるソフトを作っています。
そこでよく分からないことが結構あります(泣)
2つほど教えていただければと思っています。

まずフォームにボタンを設置します。
ボタンを押したらフォーム2が出てきてホームページのタイトルなどを設定できるようにしています。
ホームページのタイトルを打ち込んで、OKボタンを押したら
<html>
<head>
<title>ここにタイトルが入るようにしたいです。</title>
</head>
<body>
本文をここに記入
</body>
</html>

後一つは、ホームページのソースを読み込んでプレビューでどんな感じに
出来ているかを見るようにしたいです。

すみませんが分かる方教えていただけたらうれしいです。

投稿者 るきお  (社会人) 投稿日時 2010/7/14 23:08:14
こんにちは。

1つ目の質問はわからないところはどこでしょうか?
フォーム2の出し方がわからないところですか?

2つ目の質問はVB2005以降であればWebBrowserコントロールを使うことで簡単にできます。
たとえば、htmlがファイルに保存されている状態であれば、
次のコードで表示することができます。
フォーム上にWebBrowserコントロールが配置されていることが前提です。
  
WebBrowser1.Navigate("C:\test\test.htm")


ファイルではなく、直接文字列でhtmlを指定したい場合は次のようにします。
  
WebBrowser1.DocumentText = "<html><body><h1 style='color=red;'>test</h1></body></html>"

投稿者 tomoya  (高校生) 投稿日時 2010/7/15 20:11:03
一つ目の質問は、フォーム2からフォーム1のテキストボックスの中の

<title>ここ</title>←ここって書いてあるところにフォーム2で書いたタイトルを間に表示させたいです。
投稿者 るきお  (社会人) 投稿日時 2010/7/15 20:40:01
やりたいことはわかりましたが、そのどこがわからなくて何が聞きたいのかわからないです。
高校生ということですので、少しえらそうなことを書かせてもらうと、
質問の文章を書くときは、疑問形を使うか、依頼する形の文章にするのがわかりやすいです。

それで、内容ですが、どこがわからないのかわからないのでそれらしいものを作ってみました。
これでわかりますか?
Form1側
    
Public Class Form1

    Private Sub btnShowForm_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles btnShowForm.Click

        Dim dialog As New Form2

        If dialog.ShowDialog(Me) = vbOK Then
            txtHTML.Text = txtHTML.Text.Replace("ここ", dialog.txtTitle.Text)
            'それとも、下のような方が目的にかないますか? 
            'txtHTML.Text = "<title>" & dialog.txtTitle.Text & "</title>" 
        End If

        dialog.Dispose()

    End Sub
End Class


Form2側
    
Public Class Form2

    Private Sub btnOK_Click(ByVal sender As System.ObjectByVal e As System.EventArgs) Handles btnOK.Click

        'プロパティウィンドウで事前に設定しておけばForm2側は1行もプログラムは必要ない 
        Me.DialogResult = vbOK

    End Sub
End Class


Form1にはbtnShowFormというボタンと、txtHTMLという結果表示用のテキストボックスを貼り付けて置いてください。
Form2にはタイトルを入力するためのtxtTitleというテキストボックスと、OKボタンであるbtnOKを貼り付けておいてください。

フォームを2つ使う場合の説明が以下の記事に書いてありますのでぜひ参考にしてください。
初級講座第29回 2つ目のフォーム
http://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard29.htm
投稿者 tomoya  (高校生) 投稿日時 2010/7/15 21:43:37
ありがとうございます。
おかげで出来るようになりましたww