+ Reply to Thread
Results 1 to 3 of 3

Thread: Fake filesave system... need help

  1. 03-22-2010 2:28 AM #1
    12padams
    12padams is offline VB.NET Forum Newbie 12padams is on a distinguished programming path ahead
    .NET Framework
    .NET 4.0
    Join Date
    Feb 2010
    Age
    16
    Posts
    22
    Reputation
    8

    Default Fake filesave system... need help

    Ok i am making a game (based on windows95)....

    i have it going good so far.

    I have it so you can open notepad (this is in a panel and its not the real system notepad)
    You can click save document and it saves the text it in a hidden textbox with a random filename (defined by user) and it saves it in a listveiw (windows explorer type thing)

    The idea is i want it to be so that if you double click the listveiw item it will open the textfile (text stored in a hidden textbox)

    Heres my code which is attempting to do this but i just can't think how to link them.
    Private Sub btnsaveassave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveassave.Click
    Dim savedfile As New TextBox
    mycomputerfiles.Items.Add(txtfilename.Text & ".txt")
    usersave = txtfilename.Text
    Me.Controls.Add(savedfile)
    txtcount = txtcount + 1
    savedfile.Text = notepadtextbox.Text
    savedfile.Name = (txtcount)
    program2.Hide()
    End Sub
    Anyone know a betterway of doing this?

    Just for the record here is the code for my whole project:

    Public Class windows95
    Dim txtcount As Integer
    Dim usersave As String

    Private Sub startbutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbutton.Click
    startmenu.Show()
    End Sub

    Private Sub windows95_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    startmenu.Hide()
    End Sub

    Private Sub windows95_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    startmenu.Hide()
    program.Hide()
    program2.Hide()
    notepad.Hide()
    windowshelp.Hide()
    taskbarprogram.Hide()
    windowsexplorer.Hide()
    notepadopenfile.Hide()
    End Sub

    Private Sub NotePadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NotePadToolStripMenuItem.Click
    program.Show()
    programname.Text = "Notepad"
    taskbarprogram.Show()
    taskbarprogram.Text = "Notepad"
    notepad.Show()
    notepad.Dock = DockStyle.Fill
    startmenu.Hide()
    End Sub

    Private Sub Closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Closebutton.Click
    program.Hide()
    notepad.Hide()
    taskbarprogram.Hide()
    windowshelp.Hide()
    windowsexplorer.Hide()
    programname.Text = ""
    End Sub

    Private Sub fullscreen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles maximize.Click
    program.Dock = DockStyle.Fill
    End Sub

    Private Sub minimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles minimize.Click

    program.Dock = DockStyle.None
    End Sub


    Private Sub HelpToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HelpToolStripMenuItem.Click
    programname.Text = "Help Topics: Windows Help"
    taskbarprogram.Show()
    taskbarprogram.Text = "Help Topics"
    program.Show()
    windowshelp.Show()
    windowshelp.Dock = DockStyle.Fill
    startmenu.Hide()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
    program.Hide()
    notepad.Hide()
    taskbarprogram.Hide()
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAsToolStripMenuItem.Click
    program2.Show()
    programname2.Text = "Save As"
    saveas.Dock = DockStyle.Fill
    End Sub

    Private Sub Closebutton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Closebutton2.Click
    program2.Hide()
    End Sub

    Private Sub btnsaveassave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveassave.Click
    Dim savedfile As New TextBox
    mycomputerfiles.Items.Add(txtfilename.Text & ".txt")
    usersave = txtfilename.Text
    Me.Controls.Add(savedfile)
    txtcount = txtcount + 1
    savedfile.Text = notepadtextbox.Text
    savedfile.Name = (txtcount)
    program2.Hide()
    End Sub

    Private Sub WindowsExplorerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsExplorerToolStripMenuItem.Click
    programname.Text = "Windows Explorer"
    program.Show()
    windowsexplorer.Show()
    windowsexplorer.Dock = DockStyle.Fill
    startmenu.Hide()
    End Sub

    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
    notepadopenfile.Show()
    End Sub

    Private Sub btnnotepadopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepadopen.Click

    notepadopenfile.Hide()
    End Sub
    End Class
    Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
    Reply With Quote Reply With Quote
  2. 03-22-2010 2:36 AM #2
    jmcilhinney's Avatar
    jmcilhinney
    jmcilhinney is offline VB.NET Forum Moderator jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute jmcilhinney has a reputation beyond repute
    .NET Framework
    .NET 3.5 (VS 2008)
    Join Date
    Aug 2004
    Location
    Sydney, Australia
    Age
    41
    Posts
    6,736
    Reputation
    653

    Default

    You don't need a hidden TextBox. All a TextBox does is display a String and allow the user to edit it. If you don't want to display it and you don't want the user to edit it then all you need is a String, not a TextBox.

    I would suggest that you use a Dictionary(Of String, String). That will allow you to store contents of multiple "files" keyed on "file name".
    Code:
    Private files As New Dictionary(Of String, String)

Private Sub SaveFile(ByVal name As String, ByVal contents As String)
    files.Add(name, contents)
End Sub

Private Function OpenFile(ByVal name As String) As String
    Return files(name)
End Sub

    2007, 2008, 2009, 2010

    Why is my data not saved to my database? | Communicating between multiple forms
    MSDN: Data Walkthroughs | "How Do I?" Videos
    My Blog: Custom Events | Dynamic GDI+ Drawing
    Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
    Reply With Quote Reply With Quote
  3. 03-22-2010 5:20 AM #3
    12padams
    12padams is offline VB.NET Forum Newbie 12padams is on a distinguished programming path ahead
    .NET Framework
    .NET 4.0
    Join Date
    Feb 2010
    Age
    16
    Posts
    22
    Reputation
    8

    Default

    Ok now i have decided to use the dictionary method...

    now the only problem i got now is how do i open the file...

    I want the user to open it by selecting it from the listveiw then pressing open which will make it display the text of that string (listveiw item) that they choose..


    Heres some of the new code using your method.

    Private Sub btnsaveassave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsaveassave.Click
    Dim filename As String
    Dim txtcontents As String
    filename = txtfilename.Text
    txtcontents = notepadtextbox.Text
    SaveFile(filename, txtcontents)
    mycomputerfiles.Items.Add(filename & ".txt")
    mycomputerfiles2.Items.Add(filename & ".txt")
    program2.Hide()
    End Sub


    Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
    notepadopenfile.Show()
    notepadopenfile.Dock = DockStyle.Fill
    program2.Show()
    End Sub

    Private Sub btnnotepadopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnnotepadopen.Click
    Dim chosenopen As String
    chosenopen = txtnotepadopen.Text
    OpenFile(chosenopen)
    notepadopenfile.Hide()
    End Sub
    Private files As New Dictionary(Of String, String)

    Private Sub SaveFile(ByVal name As String, ByVal contents As String)
    files.Add(name, contents)
    End Sub

    Private Function OpenFile(ByVal name As String) As String
    Return files(name)
    End Function
    End Class
    Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
    Reply With Quote Reply With Quote
+ Reply to Thread
« Previous Thread | Next Thread »

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

     

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Forum Rules