リッチテキストの読み込みが上手くいきません (ID:88763)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 何も考えずに、フォームにRichTextBox1とText1を置いて Private Sub Form_Load() Dim FileNo As Integer Dim FileName As String FileNo = FreeFile FileName = App.Path + "\Test.txt" Open FileName For Output As #FileNo RichTextBox1.Text = "てすと" Text1.Text = "テスト" Print #FileNo, RichTextBox1.TextRTF Print #FileNo, Text1.Text Close End Sub とやってみるとか。