Basic Notes / Log / Diary

[Tutorial Bot]

Author: ? (unknown)
Difficulty: 1/5

:: CLIENT SIDE ::
On frmMirage, make a pictureBox called picKeepNotes, and a button called KeepNotes. Add:

Code:

Private Sub KeepNotes_Click()
picKeepNotes.Visible = True
End Sub

Make a txtbox named Notetext on picture, and 2 buttons. Add:

Code:

Private Sub Save_Click()
Dim iFileNum As Integer

'Get a free file handle
iFileNum = FreeFile

'If the file is not there, one will be created
'If the file does exist, this one will
'overwrite it.
Open App.Path & "\notes.txt" For Output As iFileNum

Print #iFileNum, Notetext.Text

Close iFileNum

End Sub

Private Sub Close_Click()
picKeepNotes.Visible = False
End Sub