[VB] Codesammlung Part1

[mrapc]

Ich adde hier jetzt hin und wieder Codes die recht nützlich sein können

Texte und Textdatein

[HowTo] Text Zeilenweise auslesen

 Spoiler

diesen Code fügt ihr als neuen Public ein (nicht in ein Element packen!)

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 Zum Auslesen (Zum Beispiel in einem Button...)

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

 Spoiler

ähnlich wie der erste Code nur hier braucht ihr nicht jede Zeile einzelnd zu schreiben....

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

 Spoiler

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

 Spoiler

Dieser Code ist ziehmlich einfach :P

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

Neue Datei erstellen und Text rein schreiben

 Spoiler

            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)

"C:\Ordner\Datei.txt" = Ist der Pfad
Richtextbox1.text = Ist der Text
False = Soll der Text hinzugefügt werden oder den (wenn vorhanden) Text ersetzten

GDI Bildbearbeitung

Bild schwarz Weiß machen

 Spoiler

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:

Imports System.IO
Imports System.Drawing.Imaging

Hier der Code zum ändern
Picturebox1 = Das Original Bild
Picturebox2 = Das S/W Bild

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

 Spoiler

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 )

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

[Kraizy​]

Hm..habe mir, als ich den Threadnamen gesehen habe, unter "Codesammlung" etwas anderes vorgestellt. Das was du hier zeigst, hat man mit zwei Klicks selbst erzeugt..

[mrapc]

Was genau stellst du dir vor
es kommt aber auch noch einiges Dazu

[Kraizy​]

Naja, ich dachte eher, dass hier irgendwelche Funktionen aufgelistet werden. Z.B. INT -> HEX oder was weiß ich, aber nicht Button-Events..

[SuperOwnBash]

Originally Posted by mrapc

Hallo Leute,

Ich fange mal an eine Codesammlung zu schreiben. Ich werde mit der Zeit immer mehr Codes hinzufügen.
Diese Codes müsst ihr eurer FOrm anpassen.

Welscher Nachtelf-Druide lvl. 89 hat dich mit diesem Fluch belastet, verzweifelter Coder ?

[mrapc]

Was zum?!

[Jay Niize]

Dotnet-Snippets wäre heir vll. die erste Möglichkeit richtigen & verständnisvollen Code zu bekommen...

[mrapc]

Ein paar COdes habe ich jetzt hinzugefügt
ob sie euch helfen weis ich nicht aber irgendwer kann sie sicher gebrauchen

[Kraizy​]

Ich finde den Aufbau der ReadLine-Funktion einfach nur schrecklich..wozu ein Object benutzen? Wozu das Goto? Warum Long? Das sieht sehr nach VB6 aus..

[mrapc]

Das ist ja auch eine Sammlung, also die meisten sind eh C&P Codes.
Da kann sich jeder das so umschreiben wie er meint

[Kraizy​]

Naja, wenn man schon sowas macht, dann aber gescheit und nicht einfach irgendeinen Mist reinklatschen..

[mrapc]

Ja aber ich meine wenn es dich stört lösch es...
Sich permanent über soetwas aufzuregen hat meines achtens nach kein Sinn (wenn der Code seine aufgabe erfüllt)
Wenn das zu massiven fehlern füren kann dann sag bescheid dann änder ich das...

[warfley]

da kräuseln sich einem ja die Zehennägel...
Code Sammlung schön und gut, aber die taugt nicht mal was

[Kutzlor]

Das ist keine richtige Codesammlung, das ist ne Mischung aus nichts und nicht gut.

[Reextion]

Codesammlung ?

Abgesehen davon das ne Codesammlung kein Tutorial ist, ist dein Post reine Scheiße.
Und wenn jemand solche Codes nicht im Kopp weiß , wird er auch kaum genug INT geskillt haben, um diesen Theard hier zu finden, geschweige denn sich auf EPVP zu regestrieren.


Ttyl nd eat zum skillZzzzz !11111einseinsellf flamed by michael jackson u know ? kkthxbye.