Bestand opslaan in programma

[Pajaras]

Ik ben me wat aan het verdiepen in Visual Basic.
Nu ben ik een tekstverwerkertje aan het maken (soort Kladblok), maar moet er nog voor zorgen dat hij bestanden kan opslaan en openen via het menu bovenin.
Ik heb de menu's al gemaakt, maar nu weet ik niet hoe ik moet zorgen de knoppen ook werken.
Wie weet hoe dit moet.

 

[That Guy]

Menu: mnuSave is de naam van het save-menu-item en mnuOpen voor het open-menu-item

Public Function SaveToFile(filepath As String, WTS As String)
Dim hFile As Long
Dim sFilename As String
   sFilename = filepath
   hFile = FreeFile
   Open sFilename For Output As #hFile
      Print #hFile, WTS
   Close #hFile
End Function

Private sub mnuSave_Click()
SaveToFile "C:\wasd.txt", text1.text
end sub

Public Function LoadFileToTB(TaxtBox As Object, filepath As _
   String, Optional Append As Boolean = False) As Boolean
Dim iFile As Integer
Dim s As String
If Dir(filepath) = "" Then Exit Function
On Error GoTo ErrorHandler:
s = Textx.Text
iFile = FreeFile
Open filepath For Input As #iFile
s = Input(LOF(iFile), #iFile)
If Append Then
    TaxtBox.text = TaxtBox.text & s
Else
    TaxtBox = s
End If
LoadFileToTB = True
ErrorHandler:
If iFile > 0 Then Close #iFile
End Function

Private sub mnuOpen_Click()
LoadFileToTB text1, "C:\wasd.txt"
end sub

 

[Pajaras]

Oke, maar ik ben een noob op VB gebied.
Hoe kan ik ze toewijzen aan de menuknop in Microsoft Visual Basic 2005 Express Edition.

 

[GDay]

Je bedoelt een menustrip ??

Je drukt gewoon dubbel op de text en voert de code in

 

[That Guy]

daarbij is mijn code voor < visual basic 6.0... waarom heeft iedereen toch 2005?

 

[WILLIAMXXX]

Waarom zit jij nog met vb6?

 

[Pajaras]

Nou, ik heb ook een boek gekregen van VB6, maar ik ga toch maar een beetje VB.NET Leren.
Maar ik ga het boek zeker doorlezen, kan ik vast nog veel van leren.

Maar weet iemand nog een code voor VB.NET, en ook hoe ik hem toe moet wijzen.
Ik kan in de Toolbox wel kiezen voor SaveFileDialog enz. waarmee ik als ik er op klik het bestand kan opslaan maar die komt dan niet in het programma zelf

 

[WILLIAMXXX]

Je moet dus een savefiledialog en een openfiledialog toevoegen aan je form, je moet aanhouden dat het gaat over richtextbox1 en savefiledialog1:

Opslaan:

savefiledialog1.defaultext = ".txt"
savefiledialog1.overwriteprompt - true
savefiledialog1.title = "Opslaan"

if savefiledialog1.showdialog() = windows.forms.dialogresult.ok then

richtextbox1.savefile(savefiledialog1.filename,richtextboxstreamtype.richtext)

end if

Openen:

openfiledialog1.title = "openen"
openfiledialog1.filter = "richtext files(*.rft) | *.rft| alle files (*.*) | *.*"
openfiledialog1.filtername = ""
openfiledialog1.filterindex = 0

openfiledialog1.initialdirectory = "MyDocuments"

openfiledialog1. checkfileexists = true
openfiledialog1.checkpathexists = true
if openfiledialog1.showdialog() = system.windows.forms.dialogresult.ok then
richtextbox1.loadfile(openfiledialog1.filename)
end if

Hopelijk wekt 't direct:thumb:

 

[snipeytje]

werkt de code zonder die van vegras?

 

[That Guy]

ja

 

[GDay]

Je moet dus een savefiledialog en een openfiledialog toevoegen aan je form, je moet aanhouden dat het gaat over richtextbox1 en savefiledialog1:

Opslaan:

savefiledialog1.defaultext = ".txt"
savefiledialog1.overwriteprompt - true
savefiledialog1.title = "Opslaan"

if savefiledialog1.showdialog() = windows.forms.dialogresult.ok then

richtextbox1.savefile(savefiledialog1.filename,richtextboxstreamtype.richtext)

end if

Openen:

openfiledialog1.title = "openen"
openfiledialog1.filter = "richtext files(*.rft) | *.rft| alle files (*.*) | *.*"
openfiledialog1.filtername = ""
openfiledialog1.filterindex = 0

openfiledialog1.initialdirectory = "MyDocuments"

openfiledialog1. checkfileexists = true
openfiledialog1.checkpathexists = true
if openfiledialog1.showdialog() = system.windows.forms.dialogresult.ok then
richtextbox1.loadfile(openfiledialog1.filename)
end if

Hopelijk wekt 't direct:thumb:

Moet zoiets altijd met een richtextbox of kun je het ook gewoon vervangen door textbox?

 

[That Guy]

richtextbox1.loadfile(openfiledialog1.filename)

als het goed is, heeft een "textbox1" geen "loadfile", maar daar kan je zelf ook achterkomen door in de IDE te typen: "textbox1." (met de punt) en dan te kijken of er in de dropdown ergens "loadfile" staat (er moet wel een textbox1 op je form staan natuurlijk )

 

[GDay]

De code geeft 2 fouten


ublic Class Form1

Private Sub OpslaanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpslaanToolStripMenuItem.Click
SaveFileDialog1.DefaultExt = ".txt"
SaveFileDialog1.OverwritePrompt(-True) XXX
SaveFileDialog1.Title = "Opslaan"

If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.RichText)

End If
End Sub

Private Sub OpenenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenenToolStripMenuItem.Click
OpenFileDialog1.Title = "openen"
OpenFileDialog1.Filter = "richtext files(*.rft) | *.rft| alle files (*.*) | *.*"
OpenFileDialog1.filtername = "" XXX:shocked:
OpenFileDialog1.FilterIndex = 0

OpenFileDialog1.InitialDirectory = "MyDocuments"

OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.CheckPathExists = True
If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(OpenFileDialog1.FileName)
End If
End Sub
End Class


De fouten heb ik gemarkeerd met xxx + smiley wat doe ik verkeerd?

 

[Pajaras]

Sorry, ik ben echt hartstikke dom
Waar moet ik die code toewijzen, want wat ik ook probeer, ik krijg alleen maar errors
Of als iemand zo aardig is om de code even toe te wijzen, dan upload ik hem ergens en post ik hier de link.

 

[That Guy]

Gijs:

Je bedoelt een menustrip ??
Je drukt gewoon dubbel op de text en voert de code in

gday:

SaveFileDialog1.OverwritePrompt = True

OpenFileDialog1.Filter =  "Rich Text Files (*.rtf)" & Chr$(0) & "*.rtf" & Chr$(0) & "All Files (*.*)" & Chr$(0) & "*.*"

 

[WILLIAMXXX]

Sorry, ik ben echt hartstikke dom
Waar moet ik die code toewijzen, want wat ik ook probeer, ik krijg alleen maar errors
Of als iemand zo aardig is om de code even toe te wijzen, dan upload ik hem ergens en post ik hier de link.

Sorry, die ene moest een = zijn en geen -.
Die andere zag ik zo snel de fout niet, ik had de code uit mijn hoofdgetypt zover ik hem wist. Sorry, voor de foutjes

 

[GDay]

Gijs:


gday:

SaveFileDialog1.OverwritePrompt = True

OpenFileDialog1.Filter =  "Rich Text Files (*.rtf)" & Chr$(0) & "*.rtf" & Chr$(0) & "All Files (*.*)" & Chr$(0) & "*.*"

Hoe kan ik maken dat je alleen .vbs & ,txt files kan opslaan en openen?

 

[That Guy]

OpenFileDialog1.Filter =  "Visual basic Script File (*.vbs)" & Chr$(0) & "*.vbs" & Chr$(0) & "Plain Text Files (*.txt)" & Chr$(0) & "*.txt"

 

[snipeytje]

ik gebruik de code van williamxxx maar die werkt niet woordt niet geopend.
en de schermen verdwijnen niet het saven werkt wel

 

[GDay]

OpenFileDialog1.Filter =  "Visual basic Script File (*.vbs)" & Chr$(0) & "*.vbs" & Chr$(0) & "Plain Text Files (*.txt)" & Chr$(0) & "*.txt"

Hijj onderstreept die Chr$ dingen als fout/.