タイトル : Re^10: クリップボードデータの文字化けについて 投稿日 : 2009/05/15(Fri) 09:56 投稿者 : take
ほんとに申し訳ありません。 ご指示のサイトを参考にしてみたのですが、JAVAからの変換が理解できていないのか、やはり文字化けしてうまくいきません。情けない限りです。 下記がなんとかエラーを取ったコードです。ぜんぜん的外れなのでしょうか。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim ClipData As IDataObject = Clipboard.GetDataObject() 'クリップボードデータの取得 Dim CFTbl() As String = ClipData.GetFormats(False) For i As Integer = 0 To CFTbl.Length - 1 Select Case CFTbl(i) Case DataFormats.Html Dim CData As Object = ClipData.GetData(DataFormats.Html) Dim b As Byte() = System.Text.Encoding.UTF8.GetBytes(CData) Dim ms As New System.IO.MemoryStream() ms.Write(b, 0, b.Length) Dim buf As Byte() = ms.ToArray Me.TextBox1.Text = System.Text.Encoding.UTF8.GetString(buf) End Select Next Catch ex As Exception MsgBox(ex.Message) End Try End Sub |