[VB] Codesammlung Part1

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

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))

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

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

Richtextbox1.text = Richtextbox1.text.replace ("Text der ersetzt werden soll" , "Text mit dem er ersetzt werden soll")

            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)

Imports System.IO
Imports System.Drawing.Imaging

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()

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