- ベストアンサー
HTMLで保存しWebで閲覧したい
はじめまして、こんにちは。 VB歴１ヶ月に満たないくらいなので、わけがわからない部分もあるかと思いますが、その際はすいません。 今作っているプログラムは ある場所をWebを通じて紹介しよう、というものです。 紹介するために 地名（comboBox1)紹介者（comboBox2)題名(TextBox1) 写真(Image1)紹介文(TextBox2) 以上の５つのコントロールを使っています。 上記のコントロールの動作は問題なく、写真貼り付けやテキスト記入、コンボボックスへの追加はできるようになっています。 Web上で閲覧の際は、 <HTML> <HEAD><TITLE>地名（comboBox1)</title></head> <body bgcolor=ffffff> <center><h2>題名(TextBox1)</h2><BR> 紹介者（comboBox2) </center> <hr> <center> <IMG src="写真(Image1)"WIDTH="50%"HEIGHT="50%"> </center> <hr> <body> 紹介文(TextBox2) </table> </body> </html> 上記のような簡単な感じでアップできるようにしようと考えています。 困っているのは、写真貼り付けや、テキストへの記入後、どうやって保存すればいいのかわからないという点です。保存時にタグごと全部書き込むというのは、何か違う気がしたので。 アドバイス・ヒント何でもいいのでご教授願います。 答えを教えてもらえれば最高ですが、上記の文章では伝わる部分も少ないと思いますし・・・＾＾；
- asutaroto
- お礼率64% (82/128)
- Visual Basic
- 回答数5
- ありがとう数3
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
#1です。 LAN上でみられればいいなら、HTMLとイメージファイルさえ保存すればそれでいいと思います。 PathName = .FileName image1.Picture = LoadPicture(.FileName) とのことですが、そのファイルをHTMLのある場所と同じパスにおくか、絶対指定する必要があります。 <img src=(ファイルのパス名)> のところで、 <img src="GAZOU.jpg"> などとしていませんか？ その場合、htmlと同じフォルダにイメージがないと保存されません。 c:\gazou\gazou.jpg など絶対パスにするか copy ステートメントなどを利用して、htmlと同じフォルダに画像を保存しましょう（やりたいことからすれば、こちらから出来た方がいいと思います）。 閲覧用のソフトはIEなどの普通のブラウザで大丈夫です。 あとはHTMLの規則にのっとって作ればオッケーですよ。
その他の回答 (4)
- takasebou
- ベストアンサー率42% (61/144)
#1です。 Ｗｅｂでみたいというのが本当にインターネットでなければ、HTMLファイルをどこかのパソコンなりサーバーなりにいれて開けばそれだけでみられます。 ある程度ＷｅｂっぽくというならWin2000,XPあたりならIISをたてれば、それだけでもＷｅｂサーバー風になるでしょう。 あるいはＷｅｂサーバーが別途あってというなら、ＦＴＰしてファイルをサーバーに転送できればいいのだと思うので、ＩＮＥＴコントロール辺りをつかってアップデートすればできそうです。 ただ具体的に、ＶＢだけでどこまで出来ればいいのかわからないので、このままだと回答は難しいですね。 ＨＴＭＬファイル生成だけして、ＦＴＰは普通のフリーソフトなどでしますよ、なのか。 ボタンをおしたらサーバーまで自動的に送ってインターネット上でみられますよ。なのか。 別に本当にインターネットである必要はなくて、ＬＡＮ上だけでみられればいいですよ、なのか。 それによっても答えが違ってきそうです。
お礼
画像以外はとてもいい感じに進みました。 問題が解決されてくると楽しくなってきますね。 アドバイス、とても助かっています。 ありがとうございます。
補足
>別に本当にインターネットである必要はなくて、ＬＡＮ上だけでみられればいいですよ おそらくこれが今の私にできることなのかなぁ、と思います。それ以上のものは今の技量では難しいですからね。 HTML形式の保存はタグごと保存する形でいけました。 画像表示がまだ上手くいってませんけど＾＾；なんとなく原因がつかめているのですが、上手くいきませんね。現在試行錯誤しながら色々やっています。 写真を貼り付けた後、保存するときに画像処理ができてないというのはわかっているのですが・・・。 Public Sub picOpen()'写真を選択する With CommonDialog1 .CancelError = True On Error GoTo ErrHandler .ShowOpen PathName = .FileName image1.Picture = LoadPicture(.FileName) End With Exit Sub ErrHandler: End Sub 上記で画像貼り付け後、HTMLで保存したのですがイメージファイルのパスが上手くいかず表示されません。どこかに致命的なミスがあるような感じで不安です。LoadPicture(.FileName)がおかしくなってる原因な気がしなくもなく・・・自分にとっては難問ですね。
- imogasi
- ベストアンサー率27% (4737/17069)
＃２です。補足ありがとうございました。私は答える力が無いようなのですが、今後答えていただける方のために、少しフォローさせてください。 （１）当初、先生がWEBページを提供する。 （２）生徒さんの体験学習の結果を（１）のWEBページに 載せる（書きこむ、内容を加える）。文字だけでなく写真画像なども。 （３）その後先生や生徒さんは、（１）のWEBページを見て 色々な生徒さんが加えた後のページを見て学習する。 こう言うことがしたいのでしょうね。 これって、相当高度なことだと思いますが。特に画像を加えるのは。 （１）の場合は勿論、（２）（３）の場合、ISPのサーバーの中に、生徒さんの書きこんだ文章や画像を保持してもらわないとならないと思います。それにはサーバーに処理を要求することになるわけですし、プログラム処理をサーバーに実行させなければならないと思います。それにはCGIなどのプログラムが必要だし、追加保持やプログラム実行はサーバー側が許しているかどうか、などがあります。 生徒さんの体験学習成果を加えたものを、加える都度アップロードするなら、ホームページの内容改訂を回数を重ねるに過ぎないでしょうが、それではない。 文章を加えるのは、このOKWEBなども色んな人が加えた回答を見ているのですから、実例として良くあるのですが、写真を加えるのってどうなるのだろう？？
補足
補足後こんなに迅速に対応していただいて、ありがとうございます。説明不足だったため、２度もアドバイスをいただき申し訳ありません。 ネット上での作業はかなり難しいものになりそうですね、ネットを介さないでファイルのみの処理にすればＣＧＩやサーバーのことは考えずに簡単になりそうな気もします。そうすると友達が作った作品を見合う一種のプレゼンソフトのようなものになりそうな気がします。 まずは作った作品をタグごとHTMLで保存してみようと思います。ありがとうございました。
- imogasi
- ベストアンサー率27% (4737/17069)
＞写真貼り付けや、テキストへの記入後、どうやって保存すればいいのかわからないという点です。保存時にタグごと全部書き込むというのは、何か違う気がしたので。 「写真貼り付けや、テキストへの記入」「保存」について、誰が、どこに、何のために、どう言うキッカケで、など説明されてはどうですか。意味が判りません。
補足
まとまらない形で質問してしまい、申し訳ありませんでした。小学生の調べ学習等のまとめに使えるようなプログラムを考えていたのですが、上記の文章では明らかに説明不足でした。すいません。 調べた地名をcomboBox1のリストから選択 調べた人は誰か、をcomboBox2から選択 題名をTextBox1に入力する 写真をImage1に貼り付ける 最後に調べた場所についての感想や感じたことをTextBox2に入力する それをHTML形式で保存し、他の人の作品を見せ合うという感じにしたいと思っています。見せ合うときのタグは質問の通りです。保存時にタグ込みで書き込むのがいいみたいですね、勉強不足でした。 まずは作品をネット上で閲覧できないことには始まらないので。閲覧用のブラウザも作成しますが、この質問とは別になりますね。
- takasebou
- ベストアンサー率42% (61/144)
えーっと具体的に何をしたいのでしょうか？ １．HTMLファイルを作りたい。 ２．VB上からWebサーバーにアクセスして、直接Ｗｅｂを作りたい まぁ、１だと思いますし、２にしてもVBのCGI、あるいはASPを作るのでもないかぎり、HTMLを作る必要はありますが。 VBを使ってHTMLを書くのだとすれば、別にベタで拡張子を".html"のテキストファイルを作ればいいだけです。 タグは普通にそのままかけばいいです。 dim fp as long dim acFileName as string acFileName = (ファイルパス＋ファイル名) fp = freefile open acFileName for output as #fp print #fp,"<HTML>" print #fp,"<HEAD><TITLE>" & comboBox1.text & "</title></head>" print #fp,"<body bgcolor=ffffff>" print #fp,"<center><h2>" & TextBox1.text & "</h2><BR>" ………… print #fp,"<IMG src=""" & (Web上でのイメージファイルのファイルパス) & """ WIDTH="50%"HEIGHT="50%"> ………… close #fp でいいんじゃないでしょうか？
お礼
わざわざ書いていただきありがとうございます。 自分でも何が言いたかったのか、文章を見てわからないという酷さでした、申し訳ありません。 タグごと書き込む形式でいけそうですね。 試してみます、ありがとうございました。
お礼
お礼が遅くなり申し訳ありませんでした。 おかげさまプログラムはかなり完成に近づいてきています。まだ少し解決しなければいけない部分がありますけど＾＾； 本当に色々ありがとうございました