VBでエディタ
こんにちは。Kakugariです。
今、VBでエディタを作っていますがファイル操作でつまずいてしまいました。Commondialogからファイル名を取得して、そのファイルをMaintxtに表示するプログラムですがMaintxtに表示されるとき、Tabを使用してスペースを空けた部分が、無視されて文字が前に詰めて表示されます。それ以外は正常です。下にコードを載せましたので、お分かりになられる方は、間違いを指摘していただけたらありがたいです。ちなみにVB6です。Commondialogのプロパティは、デザイン時に設定されています。
Private Sub mnuOpen_Click()
On Error GoTo ErrCode
With CommonDialog1
.DialogTitle = "開く"
.ShowOpen
End With
Dim txt As String, Work As String
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
Input #1, Work
txt = txt & Work & vbCrLf
Loop
Close #1
Maintxt = txt
Exit Sub
ErrCode:
Close #1
MsgBox "ファイルは開けませんでした。", vbCritical
End Sub
お礼
ありがとうございます いつの間に変更したのでしょうか、全く認識がありませんでしたw