![[VB] Codesammlung Part1](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/vb-codesammlung-part1_ltr.gif){kind=small}
Texte und Textdatein
[HowTo] Text Zeilenweise auslesen
diesen Code fügt ihr als neuen Public ein (nicht in ein Element packen!)
Code Zum Auslesen (Zum Beispiel in einem Button...)
Code:
Public Function ReadLine(ByVal sFile As String, _
Optional ByVal nLine As Long = 1) As String
Dim sLines() As String
Dim oFSO As Object
Dim oFile As Object
' Fehlerbehandlung aktivieren'
On Error GoTo ErrHandler
' Verweis auf das FileSystemObject erstellen'
oFSO = CreateObject("Scripting.FileSystemObject")
' Existiert die Datei überhaupt?'
If oFSO.FileExists(sFile) Then
' Datei öffnen'
oFile = oFSO.OpenTextFile(sFile)
' Alles lesen und in Array zerlegen'
sLines = Split(oFile.ReadAll, vbCrLf)
' Datei schließen'
oFile.Close()
Select Case (nLine)
' (nLine > 0)'
Case 1 'erste Zeile'
ReadLine = sLines(nLine - 1)
Case 2 'Zweite Zeile'
ReadLine = sLines(nLine - 1)
Case -1 'Erste Zeile von unten'
ReadLine = sLines(UBound(sLines) + nLine + 1)
Case -2 'Zweite Zeile von unten'
ReadLine = sLines(UBound(sLines) + nLine + 1)
End Select
End If
Code:
Dim pfad As String = "C:\Ordner\Datei.txt"
Msgbox ("In der ersten Zeile steht: " + ReadLine (pfad, 1))
Msgbox ("in der zweiten Zeile steht: " + ReadLine (pfad, 2))
Msgbox ("In der ersten Zeile von unten steht: " + ReadLine (pfad, -1))
Msgbox ("In der zweiten Zeile von unten steht: " + ReadLine (pfad, -2))
Item aus einer Textdatei in eine Listbox Adden
ähnlich wie der erste Code nur hier braucht ihr nicht jede Zeile einzelnd zu schreiben....
Code:
Dim pfad As String = "C:\Ordner\Datei.txt" 'Den Pfad festlegen'
For Each line In IO.File.ReadLines(pfad) 'Zeilem Auslesen
Listbox1.items.add (line) 'Zeilen in die Listbox Adden'
Next
[HowTo] Text aus Datei auslesen
Code:
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then 'Den OpenFileDialog müsst ihr natürlich aus der Toolbox Adden '
RichTextBox1.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
Else
MsgBox("Es wurde keine Datei Ausgewählt")
End If
Text in einer Richtextbox replacen
Dieser Code ist ziehmlich einfach :P
Code:
Richtextbox1.text = Richtextbox1.text.replace ("Text der ersetzt werden soll" , "Text mit dem er ersetzt werden soll")
Neue Datei erstellen und Text rein schreiben
Code:
Dim file As System.IO.FileStream
file = System.IO.File.Create("C:\Ordner\Datei.txt")
file.Close()
My.Computer.FileSystem.WriteAllText("C:\Ordner\Datei.txt", RichTextBox1.Text, False)
Richtextbox1.text = Ist der Text
False = Soll der Text hinzugefügt werden oder den (wenn vorhanden) Text ersetzten
GDI Bildbearbeitung
Bild schwarz Weiß machen
Für diesen Code benötigst du die beiden .dll Datein im Selbem Ordner wie die .exe Datei (Funktioniert nicht im Debug modus)
Als erstes muss ganz oben dieser Code hin:
Hier der Code zum ändern
Picturebox1 = Das Original Bild
Picturebox2 = Das S/W Bild
Als erstes muss ganz oben dieser Code hin:
Code:
Imports System.IO Imports System.Drawing.Imaging
Picturebox1 = Das Original Bild
Picturebox2 = Das S/W Bild
Code:
Dim g As Graphics = Graphics.FromImage(Picturebox2.Image)
Dim colmat As New ColorMatrix(New Single()() { _
New Single() {0.33, 0.33, 0.33, 0, 0}, _
New Single() {0.33, 0.33, 0.33, 0, 0}, _
New Single() {0.33, 0.33, 0.33, 0, 0}, _
New Single() {0.0, 0.0, 0.0, 1, 0}, _
New Single() {0.0, 0.0, 0.0, 0, 1}})
Dim imgAttr As New ImageAttributes()
imgAttr.SetColorMatrix(colmat)
g.DrawImage(Picturebox1.Image, Picturebox2.ClientRectangle, _
0, 0, Picturebox1.Width, Picturebox1.Height, _
GraphicsUnit.Pixel, imgAttr)
g.Dispose()
Picturebox2.Refresh()
Bild drehen
Hier müssen die .dll Datein aus der Bildeffekte.rar (im Anhang) mit im Ordner von der Exe sein! (Im Debug modus geht es nicht 
)
)Code:
Public Class RotateFlip
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'RotateFlip
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(592, 773)
Me.Name = "RotateFlip"
Me.Text = "RotateFlip"
End Sub
#End Region
Private Images(7) As Image
Private InfoFont As New Font("Arial", 10)
Private InfoBrush As New SolidBrush(Color.Black)
' Gedrehte und gespiegelte Bilder anlegen
Private Sub RotateFlip_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Dim g As Graphics
Dim picture As New Bitmap("f031-01.jpg")
' Alle acht Möglichkeiten
For i = 0 To 7
Images(i) = New Bitmap(150, 150)
g = Graphics.FromImage(Images(i))
ScaleImage.DrawMaximizedPicture(g, picture)
Images(i).RotateFlip(CType(i, RotateFlipType))
g.Dispose()
Next
picture.Dispose()
End Sub
' Bilder zeichnen
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
Dim i As Integer
Dim x, y As Integer
Dim t As String
For i = 0 To 7
' Position
x = (i Mod 3) * 170 + 20
y = (i \ 3) * 200 + 20
' Orientierungsrahmen
e.Graphics.DrawRectangle(Pens.Black, x, y, 150, 150)
' Das Bild
e.Graphics.DrawImageUnscaled(Images(i), x, y)
' Untertitel
t = String.Format("[{0}] {1}", i, CType(i, RotateFlipType).ToString())
e.Graphics.DrawString(t, InfoFont, InfoBrush, x, y + 155)
Next
End Sub
End Class
