Temporary Archive (Read Only): Notes/Player Log

Print Page | Close Window

Notes/Player Log

Printed From: Mirage Source
Category: Tutorials
Forum Name: Temporary Archive (Read Only)
Forum Discription: Temporary 3.0.3 archive tutorials, will be deleted when converted.
URL: http://ms.shannaracorp.com/backup-forums/forum_posts.asp?TID=136
Printed Date: 20 December 2006 at 5:52pm
Software Version: Web Wiz Forums 8.01 - http://www.webwizforums.com

Topic: Notes/Player Log

Posted By: Sync
Subject: Notes/Player Log
Date Posted: 11 February 2006 at 3:04pm

Difficulty: Easy 2/5

Originaly Posted By: Chaseclark

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

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

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