ファイルの読み込みについて (ID:90033)

名前

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

本文 コントロールはFORM1にText1配置してあるだけです。 Text1はMultiLine=True ScrollBars = 3-両方 になっています。 勘違いの内容でしたらすみません。 Private Sub Form_Load() Dim FileNum As Integer Dim strLine As String Dim strText As String Me.CommonDialog1.Filter = "DXF(*.dxf)|*.dxf|すべてのファイル(*.*)|*.*" Me.CommonDialog1.ShowOpen If Not Me.CommonDialog1.FileName = "" Then FileNum = FreeFile Open Me.CommonDialog1.FileName For Input As #FileNum Do Until EOF(FileNum) Line Input #FileNum, strLine strText = strText & strLine & vbCrLf Loop Me.Text1 = strText Close #FileNum End If End Sub これでファイルの内容が表示されると思います。 変換の意味がわかりませんでしたのでとりあえずテキストボックスに表示させるまでのソースを書き込ませていただきました。