プログラムリスト「テキストエディタプログラム例」

Private Sub Command1_Click()

    If Text2.Text = "" Then
    MsgBox ("フルパスで指定しましょう。")
    End If
    
    Dim fnum As Integer
    
    fnum = FreeFile
    
    If Dir(Text2.Text) <> "" Then
    
        If MsgBox("すでに同じ名前のファイルが存在します、ファイルを上書きしますか?", vbYesNo) = vbNo Then
            Exit Sub 'このプロシージャを抜け出す
        End If
        
    End If
    
    
    Open Text2.Text For Output As #fnum
        
       
        Print #fnum, Text1.Text
        
    Close #fnum
    
End Sub

Private Sub Command2_Click()

    If Text2.Text = "" Then
        MsgBox ("フルパスで指定しましょう。")
    End If
    
    Dim mystr As String
    Dim fnum As Integer
    
    fnum = FreeFile
    
    If Dir(Text2.Text) = "" Then
    
        If MsgBox("そのようなファイルは存在いたしません。", vbYesNo) = vbYes Then
            Exit Sub 'このプロシージャを抜け出す
        Else
            MsgBox ("お前はもう死んでいる！")
            Exit Sub
        End If
        
    End If
    
    Open Text2.Text For Input As #fnum
  
    Do While Not EOF(fnum)
        Line Input #fnum, mystr
        Text1.Text = Text1.Text & mystr & vbCrLf
    Loop
    
    Close #fnum
    
End Sub

Private Sub Command3_Click()

    Text1.Text = ""
    Text1.SetFocus

End Sub

Private Sub Command4_Click()
    End
End Sub

Private Sub Form_Load()
    Command1.Enabled = False
End Sub

Private Sub Text2_Change()

    If Text2.Text <> "" Then
        Command1.Enabled = True
    Else
        Command1.Enabled = False
    End If

End Sub