VB MDI를 이용해 메모장 만들기(새파일,창닫기,저장,불로오기,종료)

VB(비쥬얼베이직) MDI를 이용해 메모장 만들기(새파일,창닫기,저장,불로오기,종료)

<실행화면>

새파일

.

창닫기

저장

불러오기

불러온 화면

<소스코드>

Private Sub close_Click()

Unload MDIForm1.ActiveForm

End Sub

 

Private Sub exit_Click()

End

End Sub

 

Private Sub load_Click()

On Error GoTo err_rtn

Dim strFile As String, TextLine As String, TotalLine As String

Dim FileNumber As Integer

CommonDialog1.InitDir = "c:\"

CommonDialog1.Filter = "텍스트 파일(*.txt)|*.txt|모든파일(*.*)|*.*"

CommonDialog1.ShowOpen

strFile = CommonDialog1.FileName

FileNumber = FreeFile()

Open strFile For Input As FileNumber

Do While Not EOF(FileNumber)

Line Input #1, TextLine

TotalLine = TotalLine & TextLine & vbCrLf

Loop

Close FileNumber

Form1.Text1.Text = TotalLine

Form1.Caption = strFile & strProgram

Exit Sub

err_rtn:

If Err.Number = cdlCancel Then Exit Sub

End Sub

 

Private Sub new_Click()

Dim newform As New Form1

newform.Show

End Sub

 

Private Sub save_Click()

On Error GoTo err_rtn

Dim strFile As String, TextLine As String, TotalLine As String

Dim FileNumber As Integer

CommonDialog1.InitDir = "c:\"

CommonDialog1.Flags = cdlOFNHideReadOnly

CommonDialog1.DefaultExt = "txt"

CommonDialog1.Filter = "텍스트 파일(*.txt)|*.txt|모든파일(*.*)|*.*"

CommonDialog1.ShowSave

strFile = CommonDialog1.FileName

FileNumber = FreeFile()

Open strFile For Output As FileNumber

Print #1, Form1.Text1.Text

Close FileNumber

Form1.Caption = strFile & strProgram

Exit Sub

err_rtn:

If Err.Number = cdlCancel Then Exit Sub

 

End Sub

<고찰>

저장과 불러오기 기능이 힘들었지만 책과 오픈소스를 통해 참조하였고, 저장하기를 클릭하고 그냥 꺼버리는 경우, 불러오기를 클릭하고 그냥 꺼버리는 경우 루프가 완료되지 않기 때문에 Error처리가 나는데, 이를 Goto문을 사용하여 대처