タイトル : HTMLファイルの内容をリッチテキストボックス表示 投稿日 : 2013/06/23(Sun) 21:15 投稿者 : kenzo
開発環境 VB6.0 windows XP sp3 以前、掲示板に記載してあった下記方法で 保存したHTMLファイルのHTMLコードの内容をリッチテキストボックスに 表示させたいのですが、日本語部分が文字化けしてしまって困っています。 どなたか解決策を教えて下さい。 よろしくお願いします。 Option Explicit 'SampleNo=169 WindowsXP VB6.0(SP5) 2002.07.19 Private Declare Function URLDownloadToFile Lib "urlmon" _ Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, _ ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Private Sub Command1_Click() Dim SaveFileName As String Dim DownloadFile As String Dim Ret As Long SaveFileName = "C:\Test.htm" DownloadFile = "http://www.msn.co.jp/home.htm" Ret = URLDownloadToFile(0, DownloadFile, SaveFileName, 0, 0) DoEvents If Ret = 0 Then MsgBox "ダウンロードできました。" Else MsgBox "エラーが発生しました。" End If End Sub |