VB 08 ListBox Tutorial

http://codingshare.de/
http://zerofix.de/
Watch in HD & FullScreen !
Den Code gleich auch noch :)

Code :


Public Class Form1 Dim Reader As System.IO.StreamReader Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try Reader = System.IO.File.OpenText("C:\Beispiel.txt") 'IO.File.OpenText("Dein Verzeichniss") = IO.Datei.ÖffneText("Dein Verzeichniss") ListBox1.Items.Add(Reader.ReadLine) 'oder : ListBox1.Items.Add(Reader.ReadToEnd) ' Wenn Reader.ReadLine verwendet wird und dann Reader.ReadToEnd dann wird nur der Rest der Datei gelesen Catch ex As Exception MsgBox("Datei kann nicht gelesen werden !", MsgBoxStyle.Critical, "Datei nicht gefunden !") End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked = True Then Dim Open As New OpenFileDialog Open.Filter = "Textdateien [*.txt] | *.txt" Open.Title = "Öffnen und Hinzufügen" Try Dim StringReader As System.IO.StreamReader Open.ShowDialog() StringReader = System.IO.File.OpenText(Open.FileName) ListBox1.Items.Add(StringReader.ReadLine) Catch ex As Exception MsgBox("Kein Objekt ausgewählt.", MsgBoxStyle.Exclamation, Nothing) End Try Else Dim Open As New OpenFileDialog Open.Filter = "Textdateien [*.txt] | *.txt" Open.Title = "Öffnen und Hinzufügen" Try Dim StringReader As System.IO.StreamReader Open.ShowDialog() StringReader = System.IO.File.OpenText(Open.FileName) ListBox1.Items.Add(StringReader.ReadToEnd) Catch ex As Exception MsgBox("Kein Objekt ausgewählt.", MsgBoxStyle.Exclamation, Nothing) End Try End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Remove(ListBox1.SelectedItem) End Sub
End Class

THX for watching !

Category:

Education

Tags:

• List
• Box
• ListBox
• VB
• 08
• Visual
• Basic
• 2008
• Tutorial
• How
• to
• .NET
• Framework
• Programmieren

[Player1070]

in meinem nächstem video schaut ihr wie ein chat geht :D

[thekillerpcone]

Mal 'n paar Tipps:

-Zeigen was des überhaupt macht

-Gute Musik

-Anfang mal begrüßen

Bitte nimm dir's zu Herzen =)

[Player1070]

thanxs (=

werd ich beim nächstem machen ^^

[rickschravendeel]

WTF? German? Although the codes worked thx dude! 5/5 u should include german in the cideo name

[Satzen123]

dude maybe instead of wasting non german ppl's time call the video VB 08 ListBox Tutorial(GER)

-.-

[Jaschar60]

cool =P

click mal mein neues video an