Golden(Axe)
01-03-2012, 18:33
Con lintenzione di creare un "progrmma di testo" ho scritto un piccolo codice basic da ampliare in una applicazione più corposa in un secondo momento
Imports System.IO.File
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
scrivi.WriteLine("ciao a tutti")
scrivi.WriteLine(TextBox1.Text)
MsgBox("file creato con sucesso")
scrivi.Close()
End Sub
End Class
Questo piccolo listato serve a scrivere un teso nel percorso c:\Users\Golden(Axe)\Desktop come si evince alla riga:
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
il form è composto da un button1 e una textbox come si evince dalla funzione
scrivi.writeline(textbox1.text)
Il codice credo sia esatto,ma il programma non mi scrive nulla e non mi da errori nel debug,la msgbox funziona.
edit:
il codice nelle prima cartella code si formatta automaticamente dopo la pubblicazione,problema del forum?
lo riscrivo senza tabella code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
scrivi.WriteLine("ciao a tutti")
scrivi.WriteLine(TextBox1.Text)
MsgBox("file creato con sucesso")
scrivi.Close()
End Sub
End Class
scusate
Imports System.IO.File
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
scrivi.WriteLine("ciao a tutti")
scrivi.WriteLine(TextBox1.Text)
MsgBox("file creato con sucesso")
scrivi.Close()
End Sub
End Class
Questo piccolo listato serve a scrivere un teso nel percorso c:\Users\Golden(Axe)\Desktop come si evince alla riga:
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
il form è composto da un button1 e una textbox come si evince dalla funzione
scrivi.writeline(textbox1.text)
Il codice credo sia esatto,ma il programma non mi scrive nulla e non mi da errori nel debug,la msgbox funziona.
edit:
il codice nelle prima cartella code si formatta automaticamente dopo la pubblicazione,problema del forum?
lo riscrivo senza tabella code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim disco As System.IO.File
Dim scrivi As System.IO.StreamWriter
scrivi = disco.CreateText("c:\Users\Golden(Axe)\Desktop test.txt")
scrivi.WriteLine("ciao a tutti")
scrivi.WriteLine(TextBox1.Text)
MsgBox("file creato con sucesso")
scrivi.Close()
End Sub
End Class
scusate