Basic Notes / Log / Diary - Printable Version

Basic Notes / Log / Diary - Printable Version

+- Mirage Engine (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Basic Notes / Log / Diary (/showthread.php?tid=66)

Basic Notes / Log / Diary - Tutorial Bot - 01-06-2006

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