The Code-Bin
Links
Home
Add your code!
All Listings
About
Latest Entry
Featured Scripts
Author's Website
Latest Entries
FFMPEG Thumbnail Scr...
PHP, 0.8KB
Jul. 29, 10:24pm
John
Z80 Assembler, 190 bytes
Feb. 17, 3:36am
John
Z80 Assembler, 176 bytes
Sep. 13, 2:19am
John
Z80 Assembler, 77 bytes
Sep. 13, 2:18am
John
Z80 Assembler, 209 bytes
Sep. 13, 2:17am
untitled VB.NET Code
Posted by: .. | May 24, 2010 @ 11:28am
VB.NET Code
[
Download
]
Private Sub DateiOpenTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiOpenTS.Click Dim ofd As New OpenFileDialog ofd.InitialDirectory = "C:\Users\Italystyle\Desktop" ofd.Filter = "Texte (*.txt) | *txt" ofd.Title = "Datei ffnen" ofd.ShowDialog() Dim fs As New FileStream(ofd.FileName(), FileMode.Open) Dim sr As New StreamReader(fs) Dim Zeilen As String Do Until sr.Peek() = -1 Zeilen = sr.ReadLine() txt.Text &= Zeilen & vbCrLf Loop sr.Close() End Sub Private Sub DateiSaveTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiSaveTS.Click Dim sfd As New SaveFileDialog sfd.InitialDirectory = "C:\Users\Italystyle\Desktop" sfd.Filter = "Texte (*.txt) | *txt" sfd.Title = "Datei speichern" sfd.ShowDialog() Dim fs As New FileStream(sfd.FileName() & ".txt", FileMode.Create) Dim sw As New StreamWriter(fs) sw.WriteLine(txt.Text) sw.Close() End Sub
Syntax Highlighting
[
Open in new window
]
Author Comments
none
Rating
4.50 / 8
42 Votes
http://codebin.yi.org/651
page generated in 0.01 seconds