VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/05/11(Sun) 19:54 |
| 投稿者 | ： 魔界の仮面弁士 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^8: フレームで区切られたブラウザー |
HTMLDocumentオブジェクトにはIPersistFileインターフェイスがインプリメントされていますので、
TypeName(Document)が "HTMLDocument" という文字列を返しているのであれば、
Dim PF As IPersistFile
Set PF = Document
あるいは、
With New PersistFile
.SetObject Document
End With
の部分では、通常、エラーにはならないと思います。………多分(;_;)
> PF.Save FileName, 0&
> のところで『オブジェクトはこのプロパティーまたはメソッドをサポートしていません。』とエラーが出ます。
う〜む。。。何故でしょうか。。。
……もしかしたら、HTMLDocumentのバージョンにもよるのかも知れません。
タイプライブラリを参照設定した上で、
Dim P As IPersist
Dim X As CLSID
Set P = Document
P.GetClassID X
Debug.Print "{"; Right(String(8, "0") & Hex(X.Data1), 8);
Debug.Print "-"; Right(String(4, "0") & Hex(X.Data2), 4);
Debug.Print "-"; Right(String(4, "0") & Hex(X.Data3), 4);
Debug.Print "-";
For L = 0 To 1
Debug.Print Right(String(2, "0") & Hex(X.Data4(L)), 2);
Next
Debug.Print "-";
For L = 2 To 7
Debug.Print Right(String(2, "0") & Hex(X.Data4(L)), 2);
Next
Debug.Print "}"
を実行するとどうなりますでしょうか。
私の環境では、
{25336920-03F9-11CF-8FD0-00AA00686F13}
という文字列が得られ、それに対応するレジストリ項目
HKEY_CLASSES_ROOT\CLSID\{25336920-03F9-11CF-8FD0-00AA00686F13}\Version
には、"6.0"という文字列がありました。
> 読み込みに時間をかけるのはまだやっていません。
この場合は、
Private Sub Command1_Click()
MsgBox "保存開始"
SaveDocument "C:\TEST\", WebBorser1.Document
MsgBox "保存完了"
End Sub
のようなコードになります。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）