13 svar · 306 visningar · startad av Thompa__85
Tjenare!
Sitter och kodar på ett eget litet Notepad.
Och vill att man ska kunna spara.
och har fått ett tips:
Private Sub mnusave_Click()
dlgFil.Filter = "RichText filer (*.rtf)|*.rtf | textfiler (*.txt)|*.txt |wordfiler(*.doc)|*.doc"
dlgFil.ShowSave
filnamn = dlgFil.FileName
Form1.Caption = filnamn
rtftxtBox.SaveFile filnamn
End Sub
Men de funkar inte, och fattar inte varför.. kan inte mycket om VB alls..
Nån som vet hur man gör?
Mvh adde
Så vitt jag förstår det så öppnar din kod bara en Spara-dialog.
För att skriva till en fil kan du göra ungefär såhär:
Open FileName For Output As #1
Print #1, strOut
Close #1
där FileName är en variabel innehållande en sökväg till en fil som ska skapas om den inte finns eller skrivas över om den finns.
Print #1, strOut skriver alltså in det som finns i variabeln strOut till filen.
Läs mer på msdn:
Open Statement
Print # Statement
hmm okej.. men funkar de bra på typ ett Notepad?
ja, det lär väl funka, tekniken att skriva till en fil är ju densamma
Thompa__85>>
Det finns inget fel med din kod. Vad händer när du kör den?
Gein>>
En Rich Text Box har en inbyggd spara-funktion för att spara i just RTF-format.
rtftxtBox.SaveFile
niko skrev:
Thompa__85>>
Det finns inget fel med din kod. Vad händer när du kör den?
Gein>>
En Rich Text Box har en inbyggd spara-funktion för att spara i just RTF-format.
rtftxtBox.SaveFile
Den säger att de e fel på denna kod:
dlgFil.Filter = "RichText filer (*.rtf)|*.rtf | textfiler (*.txt)|*.txt |wordfiler(*.doc)|*.doc"
:/
niko skrev:
En Rich Text Box har en inbyggd spara-funktion för att spara i just RTF-format.
jaha, okej! :r
Nix. Det är inget fel på den raden. Men du måste så klart ha en Common Dialog-instans på formuläret som heter "dlgFil".
niko skrev:
Nix. Det är inget fel på den raden. Men du måste så klart ha en Common Dialog-instans på formuläret som heter "dlgFil".
som jag sa.. nybörjare på VB
vad menas med det där du sa? :r
Välj Project->Components. Kryssa i "Microsoft Common Dialog Control". (Om den inte redan är det.)
En ny "grej" dyker nu upp i ToolBoxen. Dra ut denna till formuläret och döp den till "dlgFil".
niko skrev:
Välj Project->Components. Kryssa i "Microsoft Common Dialog Control". (Om den inte redan är det.)
En ny "grej" dyker nu upp i ToolBoxen. Dra ut denna till formuläret och döp den till "dlgFil".
Klagar fortfarande att de e nått fel :/
När du sa att man ska dra ut den.. vart ska jag lägga den?
Klagar fortfarande att de e nått fel
Vad innebär det mer exakt?
vart ska jag lägga den?
Du ska lägga den på det formulär som innehåller din kod.
Den klagar över första raden..
dlgFil.Filter = "RichText filer (*.rtf)|*.rtf | textfiler (*.txt)
|*.txt |wordfiler(*.doc)|*.doc"
har laggt till en "Microsoft Common Dialog Control" som ligger på skrivfältet.. en liten grå fyrkant med "rutor" på.. har jag gjort rätt så långt?
Ja. Men du måste döpa den till "dlgFil" också. Det gör du genom att markera den och ändra "Name" under "Properties".